Microsoft 365 combobox deux colonnes avec lignes horizontales

[AIGOIN]

Bonjour,
je voudrais alimenter une combobox deux colonnes avec deux plages horizontales.

Je m'explique j'ai sélectionné une plage de la cellule B6 à la cellule U25
Je voudrais alimenter ma combobox avec les lignes paires pour une colonne et les lignes impaires pour l'autre colonne
Ex: B6 + B8 + B10 jusqu'à B24 pour une colonne de ma combobox et B7 + B9 jusqu'à B25 pour l'autre colonne
merci pour votre aide

 

[mapomme]

Bonjour et bienvenue @AIGOIN 🙂.
Bonjour à @ChTi160 et aux autres 😉.

Un petit fichier (anonymisé) aurait été le bienvenu.

Essayez ce code dans le module de Userform1 du fichier joint (fichier créé par ma pomme car c'est votre 1er message dans le forum 😜) :

Private Sub UserForm_Initialize()
Dim t, i&, j&

   ComboBox1.ColumnCount = 10
   t = Range("b6:u25")
   For i = 1 To UBound(t)
      ComboBox1.AddItem t(i, 1)
      ComboBox1.AddItem t(i, 2)
   Next i
   For i = 1 To UBound(t)
      For j = 1 To 9
         ComboBox1.List(2 * (i - 1), j) = t(i, 3 + 2 * (j - 1))
         ComboBox1.List(2 * (i - 1) + 1, j) = t(i, 3 + 2 * (j - 1) + 1)
      Next j
   Next i
End Sub

 

[AIGOIN]

Merci mapomme pour votre réactivité.

Je me suis mal exprimé, je souhaite une combobox avec deux colonnes verticales (confère fichier joint) une colonne avec les numéros de bagues de 001 à 200 (lignes paires B6 à B24) et une colonne avec les nids contenants les petits bagués (lignes impaires de B7 à B25)

 

[mapomme]

je souhaite une combobox avec deux colonnes verticales ...

Re,

Voir le fichier joint. Cliquer sur le bouton Hop!
Le code est dans le module de Userform1.

Private Sub ComboBox1_Change()
   If ComboBox1.ListIndex = -1 Then lbNid.Caption = "" Else lbNid.Caption = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

Private Sub UserForm_Initialize()
  
   ComboBox1.ColumnCount = 2
   Label1.Width = ComboBox1.Width / 2: Label2.Width = ComboBox1.Width / 2
   Label1.Left = ComboBox1.Left + 5: Label2.Left = Label1.Left + Label1.Width
   lbNid.Left = Label2.Left: lbNid.Caption = ""
   lbNid.Width = Label2.Width - 30: lbNid.BackColor = ComboBox1.BackColor
   ComboBox1.List = CreerListe(Sheets("bagues").Range("b6:u25"))
End Sub

Function CreerListe(xplage As Range)
Dim t, i&, j&, n&

   t = xplage.Value
   ReDim v(1 To UBound(t) / 2 * UBound(t, 2), 1 To 2)
   For i = 1 To UBound(t) Step 2
      For j = 1 To UBound(t)
         n = n + 1
         v(n, 1) = Format(t(i, j), "000")
         v(n, 2) = t(i + 1, j)
      Next j
   Next i
   CreerListe = v
End Function

 

[AIGOIN]

Re,

Voir le fichier joint. Cliquer sur le bouton Hop!
Le code est dans le module de Userform1.

Private Sub ComboBox1_Change()
   If ComboBox1.ListIndex = -1 Then lbNid.Caption = "" Else lbNid.Caption = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

Private Sub UserForm_Initialize()
 
   ComboBox1.ColumnCount = 2
   Label1.Width = ComboBox1.Width / 2: Label2.Width = ComboBox1.Width / 2
   Label1.Left = ComboBox1.Left + 5: Label2.Left = Label1.Left + Label1.Width
   lbNid.Left = Label2.Left: lbNid.Caption = ""
   lbNid.Width = Label2.Width - 30: lbNid.BackColor = ComboBox1.BackColor
   ComboBox1.List = CreerListe(Sheets("bagues").Range("b6:u25"))
End Sub

Function CreerListe(xplage As Range)
Dim t, i&, j&, n&

   t = xplage.Value
   ReDim v(1 To UBound(t) / 2 * UBound(t, 2), 1 To 2)
   For i = 1 To UBound(t) Step 2
      For j = 1 To UBound(t)
         n = n + 1
         v(n, 1) = Format(t(i, j), "000")
         v(n, 2) = t(i + 1, j)
      Next j
   Next i
   CreerListe = v
End Function

 

[AIGOIN]

Merci les réponses qui m'ont bien aidées, mais créer une combobox avec deux colonnes et deux listes distinctes et donc impossible?

 

[mapomme]

mais créer une combobox avec deux colonnes et deux listes distinctes et donc impossible?

Bonsoir @AIGOIN 😉,
AMHA, la réponse est oui.

 

[AIGOIN]

Bonsoir @AIGOIN 😉,
AMHA, la réponse est oui.

Bonsoir,
Sinon il faut créer deux plages horizontales (lignes paires et lignes impaires ) et les copier dans deux colonnes.
Est-ce possible?
Merci pour tout

 

[AIGOIN]

Bonjour à tous,

Une deuxième fois je fais appel à vous.
voir fichier joint
Je voudrais à l'aide de deux textboxs rechercher deux critères dans la feuille saisie dans la colonne B (ex 6100) et l'autre dans la colonne I (ex V ou P)
Rechercher toutes les lignes contenant ce critère et les copier soit dans la feuille 1 soit si c'est possible dans la feuille du critère sélectionné dans la textbox1 (ex 6100).
Merci pour vos réponses