Macro - sur plusieurs sheets
carolineelias
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je débute avec les macros.
J'ai crée une macro toute simple :
Sheets("MACRO").Select
Rows("1:15").Select
Selection.Copy
Sheets("DRAAIBOEK NL").Select
Selection.Insert Shift:=xlDown
Selection.End(xlToLeft).Select
Elle consiste à ajouter une mise en page à un endroit prédéfinit.
Elle fonctionne très bien mais, elle devrais fonctionner sur plusieurs feuilles de mon fichier. (pas en même temps).
Par exemple j'ai une feuille qui s’appelle DRAAIBOEK NL et une autre DRAAIBOEK FR, si j'ai un nouveau client en Wallonie il faudrait que ma macros fonctionne sur la feuille DRAAIBOEK FR et pareil pour un client de la Flandre mais alors en étant sur la feuille DRAAIBOEK NL.
Mon problème c'est qu'elle ne fonctionne que sur une des deux feuilles. J'ai un message d'erreur quand je lance ma macro sur l'autre feuille.
J'aimerai qu'elle fonctionne sur les deux feuilles.
J'ai essayé d'être clair mais pas évident. :-)
Quelqu’un pourrais-t-il m'aider ?
Merci d'avance !
Je débute avec les macros.
J'ai crée une macro toute simple :
Sheets("MACRO").Select
Rows("1:15").Select
Selection.Copy
Sheets("DRAAIBOEK NL").Select
Selection.Insert Shift:=xlDown
Selection.End(xlToLeft).Select
Elle consiste à ajouter une mise en page à un endroit prédéfinit.
Elle fonctionne très bien mais, elle devrais fonctionner sur plusieurs feuilles de mon fichier. (pas en même temps).
Par exemple j'ai une feuille qui s’appelle DRAAIBOEK NL et une autre DRAAIBOEK FR, si j'ai un nouveau client en Wallonie il faudrait que ma macros fonctionne sur la feuille DRAAIBOEK FR et pareil pour un client de la Flandre mais alors en étant sur la feuille DRAAIBOEK NL.
Mon problème c'est qu'elle ne fonctionne que sur une des deux feuilles. J'ai un message d'erreur quand je lance ma macro sur l'autre feuille.
J'aimerai qu'elle fonctionne sur les deux feuilles.
J'ai essayé d'être clair mais pas évident. :-)
Quelqu’un pourrais-t-il m'aider ?
Merci d'avance !
A voir également:
- Macro - sur plusieurs sheets
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
Bonjour,
passez les feuilles en paramètre
mettre ce code dans un module et ensuite associer la macro à un bouton ou un raccourci clavier:
voilà c'est tout simple, on peut mettre les feuilles que l'on veut
passez les feuilles en paramètre
mettre ce code dans un module et ensuite associer la macro à un bouton ou un raccourci clavier:
Option Explicit
Sub test()
Call copie("MACRO", "DRAAIBOEK NL") 'au choix
'Call copie("DRAAIBOEK NL", "DRAAIBOEK FR")
End Sub
Sub copie(ByVal feuille1 As String, ByVal feuille2 As String)
Sheets(feuille1).Select
Rows("1:15").Select
Selection.Copy
Sheets(feuille2).Select
Selection.Insert Shift:=xlDown
Selection.End(xlToLeft).Select
End Sub
voilà c'est tout simple, on peut mettre les feuilles que l'on veut