Discussion :

[marsupilami34]

Bonjour,
Voila mon problème.
J'ai plusieurs Textbox dans ma forme.
Je cherche pour chaque textbox de mettre les valeures dans un tableau.
Je pensais que le code était le suivant :

Code :

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

1
2
3
4
5
6
 
Dim i as integer
Dim textbox as object
For Each Textbox in Userform1
   tablo(i)=Textbox
Next i

Quelqu'un peut'il m'aider dans mon problème.

Merci d'avance

[SilkyRoad]

bonjour

j'espere que ce lien pourra t'aider

http://silkyroad.developpez.com/VBA/...ables/#LVIII-A


michel

[ouskel'n'or]

Tu dois identifier ton contrôle pour savoir ce qui est dedans

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
Sub LireTousLesTextBox()
    Dim LeContrôle As Control
    Dim i, Tablo()
    For Each LeContrôle In UserForm1.Controls
        If TypeName(LeContrôle) = "TextBox" Then
            i = i + 1
            ReDim Preserve Tablo(i)
            Tablo(i) = UserForm1.Controls(LeContrôle.Name).Text
        End If
    Next LeContrôle
    'Vérification
    For j = 1 To i
        MsgBox Tablo(j)
    Next
End Sub

Tu dis

NB - C'est précisément toi, Michel, qui avais donnée cette syntaxe :

If TypeName(LeContrôle) = "TextBox" Then

... mais pour des boutons...
Merci Michel