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

[SixteenVBA]

J'ai testé également ton code avant de le modifier mais chez moi ça ne fonctionne pas... je ne vois pas vraiment pourquoi...

J'ai une question sur le fonctionnement de l'événement Change: comment d'après ton code, la mcro "sait" qu'on parle de la cellule A1 de la feuille SOURCE et pas de la cellule A1 d'une autre feuille?

Je te remercie de ton aide

[SixteenVBA]

J'ai trouvé mon erreur !! J'avais laissé mon code dans un module et non pas dans la feuille SOURCE !!

Bon mon problème maintenant c'est qu'étant donné que je viens mettre à jour cette feuille en collant une extraction, la cellule A1 contiendra toujours la même valeur, à savoir le titre de la colonne. Et je ne sais pas quelle cellule choisir... il y a moyen de mettre un code qui dit que c'est lorsqu'on vient coller quelque chose dans la cellule que la macro doit se déclencher?

Merci

[BENNASR]

bonjour

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".

tu fais ça avec un macro?? si c'est pourquoi ne pas simplement ajouter dans ce meme code

Code :

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

Sheets("GLOBAL").Range("C4").Value = Date

[SixteenVBA]

Bonjour BENNASR,

Non je viens coller mes données à la main. Je voulais donc qu'automatiquement, on sache quel jour on est venu mettre à jour les données sources.

[BENNASR]

bonjour
à mon modeste avis et comme débutant et autodidacte VBA il est plus facile d'automatiser le copier / coller et dans le même code insérer la date dans la feuille destination : si ça t'arrange on peut prendre cette direction
si non voila pour lecture :

https://www.commentcamarche.com/faq/...er-paste-event

https://excel.developpez.com/faq/?pa...upPressePapier

BONNE CONTINUATION

[SixteenVBA]

Merci pour ces liens que je vais étudier. Mais effectivement comme tu le souligne, je ferai peut-être simplement un bouton où la macro vient coller les données dans la feuille source et dans le même temps viens inscrire la date.

Merci !