Réutilisation d'un objet créé via VBA

Bonjour à la liste.

Dans un programme vba, je créé un combobox de la manière suivante :

        Set Objet = UserForm1.Controls.Add("forms.ComboBox.1")
        With Objet
            .Name = "ComboBox" & NbCours
            .Left = 714
            .Top = 22 * NbCours + 58
            .Width = 54
            .Height = 20
            .Value = Sheets(FeuilleResultat).Cells(Ligne, Colonne).Value
        End With

Cela fonctionne bien, ma ComBobox apparait bien dans la UserForm1, à la bonne place, avec la bonne valeur. Ensuite je rentre les différents item avec la méthodes AddItem. Cela fonctionne aussi parfaitement.

dans une une autre Sub, j'ai besoin de lire la valeur de la ComboBox pour a stocker dans ma feuille Excel.. Et là, je n'arrive pas à nommer l'objet... J'ai essayer ca sans trop de conviction :

        With Objet
            .Name = "ComboBox" & i
        End With

Pour info toutes mes ComboBox s'appellent ComBox1, ComboBox2, etc....

Quelqu'un a t il une idée ?

Merci,

Bonjour,

Sans doute :

Range("A1") = UserForm1.ComboBox1

A+

Bonjour à tous,

Ce serait mieux d'écrire un truc du genre : debug.print UserForm1.Controls("ComboBox" & i).value

Pierre

Super merci... c'est effectivement le bon code..

J'avais écrit :

        With Objet
            .Name = "ComboBox" & i
        End With
Cells (ligne, colonne)=objet.value

et il fallait écrire

Cells(ligne, colonne)=UserForm1.Controls("ComboBox" & i).value

Merci bcp à Pierrep56 ;-)

Rechercher des sujets similaires à "reutilisation objet cree via vba"