Discussion :

[windsor]

Bonjour,

j'ai un big problème où je bûche depuis déjà 3 jours sans savoir comment faire !

Je m'explique,

J'ai les noms des combo existants dans tout le classeur en colonne.

Avec une boucle, je voudrais passer en revue tout les noms de la colonne et intervenir sur le combo qui en porte le nom pour l'alimenter en fonction des données situées à chaque fois dans d'autres colonnes.

Quand j'utilise une variable qui prend la valeur d'une cellule pour m'en servir pour appeler le combo du même nom, ça marche pas, il prend la valeur avec des guillemets alors que pour le combo il n'en faudrait pas.

Quelq'un a une petite idée sur la question ?

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shapes("LeNom")

ça marche pas ?

[windsor]

J'ai fait un petit essai avec Shapes mais il me dit : propriété ou méthode non géré par l'objet.

Si par exemple je voudrais alimenter mon combobox manuellement, j'ai essayé comme ça :

shapes("Lenom").additem "Ce que je souhaite"

C'est à ce moment là que j'ai le message.

Dommage !!!

[fred65200]

bonjour,
essaie le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set lb = ActiveSheet.Shapes("List Box 1")
lb.ControlFormat.AddItem "Ce que je souhaite"

fonctionne avec des "drop down" et des "list box"

pour les "combobox" - contrôle ActiveX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ActiveSheet.OLEObjects("ComboBox1").Object.AddItem "Ce que je souhaite"
'ou
ActiveSheet.ComboBox1.AddItem "Ce que je souhaite"

cordialement
fred65200

[windsor]

Merci, merci beaucoup.

J'avais cherché autour de OLEObjects mais je n'avais jamais pensé à mettre après les parenthèses .object, du coup ça ne fonctionnait pas.

Un grand merci à Monsieur Fred, je vais pouvoir bien avancer maintenant.

Encore merci
Windsor