Listbox et Tabstrip

Bonjour à tous,

Voila j'ai fait un code pour alimenté une listbox suivant l'onglet de la tabstrip. Mais cela ne fonctionne pas et je n'arrive pas à trouver ce qui cloche.

Quelqu'un pourrait-il me venir en aide svp?

Cordialement,

Voici mon code:

Sub ChargerListBox71()
'Alimenter listbox, le 05/01/2017 par Guillaume
UserForm7.ListBox71.Clear
a = Sheets("consi").Range("a1:d" & Sheets("consi").Cells(Rows.Count, 1).End(xlUp).Row).Value
 For i = LBound(a) To UBound(a)
    If UserForm7.TabStrip71.Tab(0) = 1 And a(i, 4) = "materiel" Then
      UserForm7.ListBox71.AddItem a(i, 1)
      UserForm7.ListBox71.List(j, 1) = a(i, 2)
      UserForm7.ListBox71.List(j, 2) = a(i, 3)
       j = j + 1
       Else
    If UserForm7.TabStrip71.Tab(1) = 1 And a(i, 4) = "infrastructure" Then
      UserForm7.ListBox71.AddItem a(i, 1)
      UserForm7.ListBox71.List(j, 1) = a(i, 2)
      UserForm7.ListBox71.List(j, 2) = a(i, 3)
    End If
    End If
  Next i

End Sub

Bonjour

Cordialement

Bonjour Dan,

Désolé j'ai oublier. C'est dans userform 7 et avec modul

Re

Si tu n'as pas trop de données à traiter (genre 2000 ou plus), essaie ceci :

• Dans le module, supprime la macro Sub ChargerListBox71()
• Dans l'userform7, modifie les deux macros ci-dessous

Private Sub UserForm_Initialize()
'Call ChargerListBox71
'Régler largeur des colonnes de la ListBox le 22/12/2016, par Guillaume
ListBox71.ColumnWidths = "366;156;65"
Call TabStrip71_Change
'Modifier valeur des page de tabstrip, le 05/01/2017 par Guillaume
TabStrip71.Tabs(0).Caption = "Consigne Petit Matériel"
TabStrip71.Tabs(1).Caption = "Consigne Infrastructure"
End Sub

Et

Private Sub TabStrip71_Change()
'Charger la listbox, le 05/01/2017 par Guillaume
'Dan 09/01/2017
Dim i As Integer, j As Byte
Me.ListBox71.Clear
With Sheets("consi")
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
    Me.ListBox71.AddItem
    Select Case Me.TabStrip71.Value
        Case Is = 0
            If .Range("D" & i) = "materiel" Then
                Me.ListBox71.List(j, 0) = .Range("A" & i).Value
                Me.ListBox71.List(j, 1) = .Range("B" & i).Value
                Me.ListBox71.List(j, 2) = .Range("C" & i).Value
                j = j + 1
            End If
        Case Is = 1
            If .Range("D" & i) = "infrastructure" Then
                Me.ListBox71.List(j, 0) = .Range("A" & i).Value
                Me.ListBox71.List(j, 1) = .Range("B" & i).Value
                Me.ListBox71.List(j, 2) = .Range("C" & i).Value
                j = j + 1
            End If
    End Select
Next i
End With
End Sub

Si terminé, merci de cloturer le fil en cliquant sur la case à cocher verte lors de ta réponse afin de cloturer le fil

Cordialement

Bonjour Dan,

Ok super merci

Cordialement

Re

Comme d'hab, tu ne clotures jamais tes demandes

N'omets pas de cloturer si c'est solutionné et terminé ....

Crlt

Je veux bien le clôturer, mais comment faut il faire?