Microsoft 365 macro copier coller feuille active et autre feuille

pat66

XLDnaute Impliqué
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
 
Dernière édition:
Solution
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

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
9
Affichages
144

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA