S steve Guest 11 Janvier 2003 #1 salut a tous je n' arrive pas a faire fonctionner le code et pourtant cela doit etre simple . Private Sub Worksheet_Change(ByVal Target As Range) if "i6" > 170 Then MsgBox ("ATTENTION DEPASSEMENT ") end if End Sub merci d'avance
salut a tous je n' arrive pas a faire fonctionner le code et pourtant cela doit etre simple . Private Sub Worksheet_Change(ByVal Target As Range) if "i6" > 170 Then MsgBox ("ATTENTION DEPASSEMENT ") end if End Sub merci d'avance
T Ti Guest 11 Janvier 2003 #2 c'est quoi ça "i6" ? si c'est une adresse de cellule, tu dois écrire Range("I6")... Vote positif 0 Vote négatif
S steve Guest 11 Janvier 2003 #3 merci ti c'est effectivement une cellule et ca marche bonsoir Vote positif 0 Vote négatif