[Excel-VBA] For Each..Next

Version imprimable

26/09/2006, 16h47
marsupilami34

[Excel-VBA] For Each..Next
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:

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
26/09/2006, 17h03
SilkyRoad

bonjour

j'espere que ce lien pourra t'aider

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

michel

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

Code:

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 :

Citation:

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

... mais pour des boutons...
Merci Michel :mouarf: