Discussion :

[mosar3]

Bonjour,

Sur un userform, j'ai une cinquantaine de textboxes répartis sur plusieurs pages d'un multipage, et je souhaite récupérer leurs valeurs en cliquant sur un bouton.
Chaque textbox est intitulé "textboxX" et correspond à la colonne X+1

J'avais d'abord pensé à cette routine :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
    Dim PremLigneVide As Long
   PremLigneVide = Cells(Rows.Count, 1).End(xlUp).Row 'calcul 1ère ligne vide
 
    For k = 1 To 49
        Sheets("Bilan 1").Cells(PremLigneVide, k + 1) = Me.Controls("TextBox" & k)
    Next k
End Sub

Mais je tombe sur une erreur avec objet spécifié introuvable, et au débugage je tombe sur k=6 avec donc textbox 6 qui se trouve sur la 2ème page... Donc il ne prend en compte que la 1ère page du multipage...
En creusant un peu je tombe sur un autre code :

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
16
17
 
Private Sub CommandButton1_Click()
    Dim Col As Long
    Dim MesTextBox As MSForms.TextBox
    Dim MesPages As MSForms.Page
    Dim PremLigneVide As Long
    PremLigneVide = Cells(Rows.Count, 1).End(xlUp).Row 'calcul 1ère ligne vide
 
    With Me
        For Each MesPages In .MultiPage1.Pages
            For Each MesTextBox In MesPages.Controls
                Col = Mid(MesTextBox.Name, 8)
                Sheets("Bilan 1").Cells(PremLigneVide, Col) = MesTextBox.Text
            Next MesTextBox
        Next
    End With
End Sub

Mais en l'exécutant j'ai une erreur '13'. Et au débugage je vois qu'elle intervient au premier next, et que le code a réussi à trouver le texte de la première textbox et à mettre la valeur 1 à col.
Je ne comprends ce qui ne colle pas...

Merci de votre aide§

[jurassic pork]

Hello,
la variable MesTextBox peut-être autre chose qu'une TextBox si tu as d'autres types de contrôles sur tes pages (exemple le bouton de commande) alors il ne faut filtrer que les contrôles de type TextBox dans la boucle. Exemple :

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
16
17
Private Sub CommandButton1_Click()
    Dim Col As Long
    Dim MesControles
    Dim MesPages
    Dim PremLigneVide As Long
    PremLigneVide = Cells(Rows.Count, 1).End(xlUp).row 'calcul 1ère ligne vide
    With Me
        For Each MesPages In .MultiPage1.Pages
            For Each MesControles In MesPages.Controls
                If TypeName(MesControles) = "TextBox" Then
                    Col = Mid(MesControles.name, 8)
                    ActiveSheet.Cells(PremLigneVide, Col) = MesControles.Text
                End If
            Next MesControles
        Next
    End With
End Sub

Ami calmant, J.P

[mosar3]

Yess ça marche !
Merci beaucoup !!