Bonjour,
Je ne peux pas lire les images.
La liste des colonnes à afficher dans les comboBoxs sont dans cette ligne:
ColCombo = Array(1, 2, 3, 4, 5, 6) ' A adapter (1 à 6 colonnes maxi)
La liste des colonnes à afficher dans la ListBox sont dans cette ligne:
colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35) ' A adapter
Sur la version jointe, lors des ajouts, on peut transformer un Textbox en Combobox en cliquant sur le TextBox puis sur le bouton Liste déroulante.
Les items du comboBox sont ceux déjà saisis dans la colonne.
EDIT:Les images sont maintenant visibles
colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26) ' A adapter
On peut modifier l'ordre et ne mettre que certaines colonnes
JB