Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modifier les coordonnées du target dans Worksheet_Change

thea_capkrabs

XLDnaute Nouveau
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 :

VB:
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

XLDnaute Barbatruc
Bonjour,

Tu peux tester la macro suivante

VB:
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
 

Discussions similaires

Réponses
8
Affichages
404
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…