Boucle sur MultiPage et sur ListBox

tchangy71 · 3 Novembre 2011

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

Guest · 3 Novembre 2011

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+

tchangy71 · 3 Novembre 2011

Re : Boucle sur MultiPage et sur ListBox

Bonjour et merci,

ça ne me trouve pas les ListBox (ctl = Null)

Une idée ?? Merci

Phil

tchangy71 · 3 Novembre 2011

Re : Boucle sur MultiPage et sur ListBox

Non en faite ça fonctionne ^^

Guest · 3 Novembre 2011

Re : Boucle sur MultiPage et sur ListBox

re,

tchangy71 à dit:
Non en faite ça fonctionne ^^

de toute façon sans classeur exemple il aurait été difficile de savoir le pourqoi du comment.7

Au bout de 88 messages il faut commencer à comprendre comment fonctionne le forum.

A+

tchangy71 · 3 Novembre 2011

Re : Boucle sur MultiPage et sur ListBox

J'entend bien !!

J'avoue qu'il aurait difficile de m'aider avec si peu d'éléments mais pas besoin d'être aussi radical ! non ! Une légère impression de me faire gronder ^^

@+

Guest · 3 Novembre 2011

Re : Boucle sur MultiPage et sur ListBox

Re,

Gronde tant que tu veux, mais une réponse telle que

ça ne me trouve pas les ListBox (ctl = Null)

Ne faisait pas avancer le shmilblick.
Si ce sont des réponses que tu veux!?

pour ce que j'en dis....

A+

Boucle sur MultiPage et sur ListBox

tchangy71

XLDnaute Occasionnel

Guest

Guest

tchangy71

XLDnaute Occasionnel

tchangy71

XLDnaute Occasionnel

Guest

Guest

tchangy71

XLDnaute Occasionnel

Guest

Guest

Discussions similaires