O
olivier
Guest
Bonjour à toutes et à tous
pouvez vous m'aider a simplifier cette macro
pour pouvoir imprimer toutes les villes je suis obligé de repeté
plusieur fois la meme macro de base peut on faire plus simple ?
Merci d'avance pour vos réponses......
a bientôt @ +
Range("B2").Select
ActiveCell.FormulaR1C1 = "orleans"
Range("A5:F21").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"B1:B2"), CopyToRange:=Range("A24"), Unique:=False
Range("A24:F28").Select
Selection.ClearContents
Range("A24:F28").Select
Selection.PrintOut Copies:=1, Collate:=True
puis meme macro avec les autre villes Paris , Bordeaux , Nantes .....
pouvez vous m'aider a simplifier cette macro
pour pouvoir imprimer toutes les villes je suis obligé de repeté
plusieur fois la meme macro de base peut on faire plus simple ?
Merci d'avance pour vos réponses......
a bientôt @ +
Range("B2").Select
ActiveCell.FormulaR1C1 = "orleans"
Range("A5:F21").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"B1:B2"), CopyToRange:=Range("A24"), Unique:=False
Range("A24:F28").Select
Selection.ClearContents
Range("A24:F28").Select
Selection.PrintOut Copies:=1, Collate:=True
puis meme macro avec les autre villes Paris , Bordeaux , Nantes .....