bp msgbox

[steve]

Bonsoir a tous

le code ne fonctionne pas

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("i6") > 170 Then MsgBox ("ATTENTION DEPASSEMENT " & vbCr & "" & vbCr & "QUANTITE LIMITE TOTAL" & vbCr & " " & vbCr & " Par surface",vbCritical)

End If

I6=ref cellule

merci d' avance

 

[Ti]

enlève les parenthèses

 

[Ti]

euh, je voulais dire enlève les parenthèses après MsgBox

 

[steve]

heureusement que tu est la

merci beaucoup et bonne nuit

 

[@+Thierry]

Salut Steve,

Il semble que tu ne soies pas vraiment habitué des forum de discussion...

Pour ce problème de MsgBox tu as posté dans trois Fils de discussions différents :

11-01-03 18:06 "msgbox"
Jean Marie - StepLof et moi-même t'avons répondu....

11-01-03 18:14 "pb msgbox"
là c'est Ti qui s'y est collé...

11-01-03 23:05 "bp msgbox"
qui est donc ce fil ......

J'espère que le jour où tu auras un problème plus compliqué qu'un simple MsgBox... Tu vas pas nous refaire çà puissance 10 !!!...

Je ne sais pas si tu es le même Steve vu que tu es anonyme à chaque fois, mais ce n'est pas la première fois que je remarque de la "Steve-Anarchie" dans ce forum....

Voilà... Ci-joint une Démo de MsgBox spéciale pour Toi !

Bonne Journée
@+Thierry