XL 2021 ListeBox avec plusieurs colonnes

vmax67 · 7 Juin 2024

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 · 7 Juin 2024

Hello
voir un début de piste en PJ

vmax67 · 7 Juin 2024

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 · 8 Juin 2024

Hello

en modifiiant légèrement le code

VB:

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 · 10 Juin 2024

vgendron à dit:

Hello

en modifiiant légèrement le code

VB:

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 · 10 Juin 2024

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

vmax67 · 10 Juin 2024

vgendron à dit:

Hello

en modifiiant légèrement le code

VB:

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 · 10 Juin 2024

vmax67 à dit:
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 · 10 Juin 2024

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

XL 2021 ListeBox avec plusieurs colonnes

vmax67

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

vmax67

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

vmax67

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Pièces jointes

vmax67

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

vmax67

XLDnaute Occasionnel

Discussions similaires