message d'alerte sous conditions

Version imprimable

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:

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 .:zoubi:

Bonjour,
un truc dans ce gout là :

Code:

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+

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:

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

06/02/2011, 10h16
casefayere

Bonjour Vadorblanc, facteur, le forum,

Vadorblanc a ecrit

Citation:

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

Pour moi

Code:

Cells(Target.Row, 5)

est egal

Code:

range("E" & target.row)

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

Bonne journée
06/02/2011, 10h48
Qwazerty

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

Par contre! :rouleau::rouleau:

Code:

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:

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

++
Qwaz
06/02/2011, 11h15
mercatog

Salut à tous
ou bien

Code:

If Not Cells(Target.Row, 5).Value Like "*DP*" Then
06/02/2011, 11h34
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:

option compare text

Bonne journée, mes amis

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:

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

par le code

Code:

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

dans la macro donne par Vadorblanc
Code:

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:roll:

Tu as pris la mauvaise réponse

Code:

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

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

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...:roll:

07/02/2011, 06h54
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
07/02/2011, 17h17
facteur

Bonjour Qwazerty,
Woua, je dois dire que je suis un peu perdu...8O.
Disons que j'applique cette validation , que dois je faire du programme macro....:roll:?
07/02/2011, 21h32
Qwazerty

1 pièce(s) jointe(s)

Salut

Citation:

Envoyé par facteur

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

1 pièce(s) jointe(s)

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 :roll::
Le tableau contien la macro de mercatog :
Code:

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

08/02/2011, 06h51
Qwazerty

Salut

Citation:

Envoyé par facteur

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

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

Code:

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