Discussion :

[greg bono]

Bonjour,

Je viens de créer une macro qui fonctionne très bien. Malheureusement, elle fonctionne uniquement sur l'onglet sur lequel je me trouve, or j'apprécierais qu'elle fonctionne sur tous les onglets de mon classeur.
On me dit qu'il faut créer une boucle afin d'y parvenir mais je ne sais pas comment faire... est ce bien la solution? Et si oui comment faire?

Si quelqun pouvait m'aider ca serait formidable.

Merci d'avance.

Greg.

[ThierryAIM]

Bonjour et bievenue sur les forums de developpez.com

As-tu lu ceci :
http://www.developpez.net/forums/viewtopic.php?t=470177

vu le contenu de ta question, ca me surprendrait

(Décidement, c'est le jour aujourd'hui )

[Megaxel]

Allez, Thierry, c'est vendredi...
Greg, regarde la collection "WorkSheets()" de ton "ActiveWorkbook".
Tu devrais t'en sortir sans mal.

[ThierryAIM]

Allez, Thierry, c'est vendredi...

justement, pour aujourd'hui, trop, c'est trop

[greg bono]

Merci pour la piste mais peux tu m'en dire un peu plus stp...

[Megaxel]

Oui:
Tape "WorkSheets" dans ton éditeur, mets ton curseur dessus, et fais F1 !!

Ça te dira que cette collection est celle des onglets de ton classeur, numérotés, ou appelables (c'est français, ça...?) par leur petit nom,et donc, si tu mets ton code "pour un onglet" dans une boucle sur les éléments de cette collection, et que tu fais précéder toutes tes indications de cellules ou de plage (Range() ou Cells()) par WorkSheets(i) , tu pourras appliquer ton code à tous les onglets les uns après les autres.

C'est vrai qu'il est long, ce vendredi, quand même...

[SfJ5Rpw8]

tiens bon week-end ...

Code :

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

1
2
3
4
5
6
7
8
Sub Maboucle()
 Dim sh As Worksheet
 For Each sh In ActiveWorkbook.Worksheets
 'Et voilà dans la boucle tu fais ce que tu ve
 ' par exemple tu met le nom de l'onglet dans la cellule A1..
    sh.Range("A1") = sh.Name
 Next
End Sub