Macro active sur plusieurs feuilles

Bonjour mes sauveurs, encore une fois, je fais appel à vous pour un problème pour moi très gros et pour vous peut-être enfantin.. LOL

J'ai écrit tout simplement ce code :

Sub tableau_fournisseur_supplémentaire()

'

' tableau_fournisseur_supplémentaire Macro

'

'

Sheets("Feuil4").Select

Range("A4:F6").Select

Selection.Copy

Sheets("Feuil1").Select

ActiveSheet.Select

ActiceCell.Select

ActiveSheet.Paste

End Sub

Il n'est pas des plus "propre" car je pense qu'il est possible de faire olus court.

Mon problème n'est pas là.

Cette macro fonctionne bien quand je l'active dans la feuille 1 mais mais pas dans la feuille 2 ni aucune autre. c'est normal me direz-vous

Mais comment l'écrire pour qu'elle soit active dans toutes les feuilles à partir de laquelle je la demande et n'agisse que dans la feuille et la cellule d'où je l'appelle.

Je pourrais répéter 30 fois la macro pour mes 30 feuilles mais je n'ai pas envie de la réécrire chaque fois que j'ajouterai une feuille.

Merci de votre réponse rapide.

Stoky

etienne.stoquart•A•gmail.com

Bonjour

Copie ce code et colle le dans un module

Tu pourras alors l'utiliser à partir de n'importe quelle autre feuille.

Mais attention : la plage de la feuille4 se collera à partir de la cellule active.

Bye !

Sub tableau_fournisseur_supplémentaire()
'
    ' tableau_fournisseur_supplémentaire Macro
     Sheets("Feuil4").Range("A4:F6").Copy
     ActiveSheet.Paste
End Sub
8classeur1.xlsm (20.99 Ko)

Merci beaucoup.

je me serais bien giflé quand j'ai vu la réponse. Voilà ce qui arrive quand on ne maîtrise pas bien : on fait écrire la base de la macro par Excel et on se retrouve avec un truc pourri. J'essayerai de ne pas oublier la leçon.

Merci 1000 fois encore.

Rechercher des sujets similaires à "macro active feuilles"