VBA Remplir un comboBox avec ActiveCell

Résolu
Mik49a Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
Mik49a Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -
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
 
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   Statut Membre Dernière intervention  
 
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
 
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   Statut Membre Dernière intervention  
 
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
 
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
 
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   Statut Membre Dernière intervention  
 
Cool ça marche nickel !
Merci beaucoup pour l'aide rapide ! :)
0

Discussions similaires

ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Remplir une cellule (texte) en fonction d'une autre (texte).
SOMUM -
SOMUM -

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

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

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

7 réponses