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

[Perceval973]

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

 

[Phil69970]

@Perceval973

Alors je me répète mais le code que tu as fourni au post #4 ne fonctionne pas des la 3eme ligne

Sub Nettoyage_Synthese_Mercredi_L1()
'
' Nettoyage_Synthese Macro_Mercredi_L1
'
Range("A1").Select
Application.ScreenUpdating = Faux <== Ceci ne fonctionne pas et est erroné

Et pourtant tu dis :

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

 

[Perceval973]

@Perceval973

Alors je me répète mais le code que tu as fourni au post #4 ne fonctionne pas des la 3eme ligne



Et pourtant tu dis :

Chez moi cela fonctionne

 

[cathodique]

Ce sont les mêmes codes, mais je cherche aussi à avancer par moi même

Phil a raison, le code ne fonctionnera pas.
Je comprends que tu veuilles avancer. Le forum est dédié à l'entraide.
Nous essayons de t'aider, c'est pour cela que je t'ai demande de nous expliquer ce que tu veux faire.

Ces 2 lignes montrent que tu fusionnes les cellules avant même de démarrer l'enregistreur de macro. Du coup, on se sait pas quelles cellules tu as fusionnées.

Cells.Select
Selection.UnMerge

 

[Perceval973]

Phil a raison, le code ne fonctionnera pas.
Je comprends que tu veuilles avancer. Le forum est dédié à l'entraide.
Nous essayons de t'aider, c'est pour cela que je t'ai demande de nous expliquer ce que tu veux faire.

Ces 2 lignes montrent que tu fusionnes les cellules avant même de démarrer l'enregistreur de macro. Du coup, on se sait pas quelles cellules tu as fusionnées.

Cells.Select
Selection.UnMerge

Non je ne les fusionne pas, je sélectionne toute la feuille et je rompt toutes les fusions
Comme je l'ai dit a un moment, je récupère un classeur existant, je ne suis pas maitre de ce que les autres ont fait avant moi
J'essaie au mieux de nettoyer la feuille que j'ai a traiter

 

[cathodique]

Chez moi cela fonctionne

La ligne du post#9

Application.ScreenUpdating = Faux

cette écriture est fausse, c'est plutôt comme ceci

Application.ScreenUpdating = False
'VBA ne connait pas le Français'

 

[cathodique]

Non je ne les fusionne pas, je sélectionne toute la feuille et je rompt toutes les fusions
Comme je l'ai dit a un moment, je récupère un classeur existant, je ne suis pas maitre de ce que les autres ont fait avant moi
J'essaie au mieux de nettoyer la feuille que j'ai a traiter

Désolé, je voulais dire défusionner. On ne sait pas quelles sont les cellules défusionnées.

 

[Phil69970]

@Perceval973

Comme @cathodique, j'ai beau regardé tes 2 codes que tu as fourni je ne comprends pas ce que tu veux faire cela par dans toutes les directions et on ne comprends rien à ton code ni à ce que tu veux faire .

En l'état je suis incapable de t'aider faute de vision et de compréhension de ce que tu cherches à faire.

Peut être une traduction en français de ce que tu veux faire mais il faut quelle soit bien détaillée
Exemple
Je veux faire ceci sur les cellules X ou Y
Ensuite cela sur les cellules Z etc........

 

[Phil69970]

Chez moi cela fonctionne

Si ceci fonctionne chez toi

Application.ScreenUpdating = Faux

Alors tu as un excel complètement différent de nous tous et il faut t'adresser directement à Bill Gates pour qu'il t'aide

 

[cathodique]

@Perceval973

Comme @cathodique, j'ai beau regardé tes 2 codes que tu as fourni je ne comprends pas ce que tu veux faire cela par dans toutes les directions et on ne comprends rien à ton code ni à ce que tu veux faire .

En l'état je suis incapable de t'aider faute de vision et de compréhension de ce que tu cherches à faire.

Peut être une traduction en français de ce que tu veux faire mais il faut quelle soit bien détaillée
Exemple
Je veux faire ceci sur les cellules X ou Y
Ensuite cela sur les cellules Z etc........

Ce qu'il n'a pas compris. C'est de décrire les différentes étapes lors de l'enregistrement de sa macro.

 

[Staple1600]

Bonjour le fil

[Pour infos]
Est-ce que ce qui ne génère pas d'erreur dans l'éditeur VBE fonctionne pour autant ?
Chez moi, cette macro "fonctionne"

Sub Test()
Application.ScreenUpdating = Faux
End Sub

Fonctionne dans le sens, où mon Excel ne bronche pas 😉

 

[cathodique]

Bonjour le fil

[Pour infos]
Est-ce que ce qui ne génère pas d'erreur dans l'éditeur VBE fonctionne pour autant ?
Chez moi, cette macro "fonctionne"

Sub Test()
Application.ScreenUpdating = Faux
End Sub

Fonctionne dans le sens, où mon Excel ne bronche pas 😉

Bonjour @Staple1600
en retour de ta procédure

 

[job75]

Bonjour le forum;

Alors je me répète mais le code que tu as fourni au post #4 ne fonctionne pas des la 3eme ligne

Bah s'il n'y a pas Option Explicit en haut cette instruction fonctionne car la variable Faux est considérée par défaut comme Variant et initialisée à Empty donc à 0 ou False.

S'il y a Option Explicit il y a bug car Faux n'est pas déclarée.

A+

 

[Perceval973]

Bonjour le forum;

Bah s'il n'y a pas Option Explicit en haut cette instruction fonctionne car la variable Faux est considérée par défaut comme Variant et initialisée à Empty donc à 0 ou False.

S'il y a Option Explicit il y a bug car Faux n'est pas déclarée.

A+

Voila, j'ai corrigé ma macro...

Sub Nettoyage_Synthese_Mercredi_L1()
'
' Nettoyage_Synthese Macro_Mercredi_L1
'
Range("A1").Select
Application.ScreenUpdating = False
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
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Delete
Next
Application.ScreenUpdating = True
End Sub

 

[cathodique]

Voila, j'ai corrigé ma macro...

Sub Nettoyage_Synthese_Mercredi_L1()
'
' Nettoyage_Synthese Macro_Mercredi_L1
'
Range("A1").Select
Application.ScreenUpdating = False
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
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Delete
Next
Application.ScreenUpdating = True
End Sub

C'est ça ton explication???

 

[Perceval973]

C'est ça ton explication???

Bon ! Avec vos sarcasmes j'ai complètement perdu le fil...
Est-ce qu'on pourrait recommencer sur de nouvelles bases ?

Je n'ai jamais reçu de formation ni sur Excel ni en VBA, j'ai tout appris seul en consultant des sources internet
La dernière fois que j'ai eu a faire des macros dans le cadre professionnel c'était en 2003 (j'ai 59 ans et à la base je suis mécanicien)
Auriez-vous l'amabilité de m'aider ?

J'ai essayé de reformuler ma demande... J'espère que cette fois j'ai été assez clair et que j'ai respecté la charte du forum...
Je recommence donc au post suivant 😎