Discussion :

[Fealendril]

bonjour,
mon niveau de VBa étant plutot médiocre, je bloque sur une macro et peut etre pourriez vous m'aider.

voila, ma macro consiste a selecionner toutes les feuille de la n°3 jusqu'a la derniere, dans le but d'effectuer une meme operation sur ces feuilles.

Code :

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

1
2
3
4
for i = 3 to sheets.count
???
???
next i

merci de votre aide

[Pollux]

Il faut en sélectionner une par une et ensuite faire l'opération voulue.

Code :

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

1
2
3
4
5
 
for i = 3 to sheets.count 
 Worksheets(i).activate
 //traitement
next i

[Fealendril]

c'est ce que j'avais fait, mais en fait ce que je voudrais c'est que ça selectionne toutes les feuilles comme si on le fait manuelement en appuyant sur CTRL

[Pierre Fauconnier]

Bonjour

Depuis XL2000 (à vérifier pour XL97, mais je pense que ce n'était pas implémenté), tu peux utiliser un argument avec Select d'un objet Sheet...

Code :

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

1
2
3
4
 
    For i = 3 To Worksheets.Count
        Worksheets(i).Select Replace:=False
    Next i

Cela a pour effet d'ajouter la feuille sélectionnée aux feuilles qui le sont déjà...

Ok?

Pierre Fauconnier

[Fealendril]

Merci, ça marche

/kiss

[SfJ5Rpw8]

voir aide en ligne ... appliqué sur une feuille Select(True) .. sélectionne la feuille en ré-initialisant la sélection , Select(False) Agrandit la sélection..

cela donne :

Code :

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

1
2
3
For i = 3 To Sheets.Count
  Sheets(i).Select (i = 3)
  Next i