Discussion :

[SixteenVBA]

Bonjour à tous,

Alors voilà je sollicite votre aide pour quelque chose qui semble facile mais que je n'arrive pas à traduire en VBA.
Je souhaite, lorsque je colle mes données sources dans la feuille "SOURCE", que cela vienne inscrire la date du jour dans la cellule C4 de la feuille "GLOBAL".

Je ne sais pas si c'est clair?

J'ai voulu utiliser l'événement ci-dessous , mais je ne sais pas comment écrire ce que je veux...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub Worksheet_Change(ByVal Target As Range)   
End Sub

Vous pouvez m'aider?

je vous remercie

[Poolipooo]

Bonjour Sixteen,

ça devrait répondre à ton besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("GLOBAL").Range("C4").Value = Date
End Sub

[SixteenVBA]

Bonjour Poolipoo,

Merci pour ta réponse. J'avais commencé à écrire mon code de cette manière mais à aucun moment on déclare à quelle cellule la variable TARGET fait référence, par conséquence rien ne passe.

J'ai essayé le code ci-dessous mais biensur ça ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    Target = Sheets("SOURCE").Range("A1")
     Sheets("GLOBAL").Range("C4").Value = Date
End Sub

[Poolipooo]

Je n'ai peut-être pas bien cerné ton problème.
Si tu veux inscrire la date dans la cellule C4 de la feuille "GLOBAL" lorsque tu modifies le contenu de la cellule A1 de la feuille "SOURCE", tu peux passer par ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$1"
            Sheets("GLOBAL").Range("C4").Value = Date
    End Select
End Sub

[SixteenVBA]

C'est exactement ça ! Plus précisément, lorsque je viens coller quelque chose dans la cellule A1 de la feuille SOURCE.

J'ai testé ton code mais ça ne fonctionne pas... j'ai testé également en modifiant comme ceci ci-dessous, mais idem sans succès...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case Sheets("YD46").Range("A1")
            Sheets("GLOBAL").Range("C4").Value = Date
    End Select
End Sub

[Poolipooo]

Attention, la syntaxe Case Sheets("YD46").Range("A1") ne fonctionnera pas.
Tu ne dois mettre que l'adresse de la cellule, avec les "$", comme indiqué dans le code que j'avais mis en exemple.
Je l'ai testé de mon côté et il fonctionne