Module de classe et MAJ Listbox + frame

[carlos]

Bonjour le forum

J'aimerais qu'a chaque fois que j'extrait un toto de la listbox3 alors la frame3 se mette à jour.Reciproquement si je rajoute un toto
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Byte

For i = 1 To 3
Set liste(i) = New Classe1
Set liste(i).listb = Controls('ListBox' & i)
If i = 3 Then Frame3.Caption = ListBox3.ListCount & ' Dispensés'
'pour faire quelque chose en exemple
For j = 1 To 4
Controls('ListBox' & i).AddItem 'toto' & j * i 'pour faire quelque chose en exemple
Next j
Next i

End Sub

pour l'instant ,ListBox3.ListCount me calcule bien le nombre de valeur mais ne le reporte pas dans la frame3.Je pense qye c'est due au module de classe que je ne maitrise pas encore .

Voir fichier ci joint

Merci Carlos [file name=Classlistbox_20051026081621.zip size=15193]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classlistbox_20051026081621.zip[/file]

 

[PascalXLD]

Bonjour

Voici ton fichier modifié [file name=Classlistbox_20051026093746.zip size=10546]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classlistbox_20051026093746.zip[/file]

 

[carlos]

Bonjour Pascal76

Merci pour ta solution qui repond à ma demande.

Merci auusi pour ta suggestion sur les modules de classe .


Bonne journée

Carlos