XL 2019 Correspondances combobox

[Mapat]

Bonsoir

Je voudrais que chaque combobox du formulaire n'affiche que les données de chaque série
de la feuille "liens"
Je vous remercie

Cordialement

 

[sylvanu]

Bonjour Mapat,
Si j'ai bien compris, essayez :

Private Sub UserForm_Initialize()
    With Sheets("Liens")
        ComboBox1.List = .Range("j3:j13").Value
        ComboBox2.List = .Range("k3:k13").Value
        ComboBox3.List = .Range("l3:l13").Value
    End With
End Sub

 

[Dranreb]

Bonsoir.
Si j'ai mieux compris du fait que les J6:L13 ne sont pas des liens hypertextes dans l'exemple fourni :

Option Explicit
Private Sub UserForm_Initialize()
   Dim Hyp As Hyperlink, CBx As MSForms.ComboBox, L As Integer
   For Each Hyp In Feuil1.Hyperlinks
      Set CBx = Me("ComboBox" & Hyp.Range.Column - 9)
      L = CBx.ListCount
      CBx.AddItem
      CBx.List(L, 0) = Hyp.TextToDisplay
      CBx.List(L, 1) = Hyp.SubAddress
      Next Hyp
   End Sub
Private Sub ComboBox1_Change()
   Application.Goto Application.Range(ComboBox1.Column(1))
   End Sub
Private Sub ComboBox2_Change()
   Application.Goto Application.Range(ComboBox2.Column(1))
   End Sub
Private Sub ComboBox3_Change()
   Application.Goto Application.Range(ComboBox3.Column(1))
   End Sub

 

[Mapat]

Bonjour
Dans l'exemple simplifié fourni, je n'ai pas lié les J6:L13, mais elles sont appelées
à l'être dans ce que j'essaie de faire. Il y aura 12 combos
J'ai testé vos 2 solutions
ça ne fonctionne pas pour Sylvanu et ça fonctionne pour celle de
Dranreb.
Peut-être aurais-je besoin encore d(un petit coup de pouce par la suite
Merci à vous deux pour votre aide
Bonne journée