Discussion :

[tiber33]

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

[EngueEngue]

Pas possible

Par contre facile à faire

Code :

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

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

[tiber33]

Génial !

Simple mais efficace, j'aime bien

[Marc-L]

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

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

J'aurais bien aimé voir ton code …

[EngueEngue]

On peut boucler sur un string ?

[Marc-L]

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

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

Code :

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

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

[EngueEngue]

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

[tiber33]

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 :

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

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