Capacité combobox

  Dim i As Byte
     For i = 1 To 254
        ComboBox1.AddItem "Ligne" & i
    Next i

Option Explicit

Dim Ws As Worksheet
Dim NbLignes As Integer




Private Sub Frame1_Click()

End Sub

Private Sub UserForm_Initialize()
    'Définit la feuille contenant les données
    Set Ws = Worksheets("Feuil1")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = Ws.Range("A5000").End(xlUp).Row

'Remplissage du ComboBox1
    Alim_Combo 1

End Sub


Private Sub ComboBox1_Change()
    'Remplissage Combo2
    Alim_Combo 2, ComboBox1.Value
End Sub


Private Sub ComboBox2_Change()
Dim J As Long

'Remplissage Combo3
    'Alim_Combo 3, ComboBox2.Value
  With Me.ComboBox3
    .Clear
    If Me.ComboBox2.ListIndex = -1 Then Exit Sub
    For J = 2 To NbLignes
      If CStr(Ws.Range("A" & J)) = Me.ComboBox1 And CStr(Ws.Range("B" & J)) = Me.ComboBox2 Then
        .Value = Ws.Range("C" & J)
        If .ListIndex = -1 Then .AddItem Ws.Range("C" & J)
      End If
    Next J
    If .ListCount = 1 Then .ListIndex = 0 Else .ListIndex = -1
  End With

End Sub

Option Explicit
Private Sub UserForm_Initialize()
Dim Cell As Range
    Dim Unique As New Collection
    Dim Valeur As Range
    Dim i As Integer
    Dim j As Integer
    For j = 1 To 1000
    Range("A" & j).Value = "item" & j 'rempli la colonne pour essai
    Next j
    'Récupère la derniere ligne non vide dans la colonne A
    i = Range("A65536").End(xlUp).Row
    On Error Resume Next
    'boucle sur les cellules de la colonne A
    For Each Cell In Range("A1:A" & i)
        'Stocke les données dans une collection
        '(La collection n'accepte que des données uniques et permet donc
        ' de filtrer facilement les doublons).
        Unique.Add Cell, CStr(Cell)
    Next Cell
    On Error GoTo 0
     'Boucle sur le contenu de la collection pour alimenter la ComboBox
    For Each Valeur In Unique
        Me.ComboBox1.AddItem Valeur
    Next Valeur
End Sub

.Value = Ws.Range("C" & J)
If .ListIndex = -1 Then .AddItem Ws.Range("C" & J) 

Option Explicit

Dim Ws As Worksheet
Dim NbLignes As Integer

Private Sub UserForm_Initialize()
    'Définit la feuille contenant les données
    Set Ws = Worksheets("Feuil1")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = Ws.Range("A5000").End(xlUp).Row
End Sub
Private Sub UserForm_Activate()
    'Remplissage du ComboBox1
    Alim_Combo 1
End Sub

'Procédure pour alimenter les ComboBox
Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
    Dim J As Integer
    Dim Obj As Control
    
    'Définit le ComboBox à remplir
    Set Obj = Me.Controls("ComboBox" & CbxIndex)
    'Supprime les anciennes données
    Obj.Clear
    
    'alimente le Combobox initial (Combobox1)
    If CbxIndex = 1 Then
        'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
        For J = 2 To NbLignes
            Obj = Ws.Range("A" & J)
            'Remplit le ComboBox sans doublons
            If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & J)
        Next J
    Else
        'Alimentation conditionnelle des autres Combobox en fonction de
        'ce qui est sélectionnée dans le contrôle précédent:
        '(La sélection du ComboBox1 définit le contenu du ComboBox2,
        'La sélection du ComboBox2 définit le contenu du ComboBox3 ?etc...)
        For J = 2 To NbLignes
            If CStr(Ws.Range("A" & J).Offset(0, CbxIndex - 2)) = Cible Then
                Obj = Ws.Range("A" & J).Offset(0, CbxIndex - 1)
                If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & J).Offset(0, CbxIndex - 1)
            End If
        Next J
   End If
   
   'Enlève la sélection dans le ComboBox
   Obj.ListIndex = -1
End Sub

Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)

            'Obj = Ws.Range("A" & J)

 Private Sub ComboBox2_Change()
.Value = Ws.Range("C" & J)