Sujet Précédent Sujet Suivant

VBA Remplir un comboBox avec ActiveCell

Résolu/Fermé
Mik49a Messages postés 9 Date d'inscription vendredi 3 décembre 2010 Statut Membre Dernière intervention 2 janvier 2011 - 23 déc. 2010 à 20:52
Mik49a Messages postés 9 Date d'inscription vendredi 3 décembre 2010 Statut Membre Dernière intervention 2 janvier 2011 - 23 déc. 2010 à 22:36
Bonjour tout le monde,

J'ai un petit soucis de VBA sous Excel.
J'aimerais afficher du texte dans les propositions d'un ComboBox par l'intermédiaire de la fonction ActiveCell. J'ai mis ce code mais il bloque à la 3° ligne : 

Feuil5.Range("A6").Activate
Do
ComboBox2.AddItem (Worksheets("Tableau MRP").ActiveCell.Value)
ActiveCell.Offset(3, 0).Activate
Loop Until ActiveCell.Text = ""


Ce code doit me permettre de remplir les propositions de mon ComboBox avec les valeurs des cellules A6, A9, A12... jusqu'à ce qu'il y ait une cellule vide.

Merci d'avance pour votre aide.
Ciao

2 réponses

Réponse 1 / 2
Paf
23 déc. 2010 à 21:19
Bonsoir, 
ComboBox2.AddItem (Worksheets("Tableau MRP").ActiveCell.Value)


Y a-t-il une cellule activée dans la feuille "Tableau MRP" ?

Y a t-il un message d'erreur?

A+
0
Réponse 2 / 2
Mik49a Messages postés 9 Date d'inscription vendredi 3 décembre 2010 Statut Membre Dernière intervention 2 janvier 2011
23 déc. 2010 à 21:24
Bonsoir,

La cellule s'active avec la première ligne de mon code, c'est la cellule A6.
Le message d'erreur est "Propriété ou méthode non gérée par cet objet".
0
Paf
Modifié par Paf le 23/12/2010 à 21:31
re
donc Feuil5= Tableau MRP

question bête, existe t-il bien une combobox2 ?

en essayant de reproduire les 2 Pb rencontrés:
cellule non activée et combobox inexistante!
0
Mik49a Messages postés 9 Date d'inscription vendredi 3 décembre 2010 Statut Membre Dernière intervention 2 janvier 2011
Modifié par Mik49a le 23/12/2010 à 21:42
Oui la feuille 5 est bien le Tableau MRP.
Et oui il existe bien un ComboBox2.

Je pense que le problème est au niveau du "ActiveCell.Value" car j'ai déjà remplis une ComboBox avec 
ComboBox2.AddItem (Worksheets("Nomenclature Demo").Range("D9").Value)
et ça marche très bien.

J'ai vérifier plusieurs fois le nom, c'est bien la ComboBox2.
J'ai gardé la première ligne du code pour tester l'activation de la cellule, et cette dernière est bien choisie !
0
Paf
23 déc. 2010 à 21:52
J'ai bien reproduit le Pb en lancant la proc qui va chercher les cellules sur une feuille différente !

si proc et cellules sont sur la même feuille ca marche.

Mais je n'ai pas encore la solution!!
0
Paf
23 déc. 2010 à 22:30
Je n'arrivais pas à me sortir des messages d'erreurs,la solution suivante fonctionne 

i = 6
Do While Worksheets("Tableau MRP").Cells(i, 1) <> ""
    ComboBox2 .AddItem (Worksheets("Tableau MRP").Cells(i, 1).Value)
    i = i + 3
Loop
0
Mik49a Messages postés 9 Date d'inscription vendredi 3 décembre 2010 Statut Membre Dernière intervention 2 janvier 2011
23 déc. 2010 à 22:36
Cool ça marche nickel !
Merci beaucoup pour l'aide rapide ! :)
0

Discussions similaires

code couleur associé a une image
magic charly -
pandora -

9 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses