Comment interpréter une variable

Bonjour à tous,

Dans une boucle for i = 1 to x …next, je souhaite concatener 2 variables et me servir de ce résultat pour affecter une valeur à ma cellule comme suit

Code:

---

1 2 3 4 5 6

For i = 1 To 5 MaCellule = TextBox & i ' MaCellule = "TextBox1" ActiveCell.Value = MaCellule ' là je voudrais récupérer la valeur qui est dans le Texbox1 de mon Userform et je récupère en fait TextBox1 Next

---

Y a t il une solution pour interpréter MaCellule et avoir la valeur réelle.

j'ai essayé &MaCellule mais je plante dans le code

Merci de votre aide

Bonjour,

tu peux utiliser l'objet Range
exemple :

Code:

---

1 2 3 4 5

For i = 1 to 5 MaCellule = "A" & i Range(MaCellule).Activate Msgbox "Cellule " & MaCellule & " activée" Next i

---

Bonjour,

Je crois qu'il parlait de quelque chose comme ceci:

Code:

---

1 2 3 4 5

For x = 1 To 10 If Me.Controls("CheckBox" & x) = True Then nbChecked = nbChecked + 1 End If Next x

---

Dans l'exemple, il compte le nombre de cases cochés (de 1 à 10) dans mon USF.

Il te reste à l'adapter!

Mon cas de figure,

j'ai un Userform avec 5 TextBox et 2 CommandButton (Valider, Sortie)

J'effectue la saisie de mes 5 TextBox et je clique sur "Valide". Dans le code de "Sub CommandButton1_Click()" voilà ce que je souhaite faire :
Je suis positionné sur une cellule (disons x), je copie la valeur de mon TextBox1 dans la cellule active (x), puis je me déplace d'une cellule vers la droite avec DeplaceCellActive, je copie le contenu de TextBox2, puis je me déplace d'une cellule vers la droite etc jusqu'à i = 5.
je comptais me servir de la valeur de i dans la boucle pour définir de quel TextBox je devais récupérer la valeur. La valeur de la variable MaCellule étant la concaténation de "TexBox" + i je pensais que VBA interpréterait ActiveCell.Value = MaCellule comme si j'avais écris ActiveCell.Value = TextBox1, puis TextBox2 etc jusqu'à 5 or, dans ma cellule active (x) se copie la valeur TextBox1 et non la valeur contenue dans TextBox1,2,3 etc.

Code:

---

1 2 3 4 5 6

For i = 1 To 5 MaCellule = "TextBox" & i ActiveCell.Value = MaCellule Call DéplaceCellActive 'Range("A2") = TextBox2 Next

---

---------------

Code:

---

1 2 3 4 5 6

Sub DéplaceCellActive() Dim LigVar, ColVar LigVar = 0 ColVar = 1 Selection.Offset(LigVar, ColVar).Select End Sub

---

J'espère avoir été plus clair.

Merci de ton aide

Essais ce code :

Code:

---

1 2 3 4 5 6 7

Dim i As Integer   For i = 1 To 5   Worksheets("Feuil1").Cells(1, i) = Me.Controls("TextBox" & x).Value   Next i

---

De 1 à 5 il place tes textbox dans la colonne A,B,C,D et E de la ligne 1.
Il est préférable d'utiliser cette technique (sans sélection et select)!

Mais si jamais tu tiens à utiliser le offset, regarde ce code, il n'est pas nécessaire de créer une fonction pour le déplacement.

Code:

---

1 2 3 4 5 6

For i = 1 To 5   ActiveCell = Me.Controls("TextBox" & x).Value ActiveCell.Offset(0, 1).Select   Next i

---