Boucle sur MultiPage et sur ListBox

tchangy71

XLDnaute Occasionnel
Bonjour,

Voilà, je recherche la possibilité de boucler sur des ListBox contenuent dans différentes pages d'un MultiPage.

Je tente désespérément un peu tout mais je n'y parviens pas donc si quelqu'un peu me guider, je lui en serait très reconnaissant.

La boucle sur les pages fonctionne mais pas celle sur les listbox !! Voila le code :

Private Sub CommandButton1_Click()
For Page = 1 To MultiPage1.Pages.Count
For List = 1 To MultiPage1.Pages(Page ).ListBox.Count 'ne fonctionne pas !

Next List
Next Page
End Sub

Merci d'avance
Philippe
 
G

Guest

Guest
Re : Boucle sur MultiPage et sur ListBox

Bonjour,

voici qui t'affichera le nombre de listBox en fin de boucle.:
N.B. les index de pages commencent à 0 (zéro)
Code:
 Dim iPage As Integer
 Dim ctl As Control
 Dim cpt As Integer
    For iPage = 1 To MultiPage1.Pages.Count
        For Each ctl In MultiPage1.Pages(iPage - 1).Controls
            If TypeOf ctl Is MsForms.ListBox Then
                cpt = cpt + 1 ' ou autre action sur le contrôle listbox
            End If
        Next ctl
    Next iPage
 MsgBox cpt

A+
 

Discussions similaires

Réponses
20
Affichages
1 K

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna