Boucle avec variable à 2 digits

Bonjour,

Nouveau problème pour moi.

Je souhaite effectuer une boucle for qui va de 01, 02, .. à 15
Donc que ma variable reste un integer tout en ayant 2 digits.

J'ai essayé avec la fonction 'format', en vain

Donc que la variable soit un entier à 2 digits, j'ai besoin qu'il possède 2 digits car cette variable est en parallèle présente dans le nom de mes feuilles excel et également dans des fichiers que j'appelle...

D'ailleurs si vous avez une idée pour un autre problème un peu plus ancien:
http://www.developpez.net/forums/d13...-depuis-excel/

Merci :)

Pas possible

Par contre facile à faire

Code:

---

1 2 3 4 5 6

For i = 1 to 15 If len(cstr(i))=1 then Sheets("Feuil" & "0" & i).cells(.... Else Sheets("Feuil" & i).cells(... next i

---

Génial !

Simple mais efficace, j'aime bien :)

Citation:

---

Envoyé par tiber33

J'ai essayé avec la fonction 'format', en vain

---

C'est pourtant facilement possible : Format$(i, "00") ! :roll:

J'aurais bien aimé voir ton code …

On peut boucler sur un string ?

Non mais bon : j'ai pourtant essayé avec Format ‼

La prochaine fois, comme au Poker, une pour voir …

Code:

---

1 2 3

For i% = 1 To 15 Worksheets("Feuil" & Format$(i, "00")). … Next

---

Ah à l'intérieur de la boucle!

Oui c'est une autre possibilité, je disais impossible pour boucler sur un string.

à mon avis il changeait le format dans les bornes de la boucle

Marc-L,

Désolé je ne vois ton post que maintenant, voici le code utilisé, ça marche plutôt bien et c'est tout simple ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

For c = 1 To 15 If Len(CStr(c)) = 1 Then   Sheets("feuille 0" & c).Select action...   Else   Sheets("feuille " & c).Select actions...   End if Next c

---