Problémes avec ListBox d'une boite de dialogue

[JBARBE]

Bonsoir,

J'ai une boite de dialogue avec 3 Combox et 2 ListBox que voici :

Sub Belote_Activate()
Load FrmBelote
Dim i As Integer
With FrmBelote.CmbPartie
FrmBelote.CmbPartie.AddItem "1"
FrmBelote.CmbPartie.AddItem "2"
FrmBelote.CmbPartie.AddItem "3"
FrmBelote.CmbPartie.AddItem "4"
End With

For i = 1 To 400
FrmBelote.CmbEquipeA.AddItem (i)
Next i

For i = 1 To 400
FrmBelote.CmbEquipeB.AddItem (i)
Next i

FrmBelote.LblNbreEquipeA = ""

FrmBelote.LblNbreEquipeB = ""

FrmBelote.Show

Application.ScreenUpdating = False
End Sub


Le probléme que je comprends pas est ici car je ne peux saisir dans la boite de dialogue !

FrmBelote.LblNbreEquipeA = ""

FrmBelote.LblNbreEquipeB = ""

MERCI BEAUCOUP!

 

[skoobi]

Re : Problémes avec ListBox d'une boite de dialogue

Bonsoir,

avec le fichier on y verrai plus clair!

 

[Guest]

Re : Problémes avec ListBox d'une boite de dialogue

Bonsoir JBarbe,
Skoobi, content de te croiser😀

@JBarbe: Pour les listBox, la propriété par défaut est value mais si la valeur passée n'existe pas, une erreur est levée. Tu dois passer par la propriété ListIndex. Ou dans ton cas ne rien faire du tout puisque la valeur que tu tente de donner est "".

Ou si tu veux vider ta listBox: LblNbreEquipeA.Clear.

A+

 

[skoobi]

Re : Problémes avec ListBox d'une boite de dialogue

Re,

Salut Hasco!🙂

J'avais trop la flemme pour lire le code😀

 

[JBARBE]

Re : Problémes avec ListBox d'une boite de dialogue

C'est très sympa à vous deux !

Merci je vais essayer !