Simplifier et modifier une macro
Bonjour, j'aimerais savoir comment je peux réduire sur ma macro (
) qui fonctionne sur le fichier suivant :
?
Sachant que mon fichier d'origine a un nombre de lignes qui peut changer, comment adapter ma macro ?
Hello,
Une propostion :
Sub Macro1()
'Feuille ALLER/RETOUR
Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:="=Aller" _
, Operator:=xlOr, Criteria2:="=Retour"
Range("A1").CurrentRegion.Copy
Sheets.Add After:=Sheets(1)
ActiveSheet.Name = "Aller_Retour"
ActiveSheet.Paste
Application.CutCopyMode = False
'Feuille GAZ COMBUSTIBLE
Sheets(1).Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:= _
"Gaz combustible"
Sheets(1).Range("A1").CurrentRegion.Copy
Sheets.Add After:=Sheets(1)
ActiveSheet.Name = "Gaz_combustible"
ActiveSheet.Paste
Application.CutCopyMode = False
'Feuille EAU CHAUDE
Sheets(1).Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:= _
"Eau chaude"
Sheets(1).Range("A1").CurrentRegion.Copy
Sheets.Add After:=Sheets(1)
ActiveSheet.Name = "Eau_chaude"
ActiveSheet.Paste
Application.CutCopyMode = False
'Feuille EAU FROIDE
Sheets(1).Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:= _
"Eau froide"
Sheets(1).Range("A1").CurrentRegion.Copy
Sheets.Add After:=Sheets(1)
ActiveSheet.Name = "Eau_froide"
ActiveSheet.Paste
Application.CutCopyMode = False
End SubR@g
Merci, il s'agit de la première partie de ma macro. Comment simplifier la macro :
pour qu'elle s'adapte à un fichier :
qui peut être variable ?
Quel est le nom de ta macro exactement car dans ton fichier txt tu as plusieurs macros...
Macrotillage Macro
mep Macro feuil3
'mep Macro feuil4 (gaz)
Pourquoi tu veux la réduire ? Tu as un message d'erreur macro trop grande ?
R@g
Bonjour,
Tu peux déjà supprimer toutes les lignes ou tu as :
ActiveWindow.ScrollColumn = ...
ActiveWindow.ScrollColumn = ...Elles ne servent à rien.
A+
Bonjour,
Pour le reste fournir la totalité de la macro : avec le classeur Kivabien avec.
Le bout de macro que tu joins est incompréhensible. (pour moi.
A+