pb msgbox

[steve]

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

 

[Ti]

c'est quoi ça "i6" ? si c'est une adresse de cellule, tu dois écrire Range("I6")...

 

[steve]

merci ti
c'est effectivement une cellule et ca marche

bonsoir