Discussion :

[johndeuf]

bonsoir a tous

juste pour savoir comment appliquer une macro en boucle sur toutes les feuilles de mon classeur.
voila le code que j ai tappé mais qui ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim k as integer, i as integer
K = sheets.count
 
for i = 1 to k
ActiveSheet = Sheets(i)
.....Macro....
next i

ou est le probleme ?

[SilkyRoad]

bonjour

voila le code que j ai tappé mais qui ne fonctionne pas

peux tu être plus précis?

à tout hasard tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim k as integer, i as integer
K = sheets.count
 
For i = 1 To k
    Sheets(i).Activate
    .....Macro....
Next i

une autre possiblité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Déclare la variable objet Worksheet 
Dim Ws As Worksheet 
 
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris 
'en compte. 
'ThisWorkbook correspond à l'objet classeur contenant la macro 
For Each Ws In ThisWorkbook.Worksheets 
    'Renvoie le nom de chaque feuille 
    MsgBox Ws.Name 
Next Ws

D'autres infos sur la manipulation des onglets

http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/



bonne journée
michel

[johndeuf]

une fois de plus,
merci Michel

bon reveillon.