Variable dans le nom d'une combobox

[Yoann79]

Bonjour,

J'ai un petit problème lorsque j'essaye d'initialiser plusieurs combobox.

Les noms de mes combobox sont :

MVol1
MVol2
MVol3
MVol4

Elles sont situées sur une feuille de calcul et non sur un Userform

Quand je veux les initialiser, si je rentre le code suivant ça marche

Sheets("main").MVol1.AddItem "EWMA"
Sheets("main").MVol2.AddItem "EWMA"
Sheets("main").MVol3.AddItem "EWMA"
Sheets("main").MVol4.AddItem "EWMA"

Par contre quand je veux créer une boucle avec le code ci-dessous ça ne marche pas.

For i = 1 to 4

Sheets("main").MVol(i).AddItem "EWMA"

Next i

J'ai essayé de remplacer la ligne du milieu par d'autres solutions :

Sheets("main").["MVol" & i &""].AddItem "EWMA"
Sheets("main").Controls("MVol" & i &"").AddItem "EWMA"

Sans succès....

Merci pour votre aide.

Yoann,

 

[MJ13]

Re : Variable dans le nom d'une combobox

Bonjour Yoann

Quand je vois les mots Combobox, textbox etc.. même si l n'y a pas de USF, je suis tenté de demander un fichier sans données confidentielles. Cela permet d'aller droit au but de ta problèmatique et de ne pas tout refaire ce que tu as fait et qui en plus, peut intéresser certains qui ne connaisent pas cette façon de programmer.

On attend ton fichier.

 

[Yoann79]

Re : Variable dans le nom d'une combobox

D'accord.

Pas de soucis et encore merci.

Voici un fichier Excel avec mon problème.

Yoann,

 

[MJ13]

Re : Variable dans le nom d'une combobox

Re

Je ne suis pas un grand spécialiste mais voici ce que j'ai pu faire. Sinon habitue toi a mettre le fichier au format XLS (97-2003).

Ah autant pour moi, tu l'avais déjà fait. Bon attendons des spécialistes. Sinon tester les objets sur le nom et si c'est un combobbox, faire l'additem. Ou peut être avec un module de classe.

Ah bonjour Robert et merci c'est très bien, le genre de code qui ne se trouve pas sous le sabot d'un cheval🙄.
YoukY Bonjour et merci aussi pour ta contribution.

 

[Robert]

Re : Variable dans le nom d'une combobox

Bonjour Yoann, Michel, bonjour le forum,

Je te propose cette solution :

Sub Intialiser()
For i = 1 To 4
    ActiveSheet.Shapes(i).Select
    Selection.Object.AddItem "EWMA"
Next i
End Sub

 

[youky(BJ)]

Re : Variable dans le nom d'une combobox

Bonsoir à tous,
En utilisant la macro de Robert,
Si tu as pas mal de shapes et si ceux-ci bug la macro voici quelques lignes de plus.

For Each c In ActiveSheet.OLEObjects
i = i + 1
If c.Name Like "MVol*" Then
    ActiveSheet.Shapes(i).Select
    Selection.Object.AddItem "EWMA"
End If
Next

remarque:
Il est aussi possible de remplacer 1 to 4 par leurs bon N° de shapes

 

[Yoann79]

Re : Variable dans le nom d'une combobox

Bonsoir !!

Ce code marche super bien !!! Merci beaucoup !! C'est vraiment génial je vais pouvoir avancer.

C'est quoi exactement un OLEObject ?

Encore Merci

Yoann,

Bonsoir à tous,
En utilisant la macro de Robert,
Si tu as pas mal de shapes et si ceux-ci bug la macro voici quelques lignes de plus.

For Each c In ActiveSheet.OLEObjects
i = i + 1
If c.Name Like "MVol*" Then
    ActiveSheet.Shapes(i).Select
    Selection.Object.AddItem "EWMA"
End If
Next

remarque:
Il est aussi possible de remplacer 1 to 4 par leurs bon N° de shapes

 

[youky(BJ)]

Re : Variable dans le nom d'une combobox

Bonsoir,
>>>>>C'est quoi exactement un OLEObject ?
Le plus simple est d'avoir recours à l'aide tu mets ton curseur sur un mot clé
et Presse la touche F1
Si l'aide n'est pas installée tu auras un message d'erreur
Je te conseille de l'installer si besoin, cela reste indispensable.