Discussion :

[facteur]

Bonjour a tous et toutes,

j'ai un tableau excel intitule "donnees hermes".
Chaque jour, j'insere de nouvelles lignes. Le tableau peut donc prendre jusqu'a 65.000 lignes.

Ce tableau est constitue de 32 colonnes.
Dans ce cas precis, les colonnes importantes sont :
la colonne C intitulee "date" sous le format :dd/m/aaaa
la colonne D intitulee "ligne"
la colonne E intitulee " code liaison"
la colonne AC intitulee "CP TOTAL"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
( colonne C)  (colonne D)          (colonne E)                 (colonne AC) 
date	      ligne	               Code liaison	           CP TOTAL 
3/1/2011	     69 acp              sup	                        20
4/1/2011	     nyk	               69C-1390	          33
5/1/2011	     42 ppdc            69C-102DP 	           0

Les colonnes C (date), D (ligne) et E (code liaison) contiennent des valeurs imposees par le logiciel.
Par contre, dans la colonne AC ( CP TOTAL), des employes doivent saisir des chiffres et des erreurs de frappe apparaissent souvent.

Je souhaiterais donc creer une petite macro qui afficherait un message d'alerte sur mon tableau.
Ce message d'alerte s'afficherait sous 3 conditions :
Sur chaque ligne,
Si dans la colonne D, la valeur de la cellule est differente de "nyk" et
Si dans la colonne E, la valeur de la cellule ne contient pas "DP" et
Si dans la colonne AC, la valeur de la cellule est strictement superieur a "33"
alors un message d'alerte du type :" chargement superieur a la capacite du vehicule"

Merci de votre aide .

[casefayere]

Bonjour,
un truc dans ce gout là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 29 Then
   If Cells(Target.Row, 4) <> "nyk" And _
         Cells(Target.Row, 5) <> "*DP*" And Target > 33 Then
      MsgBox "chargement superieur a la capacite du vehicule"
      Exit Sub
   End If
End If
End Sub

je vais me coucher A+

[Vadorblanc]

Bonjour
Si je suis la demande de 'facteur':
Si dans la colonne D, la valeur de la cellule est differente de "nyk" et
Si dans la colonne E, la valeur de la cellule ne contient pas "DP" et
Si dans la colonne AC, la valeur de la cellule est strictement superieur a "33"
alors un message d'alerte du type :" chargement superieur a la capacite du vehicule"
Je change uniquement le code de 'casefayre' les Row par Column pour que mon essai fonctionne.
Merci casefayre, je vote pour toi.
Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 29 Then
   If Cells(Target.Column, 4) <> "nyk" And _
         Cells(Target.Column, 5) <> "*DP*" And Target > 33 Then
      MsgBox "chargement superieur a la capacite du vehicule"
      Exit Sub
   End If
End If
End Sub

[casefayere]

Bonjour Vadorblanc, facteur, le forum,

Vadorblanc a ecrit

Je change uniquement le code de 'casefayre' les Row par Column pour que mon essai fonctionne

Pour moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Target.Row, 5)

est egal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("E" & target.row)

alors je ne comprends pas ta remarque, ou suis-je passé à coté de quelque chose ?

Bonne journée

[Qwazerty]

Salut
+1 pour Casefayere, les 2 écritures sont bien identiques.

Par contre!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Target.Row, 5) <> "*DP*"

Ça ne peut pas fonctionner, le caractère * utilisé ainsi n'est pas considéré comme étant un caractère spécial remplaçant n'importe quel texte .. mais juste comme le caractère '*'
Il faudrait écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

InStr(Cells(Target.Row, 5), "*DP*") <> 0

++
Qwaz

[mercatog]

Salut à tous
ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Cells(Target.Row, 5).Value Like "*DP*" Then

[casefayere]

re,
je n'avais pas vérifié ma méthode et en reprenant le code à mercatog, j'en rajoute :

si l'utilisateur ne fait pas de distinction entre les majuscules et minuscules, en début de programme, pour Like :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option compare text

Bonne journée, mes amis

[facteur]

Merci pour vos reponse..
Effectivement mercatog et Qwazerty ont raison pour la fonction "ne contient pas ", l'asterix ne fonctionne pas en VBA.
Mais je ne parviens pas a remplace le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(Target.Column, 5) <> "*DP*"

par le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Cells(Target.Row, 5).Value Like "*DP*" Then

dans la macro donne par Vadorblanc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 29 Then
   If Cells(Target.Column, 4) <> "nyk" And _
         Cells(Target.Column, 5) <> "*DP*" And Target > 33 Then
      MsgBox "chargement superieur a la capacite du vehicule"
      Exit Sub
   End If
End If
End Sub

J'ai encore besoin de votre aide

[mercatog]

Tu as pris la mauvaise réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 29 Then
      If Target.Value > 33 And Cells(Target.Row, 4) <> "nyk" And Not Cells(Target.Row, 5) Like "*DP*" Then
         MsgBox "Chargement superieur a la capacite du vehicule"
         Application.EnableEvents = False
         Application.Undo
         Application.EnableEvents = True
      End If
   End If
End If
End Sub

[facteur]

j'ai trouve le probleme , il manquait le code "End If".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 29 Then
If Not Cells(Target.Row, 5).Value Like "*DP*" Then
If Cells(Target.Row, 4) <> "nyk" And Cells(Target.Row, 5) <> "*DP*" And Target > 33 Then
      MsgBox "chargement superieur a la capacite du vehicule"
      Exit Sub
End If
End If
End If
End Sub

Mais j'aimerais approfondir ce programme.
Lorsque la boite de message m'indique "chargement superieur a la capacite du vehicule", pourrait on voir afficher, toujours dans la boite de message, la ou les lignes qui presentent une surcapacite.

Je ne veux pas toutes les valeurs contenues dans la ou les lignes a corriger ( il y en a 32), mais simplement 4 valeurs qui me permettraient ainsi de retrouver assez facilement les lignes concernees par cette surcapacite et de les corriger.
Ces 4 valeurs sont les suivantes :
la date (colonne C), la ligne (colonne D), le code liaison (colonne E) et enfin le nombre CP TOTAL (colonne AC).

Merci

merci mercatog et j'espere que tu pourras me repondre pour ce programme que je souhaite ameliorer...

[Qwazerty]

Salut
Je veux pas dire, mais ça ressemble a s'y méprendre à une validation, regarde du coté du menu Donnée, Validation sous Excel. Tu choisis Personnalisé et tu met la formule correspondante à ton besoin, elle devrait pas être bien compliqué, à base de Et() et de Non(), ensuite tu regardes les onglets Message et Alerte et tu paramétrés comme tu le souhaites.

Ensuite tu déploies ta validation dans ton tableau.

++
Qwaz

[facteur]

Bonjour Qwazerty,
Woua, je dois dire que je suis un peu perdu....
Disons que j'applique cette validation , que dois je faire du programme macro....?

[Qwazerty]

Salut

Disons que j'applique cette validation , que dois je faire du programme macro....?

Rien du tout, tu n'en as pas besoin pour gérer ce genre de chose dans Excel.

Voila un exemple
++
Qwaz

[facteur]

Qwazerty,

Je ne crois pas que cette methode me convient. En effet, je ne desire pas creer un nieme colonne avec la mention "faux" ou "vrai".
Je souhaiterais voir apparaitre un message annoncant une "capacite superieur au vehicule" lorsque, sous des conditions, la valeur contenu dans la colonne AC est strictement superieur a 33 (cf messages ci dessus).
Et je souhaiterais que le message me designe egalement la ou les lignes concernees pour que je puisse la corriger. Car il faut savoir, que la colonne AC, qui contient les quantites, sont referencees par des tiers personnes et que mon role est de verifier et corriger ces quantites lorsqu'elles sont erronees (> 33).

Je te joins le tableau allege si cela peut aider :
Le tableau contien la macro de mercatog :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 29 Then
      If Target.Value > 33 And Cells(Target.Row, 4) <> "nyk" And Not Cells(Target.Row, 5) Like "*DP*" Then
         MsgBox "Chargement superieur a la capacite du vehicule"
         Application.EnableEvents = False
         Application.Undo
         Application.EnableEvents = True
      End If
   End If
End If
End Sub

[Qwazerty]

Salut

Je ne crois pas que cette methode me convient. En effet, je ne desire pas creer un nieme colonne avec la mention "faux" ou "vrai".

C'est juste une colonne de teste... as tu essayé de rentré une valeur en colonne AC??

Pour ce qui est de la coloration de ta cellule ou de ta ligne il suffit de mettre une Mise en forme Conditionnel, qui aura encore une fois une formule simple, la même que la validation mais avec une inversion du résultat avec un Non() je pense.

Je regarderais ton fichier plus tard mais essaie comme il faut celui que je t'ai envoyer stp.

++
Qwaz

[mercatog]

Bonjour,
Je trouve que la proposition de Qwaz est judicieuse.
Sinon, par code (si tu y tiens absolument)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
Dim Target As Range
Dim Msg As String
 
Application.ScreenUpdating = False
With Sheets("donnees hermes")
    For Each Target In .Range("AC3:AC" & .Cells(.Rows.Count, 1).End(xlUp).Row)
        Target.Interior.ColorIndex = xlNone
        If Target.Value > 33 And Cells(Target.Row, 4) <> "nyk" And Not Cells(Target.Row, 5) Like "*DP*" Then
            Msg = Msg & Target.Address(0, 0) & vbCrLf
            Target.Interior.Color = 255
        End If
    Next Target
End With
If Msg <> "" Then
    Msg = "Chargement supérieur à la capacité du véhicule dans les cellules en rouge suivantes:" & vbCrLf & Msg
Else
    Msg = "Tout est bon"
End If
MsgBox Msg
End Sub