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
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