Discussion :

[pouponsaltro]

Bonjour à tous, voila mon problème :
Comment incrémenter un nombre faisant parti du nom de la variable ?
Par exemple faire une action sur variable1, variable2, variable3 ... variable51 en utilisant une boucle FOR.

Dans ma situation, je ne peux pas utiliser un tableau puisque la variable à incrémenter est le nom d'un TEXTBOX dans un FORM.
Concrètement, voila ce que je fais :

Code :

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

1
2
3
4
ThisWorkbook.Worksheets(4).Range("A" & ligne) = TextBox1.Text
ThisWorkbook.Worksheets(4).Range("B" & ligne) = TextBox2.Text
ThisWorkbook.Worksheets(4).Range("C" & ligne) = TextBox3.Text
ThisWorkbook.Worksheets(4).Range("D" & ligne) = TextBox4.Text

La prochaine version de ma macro comportera 36 éléments... c'est quand même mieux une boucle for de 1 ligne que 36 lignes à la c** !

Merci d'avance

[Didier Gonard]

Bonjour,


voici un exemple d'un test en cours,

Code :

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

1
2
3
4
5
For I = 1 To 5 'initialise les combos BB
    For Each cell In Worksheets("BaseListes").Range("Toto")
        If cell.Value <> "DG-Solutions" Then Me.Controls("cboTypeBB" & I).AddItem cell.Value
    Next cell
Next I

regardes dans la FAQ, tout est expliqué et largement présent

cordialement,

Didier

[mercatog]

Bonjour
si tes textbox nommées TextBoxi correspondant à la colonne i

Code :

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

1
2
3
4
5
Dim i As Byte
 
For i = 1 To 36
    ThisWorkbook.Worksheets(4).Cells(ligne, i) = Me.Controls("TextBox" & i).Text
Next i

[pouponsaltro]

Merci à vous 2, ça marche nickel !
Et par curiosité, cette commande "Me.Controls" , c'est quoi en C ? Pascal ?
Encore pour votre réactivité !

[Didier Gonard]

Controls, collection

Chaque contrôle appartenant à la collection Controls possède en tant qu'objet un index unique dont la valeur peut être un nombre entier ou une chaîne. La valeur d'index du premier contrôle d'une collection est 0 ; la valeur du deuxième contrôle est 1, etc. Cette valeur indique l'ordre dans lequel les contrôles ont été ajoutés à la collection.

Si l'index est une chaîne, il représente le nom du contrôle. La propriété Name d'un contrôle spécifie aussi un nom de contrôle.

Vous pouvez utiliser la collection Controls pour énumérer ou compter individuellement les contrôles et pour définir leurs propriétés. Par exemple, vous pouvez énumérer la collection Controls d'une feuille particulière et affecter à la propriété Height de chaque contrôle une valeur particulière.

Note L'instruction For Each...Next est utile pour énumérer une collection.

Me se réfère à l'objet parent du contrôle, ici l'Userform.

Me
Voir aussi

Le mot clé Me se comporte comme une variable déclarée de façon implicite. Il est automatiquement disponible pour toutes les procédures d'un module de classe. Lorsqu'une classe peut comporter plusieurs instances, le mot clé Me offre la possibilité de faire référence à l'instance de la classe dans laquelle le code est exécuté. Il s'avère particulièrement utile pour passer les informations concernant l'instance d'une classe en cours d'exécution à une procédure d'un autre module. Par exemple, supposez que la procédure suivante se présente dans un module :

PS : à savoir que les modules de feuilles, USF, Workbook sont des modules de classe particuliers.

cordialement,

Didier