XL 2016 Combobox sans doublon avec additem et boucle do

Dranreb

XLDnaute Barbatruc

• 12 Novembre 2021

• #2

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 !

ComboBox liées et contrôles associés

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

www.excel-downloads.com

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Novembre 2021

• #3

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 12 Novembre 2021

• #4

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: 12 Novembre 2021

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Novembre 2021

• #5

Re
Ce n'est pas de moi ! Lol
Mais tiré de procédures de PatrickToulon !
Bonne fin de Soirée
Jean marie

 

Vote positif 0 Vote négatif

T

tony83470

XLDnaute Nouveau

• 14 Novembre 2021

• #6

ChTi160 à dit:

Re
Ce n'est pas de moi ! Lol
Mais tiré de procédures de PatrickToulon !
Bonne fin de Soirée
Jean marie

Cliquez pour agrandir...

Merci pour ces retours, j'avais trouvé un peu tard hier en me promenant sur différent forum

 

Vote positif 0 Vote négatif