VBA Remplir un comboBox avec ActiveCell

Résolu

Mik49a -

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

Afficher la suite

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 Auteur
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
1. 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
2. Mik49a Auteur
  
  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
3. 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
4. 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
5. Mik49a Auteur
  
  Cool ça marche nickel !
  Merci beaucoup pour l'aide rapide ! :)
  
  0

VBA Remplir un comboBox avec ActiveCell

2 réponses

Discussions similaires

Newsletters