Discussion :

[GTbenj]

salut à tous, je précise d'emblée que je suis novice en VBA, donc pardonnez moi si ma question peut paraître simple

voilà je m'initie aux contrôles pour les UserFrom UF grâce à ce magnifique document
http://silkyroad.developpez.com/VBA/ControlesUserForm/

et là j'ai un petit soucis pour faire une boucle, afin de rentrer dans des cellules ce qui sera rentrer dans les TextBox,

Voilà la formule proposée:

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    Dim i As Integer
 
    For i = 1 To 10
    Cells(i, 1) = Me.Controls("TextBox" & i)
    Next i
End Sub

Mais dés que je la lance, il me marque:
"erreur de compilation: Membre de méthode ou de données introuvable" pointant du doigt le "Me.controls"


Alors toute aide est bienvenue

[Jean-Pierre49]

Bonjour

Verifie que tes textBox s'appel bien TextBox1 à TextBox10

et essais

Code :

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

Cells(i, 1) = Me.Controls("TextBox" & i).Value

Tu dis

[GTbenj]

ta solution fonctionne, alors je vais en demander un peu plus, et est ce que vous pouvez m'expliquer pourquoi cela ne marchait pas avant et que signifie ce que vous avez rajouter.

Peut-être vais-je découvrir pourquoi après dans de la doc, mais j'aimerais en savoir un peu

sinon merci

[Invité]

Bonjour,

Et bien j'avais envoyé une réponse (que j'ai supprimée ensuite) car dan mon essai, à ma grande surprise cela ne fonctionnait pas non plus.

j'avais donc mis pour essayer :

Code :

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

Cells(i, 1) = Me.Controls("TextBox" & CStr(i))

Et ça fonctionne.

Puis voyant la réponse de Jean-Pierre49, je reviens en arrière (j'étais au départ certain que le CStr n'était pas obligatoire) je retire donc ce CStr et ça fonctionne (même sans .Value, mais là c'est normal).

Pourquoi ? Parce que le fichier n'avait pas encore été enregistré ?

[GTbenj]

j'ai une autre question, car avec cette formule, les champs remplissent la colonne A, mais comment puis je faire pour que cela remplisse, par exemple la colonne C à partir de la ligne 12 ?

[Jean-Pierre49]

Bonjour,

Tu peux essayer

Code :

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

1
2
3
4
5
6
                            Dim Cellule                 As Range
 
    Set Cellule = Range("C12")
    For i = 1 To 10
        Cellule.Offset(i, 0).Value = Me.Controls("TextBox" & i).Value
    Next i

Bon courage