Bonjour
Je cherche la façon d'écrire une macro qui serait répétée sur toutes les feuilles d'un classeur si ces feuilles commencent par "Synt".
J'ai commencé par écrire ceci, mais cette macro fonctionne uniquement sur la feuille sélectionnée. La macro ne se répète pas sur toutes les feuilles commençant par "synt" dans ce classeur.
Quelqu'un peut-il m'aider ?
Merci beaucoup
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub Copierlesdonnéessurlesfeuillessynthèse() Dim xlwksheet As Worksheet For Each xlwksheet In ActiveWorkbook.Sheets If xlwksheet.Name Like "Synt*" Then Range("E44").Select ActiveCell.FormulaR1C1 = "47.3%" Range("E46").Select ActiveCell.FormulaR1C1 = "42.3%" Range("E47").Select End If Next xlwksheet End Sub
Partager