Discussion :

[Nico451]

Bonjour,

J'ai un petit souci au début de ma boucle, j'ai N1 = "0" & N, N étant mon premier numéro. Quand je boucle I fois.

Quand je passe la première fois dans ma boucle à la sortie j'ai bien 01 pour le premier, mais au second tous j'obtiens 2.

Voici un bout de mon code, j'ai plusieurs dossier et fichier qui sont modifiés pat cette boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub TextBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim I As String
Dim N As Variant
Dim N1 As Integer
Dim MonDossier4 As String
Dim MonDossier5 As String
Dim l As Integer
 
MonDossier4 = "c:\tata"  ' exemple de dossier
 
    If KeyCode = 13 Then
     N = TextBox12.Value
     I = TextBox9.Value
 
If TextBox15 = 1 Then
N1 = N
End If
If TextBox15 = 2 Then
N1 = "0" & N
End If
 
 
        While N1 <= I
 
                l = 0
 
             MonDossier5 = MonDossier4 & "\" & "titi" & N1 & "_" & TextBox2
             If DossierExiste(MonDossier5) = True Then
                MsgBox "Le dossier existe..."
             Else
              MkDir (MonDossier5)
             End If
 
                N1 = N1 + 1
 
        Wend
 
    End If
End Sub

Merci de votre aide.

[Patrice740]

Bonjour,

Un excellent tuto sur les variables, les types de variables et les conversions : http://silkyroad.developpez.com/VBA/LesVariables/

Note : Textbox.Value renvoie un type String.

[Theze]

Bonjour,

Avec :

Code :

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

Dim N1 As Integer

ça m'étonnerai que tu puisses obtenir "01" avec ceci :

Code :

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

N1 = "0" & N

avec :

Code :

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

Dim N1 As String

là oui !

[Pierre Fauconnier]

Salut.

[...]

Quand je passe la première fois dans ma boucle à la sortie j'ai bien 01 pour le premier, mais au second tous j'obtiens 2.[...]

Ce n'est pas possible, ça. Tu ne saurais pas obtenir "01", mais tu vas obtenir 1 ("0" & 1 sera transtypé en integer). Après, tu vas forcément obtenir 2 ("0" & 2 transtypé donnera 2).

Si tu dois avoir une chaine de caractères sur N1, type N1 en string et pas en integer, tu obtiendras alors bien "01" puis "02", "03", ..., "010", "011".

Si tu nous disais en français (pas en "vba") ce que tu souhaites réaliser? Ce serait plus simple, à mon avis.

[unparia]

Bonjour
regarde ce que fait ceci :

Code :

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

1
2
3
4
Dim N1 As Integer, toto As String
N1 = 5
toto = "blabla"
MsgBox toto & Format(N1, "000")

cela devrait provoquer en toi un déclic pour la construction de ta chaîne en ligne 27

[Nico451]

Merci à vous.

J'ai put résoudre mon problème avec ce bout de code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Dim I As Integer
Dim N As Integer
Dim N1 As String
 
       While N <= I
            If TextBox15 = 2 Then
                If N < 10 Then
                    N1 = "0" & N
                Else
                    N1 = N
                End If
            ElseIf TextBox15 = 3 Then
                If N < 10 Then
                    N1 = "00" & N
                ElseIf N > 9 And N < 100 Then
                    N1 = "0" & N
                Else
                    N1 = N
                End If
            Else
                N1 = N
            End If

[unparia]

[Theze]

Bonjour,

Utilises String() avec Format() :

Code :

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

1
2
 
N1 = Format(N, String(TextBox15.Text, "0"))