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

A voir également:

VBA Remplir un comboBox avec ActiveCell
Organigramme a remplir word - Guide
Remplir et signer pdf - Guide
Excel compter cellule couleur sans vba - Guide
Find vba - Astuces et Solutions
Remplir un cheque bnp - Télécharger - Comptabilité & Facturation

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+

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".

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!

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 !

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!!

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

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 ! :)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

ouverture d'un fichier excel à partir d'un code VBA

Erreur d'exécution 13 Incompatibilité de type

Remplir une cellule (texte) en fonction d'une autre (texte).

VBA : Range avec références variables..