Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Utiliser la même macro dans des feuilles différentes

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

Perceval973

XLDnaute Nouveau
Bonjour à tous

J'ai un classeur qui contient des feuilles lundi, mardi, mercredi, jeudi, vendredi
Ces feuilles sont alimentées par mes opérateurs
Chaque jour (J) je fais des analyses sur J-1 et j'ai besoin de dérouler une macro qui fait du nettoyage et du tri
Mercredi dernier j'ai créé une macro grâce a la fonction "Enregistrer une macro". Cette macro est enregistrée dans "Personnal.XLSB"
Mon problème est que si je lance la macro sur la feuille mercredi, je peux ensuite l'utiliser dans n'importe quelle feuille.
En revanche si je commence par lancer la macro dans une autre feuille que mercredi elle plante

Merci pour votre aide
Perceval
 
Solution
P
Voici une macro qui fonctionne (pour ceux qui viendront par la suite...)


Sub Nettoyage_Synthese_Lx_MFC()
With ActiveSheet
If .Name Like "* L#" Then...
Trier par date Trier par votes
Bonjour,

Où est ton fichier avec ta macro?
 
Vote positif 0 Vote négatif
cathodique à dit:
Bonjour,

Où est ton fichier avec ta macro?
Cliquez pour agrandir...
Bonjour

Voici un extrait de la macro : Elle plante à la ligne ".Apply"

Sub Nettoyage_Synthese_Mercredi_L1()
'
' Nettoyage_Synthese Macro_Mercredi_L1
'
Range("A1").Select
Application.ScreenUpdating = Faux
Cells.Select
Selection.UnMerge
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,K:K,L:L,M:M,N:N,O:O,P😛,Q:Q,R:R,S:S,T:T"). _
Select
Range("T1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$414").AutoFilter Field:=1, Criteria1:="=Poste", _
Operator:=xlOr, Criteria2:="="
ActiveWindow.SmallScroll Down:=223
Cells.Select
Selection.Delete Shift:=xlUp
ActiveWorkbook.Worksheets("Mercredi L1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Mercredi L1").Sort.SortFields.Add2 Key:=Range( _
"A1:A414"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Mercredi L1").Sort
.SetRange Range("A1:U414")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Je joins également le fichier ci dessous
Perceval
 

Pièces jointes

Vote positif 0 Vote négatif
En lisant ton 1er post, il est question de plusieurs feuilles. Or sur ton fichier, il n'y en a qu'une seule.
Ta macro a été créée par l'enregistreur, elle ne peut pas fonctionnait pour différente feuille.
Les "Select" et "Selection" sont à éviter, elles n'apportent rien et ralentissent le code inutilement.
j'ai consulté tes macros, tu utilises par exemple ces lignes
VB: 
Columns("c:c").Hidden = False
Columns("e:e").Hidden = False
Columns("g:g").Hidden = False
Columns("i:i").Hidden = False
Columns("k:k").Hidden = False
Columns("m:m").Hidden = False
Columns("o:o").Hidden = False
Columns("q:q").Hidden = False
Columns("s:s").Hidden = False
Columns("u:u").Hidden = False
Columns("w:w").Hidden = False
Columns("y:y").Hidden = False
Columns("aa:aa").Hidden = False
Columns("ac:ac").Hidden = False
Columns("ae:ae").Hidden = False
Columns("ag:ag").Hidden = False
Columns("ai:ai").Hidden = False
Columns("ak:ak").Hidden = False
Columns("am:am").Hidden = False
Columns("ao:ao").Hidden = False
On fait la même chose en une seule ligne de code
Code: 
Columns("C,E,G,I,K,M,O,Q,S,U,W,Y,AA,AC,AE,AG,AI,AK,AM,AO").Hidden = False
'il manque aussi la référence de la feuille auxquelles appartiennent ces colonnes'

Explique-nous ce que tu veux obtenir.
Bonne journée
 
Vote positif 0 Vote négatif
Je suis novice ET je récupère un fichier que je n'ai pas créé ET qui est alimenté par une 15aines de personnes
Moi j'ai juste besoin d'en extraire quelques lignes sur colonnes
Donc je commence par le nettoyer (annuler les fusions, supprimer les lignes vides, trier du plus petit au plus grand, mettre en surbrillance les doublons)
Enfin, je fais une synthèse "management oriented"
 
Vote positif 0 Vote négatif
"Ta macro a été créée par l'enregistreur, elle ne peut pas fonctionnait pour différente feuille."
C'est bien ca mon problème 🙂
Pour les autres remarques, je te remercie de ton commentaire, mais je ne suis pas le créateur ni le propriétaire du classeur, alors je préfère ne pas y toucher
Je me contente de copier le classeur chaque matin et d'y effectuer mes propres opérations
C'est pour ca que j'ai enregistré la macro dans mon classeur perso
 
Vote positif 0 Vote négatif
Donc tu ne peux pas nous expliquer les tenants et aboutissants de ton code qui ne fonctionne pas.
 
Vote positif 0 Vote négatif
cathodique à dit:
Donc tu ne peux pas nous expliquer les tenants et aboutissants de ton code qui ne fonctionne pas.
Cliquez pour agrandir...
J'ai bien peur de ne pas comprendre ta question
Je peux expliquer la macro que j'ai créé avec l'enregistreur de macro dans le classeur que je recopie chaque jour
Elle ne fait que du nettoyage et des tris, elle fonctionne très bien a condition que que je l'exécute dans la feuille où elle a été créée (en l'occurrence Mercredi)
Et mon souhait est de pouvoir l'exécuter dans chaque feuille (Lundi, mardi, mercredi etc...)

La j'ai été obligé d'ouvrir Visual Basic et de la recopier pour chaque jour, cela fonctionne mais je trouve que ce n'est pas propre
Est-ce que j'ai réussi a être plus clair ? :-/
 
Vote positif 0 Vote négatif
Phil69970 à dit:
@Perceval973

Il manque une partie à ta macro que tu as mis au post #4



Cela sera mieux en ayant la totalité du code
Cliquez pour agrandir...
La voici

Sub Nettoyage_Synthese()
'
' Nettoyage_Synthese Macro
'

Cells.Select
Selection.UnMerge
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A:A,C:C,E:E,F:F,G:G,H:H,I:I,K:K,L:L,M:M,N:N,O:O,P😛,Q:Q,R:R,S:S,T:T"). _
Select
Range("T1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$414").AutoFilter Field:=1, Criteria1:="=Poste", _
Operator:=xlOr, Criteria2:="="
ActiveWindow.SmallScroll Down:=223
Cells.Select
Selection.Delete Shift:=xlUp
ActiveWorkbook.Worksheets("Mercredi L1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Mercredi L1").Sort.SortFields.Add2 Key:=Range( _
"A1:A414"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Mercredi L1").Sort
.SetRange Range("A1:U414")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("A:A").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("C:C").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=29"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
End Sub
 
Vote positif 0 Vote négatif
@Perceval973

Ce que je ne comprends pas c'est pourquoi le début de macro du post 4 et du post #13 ne sont pas identiques ???

Post #4
Perceval973 à dit:
Sub Nettoyage_Synthese_Mercredi_L1()
'
' Nettoyage_Synthese Macro_Mercredi_L1
'
Range("A1").Select
Application.ScreenUpdating = Faux
Cells.Select
Cliquez pour agrandir...

Et je doute fort que ceci fonctionne

Post #13

Perceval973 à dit:
Sub Nettoyage_Synthese()
'
' Nettoyage_Synthese Macro
'

Cells.Select
Selection.UnMerge
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Cells.Select
Cliquez pour agrandir...

Donc pour résumé tu nous fournis 2 codes différents qui sont censé être les mêmes ??????

Une explication s'impose car essayer de d'aider dans le vide et en sachant que cela ne fonctionnera pas ne m’intéresse pas beaucoup ! 🙄
 
Vote positif 0 Vote négatif
Ce sont les mêmes codes, mais je cherche aussi à avancer par moi même
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
554
AtTheOne
C
  • Question Question
XL pour MAC Répartir des personnes dans des équipes par roulement sur 5 jours
Réponses
6
Affichages
755
job75
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
88
sylvanu
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
578
robbynasch
R
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
379
jeff1494
C
  • Résolu(e)
Microsoft 365 Macro copié collé valeur se trouvant dans d'autres feuilles
2 3
Réponses
38
Affichages
2 K
Croc_de_loups
C
J
  • Question Question
XL 2021 reporter des données entre plusieurs feuilles sans décalage de lignes dans les tableaux
Réponses
4
Affichages
648
job75
  • Résolu(e)
XL 2013 (RESOLU) Récapitulation des Feuilles 'Traitement Absence' dans la Feuille 'Traitement Absence Global'
Réponses
7
Affichages
952
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU)Afficher les Jours de la Semaine en Infobulle
2
Réponses
20
Affichages
1 K
TooFatBoy
  • Question Question
XL 2013 Copier une même cellule de plusieurs feuilles Excel dans un autre classeur
Réponses
7
Affichages
861
job75
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
S
  • Question Question
XL 2021 Modification d'une macro qui créer des feuilles Excel et les complète
Réponses
2
Affichages
371
sessef1
S
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
562
jgav
A
  • Question Question
XL 2016 Contrôle de la pose de 10 jours de congés consécutifs
Réponses
5
Affichages
780
djidji59430
R
  • Résolu(e)
XL 2016 Ecrire dans deux cellules de feuilles différentes en même temps
Réponses
6
Affichages
703
ReneDav14000
R
S
  • Question Question
Microsoft 365 Afficher dans un tableau les noms des feuilles d'un fichier excel ainsi que le nombre de lignes renseignées pour chacune d'elle.
Réponses
2
Affichages
587
chris
  • Résolu(e)
XL 2013 Masquer un shape (forme) définit dans toutes les feuilles
2
Réponses
17
Affichages
1 K
sylvanu
L
  • Question Question
Microsoft 365 Comment supprimer différentes lignes sur mes feuilles Excel ?
Réponses
4
Affichages
722
job75
L
  • Question Question
Microsoft 365 Copier les mêmes lignes venant de différentes feuilles dans une feuille "Summary"
Réponses
3
Affichages
688
liod21
L
J
  • Question Question
Power Query Aide - Fonctions pour afficher le détail des inscrits (nom, prénom date de naissance) parmi une liste de différents stages.
Réponses
6
Affichages
677
Hasco
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…