Bonjour
Pour info et pour ceux qui ont suivi ce post
Comme la liste des opérateurs n'était pas bien ordonné de façon logique( par exemple 1 nom toutes les 3 colonnes)
Je suis passé par une recherche des noms dans la ligne par un simple Find (Find(what:="*",Lookin...)
Et dans la colonne cachée de la ComboBox j'y ai noté le numéro de la colonne + 2 du nom trouvé
Le reste n'a pas changé par rapport à mon dernier code
With Me.ComboBox1
.ColumnCount = 2
.ColumnWidths = "-1;0"
Set Cel = Sheets("Planning").Rows(19).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Depart = Cel.Address
Do
If Cel.Column > 4 And Trim(Cel) <> "" Then
.AddItem Trim(Cel)
.List(.ListCount - 1, 1) = Cel.Column + 2
End If
Set Cel = Sheets("Planning").Rows(19).FindNext(Cel)
Loop While Depart <> Cel.Address
End If
End With