XL 2016 Utilisation ListBox & TabStrip

GwenLG

XLDnaute Nouveau
Bonjour,
Je demande votre aide pour un petit soucis qui me turlupine ...
J'utilise un Userform qui utilise une TabStrip.
En fonction des onglets du TabStrip la ListBox1 va prendre des valeurs différentes.
Pour afficher le premier onglets pas de soucis mais pour afficher les 2 autres j'ai un problème
Pourriez vous m'aiguillez s'il vous plaît, et je suis toujourt preneur de quelques conseil pour améliorer mes codes VBA

J'ai essayé différents code mais sans succès, là mon erreur est "argument nommé non trouvé"

Je vous remercie d'avance :)

VB:
Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "300;80"
    ListBox1.ColumnHeads = False
    ListBox1.List() = Sheets("Data").Range("Q2:R" & Sheets("Data").Range("R10000").End(xlUp).Row).Value
End Sub

Private Sub TabStrip1_Change()
    Dim Dligne As Integer
    Dligne = Sheets("Data").Range("Q10000").End(xlUp).Row
    Select Case TabStrip1.Value
        Case Is = 0
            ListBox1.List() = Sheets("Data").Range("Q2:R" & Dligne).Value
        Case Is = 1
            ListBox1.Clear
            Me.ListBox1.AddItem Item:=Sheets("Data").Range("Q2:Q" & Dligne & "S2:S" & Dligne).Value
        Case Is = 2
            ListBox1.List() = Sheets("Data").Range("Q2:Q" & Dligne & "T2:T" & Dligne).Value
    End Select
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas