Discussion :

[drthodt]

Bonjour,

J’aimerais créer une fonction qui parcourirait toutes les feuilles de mon classeur et réaliserait un traitement identique sur toutes.
Pour arriver à ça j’ai créé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ParcoursOnglets()
 
  Dim Ws As Worksheet
 
  For Each Ws In Worksheets
      MsgBox Cells(1, 1)
 
  Next Ws
 
End Sub

Normalement ce code doit parcourir toutes les feuilles et me renvoyer la valeur de la cellule A1 de chacune de mes feuilles.
Sur le classeur de test (en pièce jointe) j’ai trois feuilles avec respectivement 1,2 et 3 en A1 donc à chaque validation de ma message box je devrais avoir la séquence 1-2-3.
Or j’obtiens systématiquement 1-1-1.
Pourquoi ? Peut-etre à cause de Worksheets? Je ne sais pas vraiment comment définir cela (je débute). Que changer dans mon code ?
Merci d’avance pour votre aide,
M.

[ouskel'n'or]

Code :

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

1
2
3
  For Each Ws In ActiveWorkbook.Worksheets
      MsgBox Ws.Cells(1, 1)
  Next Ws

[drthodt]

Merci je viens effectivement de m'apercevoir que j'avais oublié de préciser de quel Cells(1,1) il s'agit.

[drthodt]

Bonjour à tous,
Dernier petit détail: ceci fonctionne bien dans mon classeur courant, mais en fait ma macro est lancée depuis un fichier Excel principal récapitulatif.
Ce ne sont pas les feuilles de ce fichier que je veux parcourir, mais l'ensemble des feuilles:
- d'un autre fichier qui est est ouvert en même temps et dont j'ai le nom
- dont je ne connais et ne peux utiliser ni le nom des onglets, ni leur nombre.

Comment modifier ma boucle pour ceci?et comment faire référence aux pages/onglets de l'autre classeur de façon générique?
Merci d'avance pour votre aide,
M

[ouskel'n'or]

Code :

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

1
2
3
  For Each Ws In Workbooks("Ton_Bouc.xls").Worksheets
      MsgBox Ws.Cells(1, 1)
  Next Ws

[drthodt]

Merci t'es royal Je clos.
Bon appétit.