Bonjour,
 
Je rencontre un petit problème avec une listbox activex. Je cherche à passer une variable ListName dans la ligne de programmation suivante :
 
Workbooks(ActiveWorkbook.Name).Sheets(ShChocs).ListeName.AddItem _
Workbooks(ActiveWorkbook.Name).Sheets(ShCalc).Cells(LigEnt, i)
 
Je souhaite aussi faire passer cette variable en argument d'une autre fonction afin de ne pas l'écrire 10 fois (j'ai plusieurs Listbox).
En gros : Function MajListe(VariableListeName)
 
Cela fonctionne bien si je mets le nom de ma ListBox (ListeMesure par exemple) dans la ligne de prog mais pas moyen avec une variable.
 
Merci d'avance.

 
           Bonjour, bonjour !
 
           Utiliser le Générateur de macros pourrait apporter une solution au problème !
 
           En sélectionnant juste la listbox, quel est le code ainsi généré ?
 

Merci pour la réponse, il est vrai que je n'ai pas pensé au générateur de macro. J'ai en revanche trouvé un bout de code en passant par .OLEObjects(nom de la commande active x), avec ça c'est facile de mettre une variable :
 
 
Workbooks(ActiveWorkbook.Name).Sheets(ShTraitement).OLEObjects(Liste).Object.      .list, .selected, additem etc, bref, toutes les commandes sont disponibles.
 
En espérant que ça puisse servir à quelq'un, bon codage à vous.