Bonjour tout le monde !
J'aimerai que mon code se fasse sur toutes les lignes de mes 2 colonnes (I et J) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I2")) Is Nothing Then
Range("J2").Value = ""
End If
End Sub
Mon code marche sur ma ligne 2, mais je n'arrive pas à appliquer le code sur les lignes suivantes (I3 et J3, I4 et J4, etc...)
J'aimerai que mon code se fasse sur toutes les lignes de mes 2 colonnes (I et J) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I2")) Is Nothing Then
Range("J2").Value = ""
End If
End Sub
Mon code marche sur ma ligne 2, mais je n'arrive pas à appliquer le code sur les lignes suivantes (I3 et J3, I4 et J4, etc...)