XL 2016 Combobox sans doublon avec additem et boucle do

tony83470

XLDnaute Nouveau
Bonjour,

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".

Merci de votre aide.
 

Pièces jointes

  • LOGISTIQUE.xlsm
    106.7 KB · Affichages: 12

Dranreb

XLDnaute Barbatruc
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 !
 

ChTi160

XLDnaute Barbatruc
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
 

JM27

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 816
Messages
2 092 330
Membres
105 367
dernier inscrit
jych