XL 2021 ListeBox avec plusieurs colonnes

[vmax67]

Bonsoir,

Je suis bloqué dans la finalisation de mon projet.

J’aimerais afficher dans la listbox lbx1 les colonnes A jusqu’à E après activation OptionButton1 et validation d’un Club dans le Combobox C1

Ensuite j’aimerais remplir les textbox de la manière suivante.

T1 Valeur colonne B

T4 Valeur colonne C

T2 Valeur colonne B

T5 Valeur colonne D

T3 Valeur colonne B

T6 Valeur colonne E

Idem après validation OptionButton 2

T7 Valeur colonne B

T10 Valeur colonne C

T8 Valeur colonne B

T11 Valeur colonne D

T9 Valeur colonne B

T12 Valeur colonne E

D’avance merci pour votre contribution

 

[vgendron]

Hello
voir un début de piste en PJ

 

[vmax67]

Bonsoir,
merci pour le retour, mais qu'une partie est résolue.
Les valeurs en T5, T6, T11 et T12 ne sont pas les bonnes car elle renvoie toujours la valeur de la colonne C
alors qu'il faudrait valeur des colonnes D pour T5& T11 et colonne E pour T6&T12

 

[vgendron]

Hello

en modifiiant légèrement le code

Private Sub lbx1_Change()
    If Not EnableEvents Then Exit Sub
    On Error Resume Next
    C = 0
    For I = 0 To lbx1.ListCount - 1
        If lbx1.Selected(I) Then C = C + 1
        If C > 3 Then lbx1.Selected(lbx1.ListIndex) = 0
    Next I
    If Me.OptionButton1 Then
        deb = 1
        fin = 6
    Else
        deb = 7
        fin = 12
    End If
 If lbx1.Selected(lbx1.ListIndex) = True Then
    For w = deb To fin
        If Me("T" & w) = "" Then
            Me("T" & w) = lbx1.List(lbx1.ListIndex, 1)
            Me("T" & w + 3) = lbx1.List(lbx1.ListIndex, 2 + w - 1)
            Exit For
        End If
    Next w
 Else
    For Each w In Array(T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12)
        If w.Value = lbx1.List(lbx1.ListIndex, 1) Or w.Value = lbx1.List(lbx1.ListIndex, 2) Then
            Me(w.Name) = ""
        End If
    Next w
 End If
 End Sub

 

[vmax67]

Hello

en modifiiant légèrement le code

Private Sub lbx1_Change()
    If Not EnableEvents Then Exit Sub
    On Error Resume Next
    C = 0
    For I = 0 To lbx1.ListCount - 1
        If lbx1.Selected(I) Then C = C + 1
        If C > 3 Then lbx1.Selected(lbx1.ListIndex) = 0
    Next I
    If Me.OptionButton1 Then
        deb = 1
        fin = 6
    Else
        deb = 7
        fin = 12
    End If
 If lbx1.Selected(lbx1.ListIndex) = True Then
    For w = deb To fin
        If Me("T" & w) = "" Then
            Me("T" & w) = lbx1.List(lbx1.ListIndex, 1)
            Me("T" & w + 3) = lbx1.List(lbx1.ListIndex, 2 + w - 1)
            Exit For
        End If
    Next w
 Else
    For Each w In Array(T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12)
        If w.Value = lbx1.List(lbx1.ListIndex, 1) Or w.Value = lbx1.List(lbx1.ListIndex, 2) Then
            Me(w.Name) = ""
        End If
    Next w
 End If
 End Sub

Bonjour,
merci pour l'aide tout fonctionne correctement sauf T10 à T12 qui ne se remplisse pas.
Pas trouvé la cause.

 

[vgendron]

Bonjour
pas trouvé ou juste pas cherché???

 

[vmax67]

Hello

en modifiiant légèrement le code

Private Sub lbx1_Change()
    If Not EnableEvents Then Exit Sub
    On Error Resume Next
    C = 0
    For I = 0 To lbx1.ListCount - 1
        If lbx1.Selected(I) Then C = C + 1
        If C > 3 Then lbx1.Selected(lbx1.ListIndex) = 0
    Next I
    If Me.OptionButton1 Then
        deb = 1
        fin = 6
    Else
        deb = 7
        fin = 12
    End If
 If lbx1.Selected(lbx1.ListIndex) = True Then
    For w = deb To fin
        If Me("T" & w) = "" Then
            Me("T" & w) = lbx1.List(lbx1.ListIndex, 1)
            Me("T" & w + 3) = lbx1.List(lbx1.ListIndex, 2 + w - 1)
            Exit For
        End If
    Next w
 Else
    For Each w In Array(T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12)
        If w.Value = lbx1.List(lbx1.ListIndex, 1) Or w.Value = lbx1.List(lbx1.ListIndex, 2) Then
            Me(w.Name) = ""
        End If
    Next w
 End If
 End Sub

C'est le même code rien ne change

 

[vgendron]

C'est le même code rien ne change

c'est le meme code et pourtant tout fonctionne sauf T10 T11 et T12 ??

il faudrait au moins regarder attentivement le code: il y a bien une différence
et il faudrait essayer de comprendre le code
et il suffit de prendre la dernière proposition #6

 

[vmax67]

Oups désolé j'ai lu trop vite.
Je ne suis pas un expert en VB.
Je vous remercie pour votre aide précieuse, je vais me pencher sur le code pour essayer de comprendre