Microsoft 365 macro copier coller feuille active et autre feuille

pat66 · 2 Octobre 2023

bonjour le forum,

voila la macro que je souhaite conserver, (merci à Dranreb)
If IsEmpty(Target.Value) Then Me.[AG136].Value = Me.[AO28].Value (feuille active)

mais je voudrai aussi coller en même temps :
Me.[AO28].Value sur la feuille 3 dans la cellule ("AG136")

un grand merci à tous

Dranreb · 2 Octobre 2023

Bonjour.
Mettez :

VB:

If IsEmpty(Target.Value) Then
   Me.[AG136].Value = Me.[AO28].Value ' (feuille active)
   Feuil3.[AG136].Value = Me.[AO28].Value ' (feuille "Feuil 3")
   End If

Si toutefois Feuil3 est bien le nom de l'objet Worksheet représentant la feuille destinataire.

Dranreb · 2 Octobre 2023

Bonjour.
Mettez :

VB:

If IsEmpty(Target.Value) Then
   Me.[AG136].Value = Me.[AO28].Value ' (feuille active)
   Feuil3.[AG136].Value = Me.[AO28].Value ' (feuille "Feuil 3")
   End If

Si toutefois Feuil3 est bien le nom de l'objet Worksheet représentant la feuille destinataire.

pat66 · 2 Octobre 2023

Bonjour

c'est parfait !!

merci beaucoup

Microsoft 365 macro copier coller feuille active et autre feuille

pat66

XLDnaute Impliqué

Dranreb

Dranreb

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

Discussions similaires