Discussion :

[patanar]

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 :

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

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

[Jean-Philippe André]

Bonjour,

tu peux utiliser l'objet Range
exemple :

Code :

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

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

[drakkar_agfa]

Bonjour,

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

Code :

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

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!

[patanar]

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 :

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

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 :

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

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

[drakkar_agfa]

Essais ce code :

Code :

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

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 :

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

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