Modifier les coordonnées du target dans Worksheet_Change

[thea_capkrabs]

Bonjour,

J'ai eu beau chercher sur pleins de forum et le net mais je ne trouve pas de solution à mon problème…. voici ma requête :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:Q")) Is Nothing Then Exit Sub
    Target(1, 30) = Format(Now, "YYYY/MM/DD")
End Sub

Mon problème réside dans le fait que le target prend la 30ème colonne par rapport à la colonne qui a été modifiée. Or, si je modifie à la fois la colonne A + B + D, j'ai 3 colonnes complétées avec la même info. J'aimerai afficher la date seulement dans la colonne "X" peut importe la colonne qui a été modifiée entre A et Q.

Target est déjà en format RANGE mais lorsque je saisie par exemple : target ("X:X") cela ne fonctionne pas … avez-vous des idées ?

Merci infiniment par avance !

 

[James007]

Bonjour,

Tu peux tester la macro suivante

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A:Q")) Is Nothing Then Exit Sub
    Cells(Target.Row, 24) = Format(Now, "YYYY/MM/DD")
End Sub

En espèrant que cela t'aide

 

[thea_capkrabs]

aaah, en voyant ta réponse, ça semble tout bête … Merci beaucoup @James007, ça fonctionne parfaitement !

 

[James007]

Merci pour tes remerciements