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.