Discussion :

[Ardiden31]

Bonjour,
J'ai plusieurs TxtBox dans mon UserForm et pour récupérer les valeurs des TxtBox j'ai mis en place une boucle mais qui ne s'exécute pas correctement.

Voici l'ancien 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
 
Private Sub ButtonOk_Click()
 
Range("I2") = TextBox5
Range("J2") = TextBox6
Range("K2") = TextBox7
 
Range("I3") = TextBox8
Range("J3") = TextBox9
Range("K3") = TextBox10
 
Range("I4") = TextBox11
Range("J4") = TextBox12
Range("K4") = TextBox13
 
End Sub

Et voici le nouveau code avec la 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
 
Private Sub ButtonOk_Click()
'
j = 5
k = 1
l = 2
'
For i = 2 To 13
Range("I" & i) = Me.Controls("TextBox" & i)
Range("J" & i) = Me.Controls("TextBox" & j + k)
Range("K" & i) = Me.Controls("TextBox" & j + l)
j = j + 1
Next i
'
Unload Me
'
End Sub

En fait la boucle ne me prend pas en compte les valeurs k et l.

Merci pour votre aide.

Loumie.

[a_diard]

Pour commencer,je crois qu'il y a un problème ici

Code :

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

Range("I" & i)

et qu'il faudrait mettre

Code :

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

Range("I" &format( i))

[riaolle]

Bonjour,
Je ne vois pas trop pourquoi il y aurait un problème avec

Code :

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

Range("I" & i)

Essaie peut-être de déclarer tes variables avant de les utiliser.

Code :

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

1
2
3
Dim i as Integer
Dim j as Integer
Dim k as Integer

Ensuite, pourquoi as-tu besoin de 3 variables étant donné que k et l ne bouge pas et que j bouge avec le même pas que i. Ton code équivaut à:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ButtonOk_Click()
   Dim i As Integer
 
   For i = 2 To 13
      Range("I" & i) = Me.Controls("TextBox" & i)
      Range("J" & i) = Me.Controls("TextBox" & i + 4)
      Range("K" & i) = Me.Controls("TextBox" & i + 5)
   Next i
 
   Unload Me
 
End Sub

[Ardiden31]

Ensuite, pourquoi as-tu besoin de 3 variables étant donné que k et l ne bouge pas et que j bouge avec le même pas que i. Ton code équivaut à:

J'ai fais plusieurs tests avec les variables i et j puis juste une variable i et voyant que le résultat était toujours faux j'ai testé avec plus de variables mais le résultat est le même.


J'ai repris votre code mais je retombe sur le même résultat.

[riaolle]

Pourrais-tu nous dire plus précisemment "ce qui ne marche pas"? En quoi ça ne marche pas? As-tu une erreur? Si oui, laquelle? Si non, que se passe-t-il lorsque tu lances la procédure? Quels sont les résultats?

[Ardiden31]

En fait je voudrais ce résultat quand :
Textbox5 = 1, Textbox6 = 1, Textbox7 = 1
Textbox8 = 2, Textbox9 = 2, Textbox10 = 2
Textbox11 = 3, Textbox12 = 3, Textbox13 = 3
Textbox14 = 4, Textbox15 = 4, Textbox16 = 4



Mais avec mon code et vos propositions je me retrouve avec ca :

[BENNASR]

bonsoir

J'ai plusieurs TxtBox dans mon UserForm et pour récupérer les valeurs des TxtBox j'ai mis en place une boucle mais qui ne s'exécute pas correctement.

je crois que c'est l'inverse non ??? car ça je crois que tu vas alimenter votre feuille de calcul et non pas récupérer la valeur d'un textbox ??

[Ardiden31]

bonsoir

je crois que c'est l'inverse non ??? car ça je crois que tu vas alimenter votre feuille de calcul et non pas récupérer la valeur d'un textbox ??

Oui j'ai inversé j'alimente ma feuille avec les valeurs des txtbox

[Menhir]

Pour ce qui est de ton problème, essaye d'ajouter des parenthèse pour lever l'ambiguïté entre le & et le +.

Code :

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

1
2
Range("J" & i) = Me.Controls("TextBox" & (j + k))
Range("K" & i) = Me.Controls("TextBox" & (j + l))

Et prends l'habitude de déclarer tes variables avec leur type.

Code :

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

1
2
Dim i As Long, j As Long
Dim k As Integer, l As Integer

En fait la boucle ne me prend pas en compte les valeurs k et l.

Pourquoi utiliser des variables pour k et l alors que leurs valeurs sont constantes (ne changent jamais) ?

Ton code serait plus simple ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ButtonOk_Click()
   Dim i As Long
 
   For i = 2 To 13
      Range("I" & i) = Me.Controls("TextBox" & i)
      Range("J" & i) = Me.Controls("TextBox" & (i + 4))
      Range("K" & i) = Me.Controls("TextBox" & (i + 5))
   Next i
   Unload Me
End Sub

Mais si tu veux faire correspondre ton second code au premier, il y a une erreur dans ta boucle For To.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ButtonOk_Click()
   Dim i As Long
 
   For i = 2 To 4
      Range("I" & i) = Me.Controls("TextBox" & (3 * i - 1))
      Range("J" & i) = Me.Controls("TextBox" & (3 * i))
      Range("K" & i) = Me.Controls("TextBox" & (3 * i + 1))
   Next i
   Unload Me
End Sub

[Ardiden31]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ButtonOk_Click()
   Dim i As Long
 
   For i = 2 To 4
      Range("I" & i) = Me.Controls("TextBox" & (3 * i - 1))
      Range("J" & i) = Me.Controls("TextBox" & (3 * i))
      Range("K" & i) = Me.Controls("TextBox" & (3 * i + 1))
   Next i
   Unload Me
End Sub

Je n'avais pas vu la publication de Menhir qui résout mon problème

Merci à vous tous pour votre aide.