Macro remplissage d'une combobox sur menu popup a partir d'une plage de cellules

  • Initiateur de la discussion Initiateur de la discussion crefieu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

crefieu

XLDnaute Nouveau
Bonjour le Forum,

J'essaye de faire une combobox dans un menu popup, dont la liste est base sur une plage de cellule d'une autre feuille (voir fichier joint ce sera plus clair que 1000 explication) 🙂

J'ai deux problemes : Voir les codes en commentaires en bas du module 1

- dans la macro "Add_PopupBar()" je n'arrive pas ajouter les cellules en jaune de la feuille "Source" dans la combobox

-dans la macro "macro1" je n'arrive pas a recuperer le numero de l'item choisi dans choix.

Voila si quelqu'un a une explication ou une solution a apporter cela m'aiderait grandement

Bonne soiree
 

Pièces jointes

Re : Macro remplissage d'une combobox sur menu popup a partir d'une plage de cellules

Bonjour crefieu

Essaies de placer ceci :

VB:
Set Plage = Range("Source!G12:G16")
.../...
With Ccombo
  For Each c In Plage
    .AddItem c.Value
  Next c
End With
.../...
Klin89
 
Re : Macro remplissage d'une combobox sur menu popup a partir d'une plage de cellules

Bonjour,

Pendant qu'on y est :

dans le Bloc With CCombo ou je parametre le control, je voudrais stocker le texte selectionner pour l'afficher dans la cellule active
Code:
With CCombo

........

     .OnAction = "macro1"

........

     Text =.List(.ListIndex)
End With
Cela ne m'affiche rien dans la cellule
Pourtant la commande est bonne il me semble? je recupere bien le texte associe a la selection dans la liste?
Peut on effectuer plusieurs commande sur .OnAction? genre j'execute la macro 1 et je stocke le texte en meme temps

Cordialement

Edit : Je n'ai rien dit! j'ai trouve une solution!
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
1 K
Retour