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.
Partager