Bonjour à tous
Comment remplacer le D50 par la dernière colonne et la dernière ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D2:D50], Target) Is Nothing Then
MsgBox "coucou"
End If
End Sub
j'ai testé avec :
dercol = ActiveSheet.Range("A1").End(xlToRight).Column
derligne =AtiveSeet.Range("A5536").End(xlUp).Row
Mais je dois mal formuler ma syntaxe !
Merci à vous
Comment remplacer le D50 par la dernière colonne et la dernière ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D2:D50], Target) Is Nothing Then
MsgBox "coucou"
End If
End Sub
j'ai testé avec :
dercol = ActiveSheet.Range("A1").End(xlToRight).Column
derligne =AtiveSeet.Range("A5536").End(xlUp).Row
Mais je dois mal formuler ma syntaxe !
Merci à vous