Je cherche une solution pour éviter les doublons dans mon combobox762 alimenté par critère et boucle do. d'une autre plage de cellule et non en direct pour une boucle for each.
j'ai trouvé des trucs avec boucle for each, mais je ne parviens pas à combiner le tout.
le combobox en question est dans la multipage de UF mouvement , "entree livraison".
J'ai une fonction SujetCBx qui le fait automatiquement.
Elle renvoie un Array(LesClés, LesListes)
Classé et sans doublon, son élément 0, LesClés, peut être directement affecté à une List de ComboBox.
La fonction est disponible dans le complément CBxLCtlA.xlam. Mais l'objet ComboBoxLiées est encore mieux, il le fait tout seul en utilisant cette fonction à tours de bras !
Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...
Bonsoir tony
Bonsoir Bernard
Ce que j'ai mis dans la procédure et qui concerne le "combobox762" !
VB:
Sheets("MAGASIN").Select
Do While Cells(i + 1, 14).Value <> ""
With LOGISTIQUE.ComboBox762
.Text = Cells(i + 1, 7).Value 'On met la valeur dans la partie text du Combobox
If .ListIndex = -1 Then 'si pas présent dans la Liste du Combobox
.AddItem Cells(i + 1, 7).Value 'On ajoute la valeur
End If
End With
''......... etc etc
Pas très académique , mais Bon ! Lol
Bonne fin de Soirée
Jean marie
bonsoir
Ta solution Jean Marie , je l'aime bien et il m'arrive de l'utiliser parfois.( je passe la combo en dropdownList à la fin du chargement, suivant l'utisation à en faire)
Pourquoi pas très académique, j'aurais dit futé plutôt !!!
par contre il faut que le style de la combo soit à FrmStyleDropDownCombo