Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Liste Dans Un Combobox

  • Initiateur de la discussion Initiateur de la discussion matrix
  • 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 !

matrix

XLDnaute Occasionnel
Bonjour,

Je voudrais modifier le script pour la liste qui apparait dans le comboBox.

Voici le script:

Code:
Sheets("Listes").Select
ComboBox3.RowSource = "E2:E12" 'ta plage de données
If ComboBox3.Value = "E2" Then
Sheets("Tableau Général").Select
End If
Sheets("Tableau Général").Select

Le problème est que si j'ajoute un nom de plus dans la liste, je dois modifier le code pour qu'il ajoute les ligne de plus. comme dans l'exemple plus haut.

Code:
ComboBox3.RowSource = "E2:E12" 'ta plage de données

devient
Code:
ComboBox3.RowSource = "E2:E20" 'ta plage de données



Comment faire pour que ça s'ajuste tout seul même si j'ajoute des nom dans la liste?


Merci pour votre aide.

🙂
 
Dernière édition:
Re : Liste Dans Un Combobox

Bonjour

essaye cela
Code:
ComboBox3.RowSource = "E2:E" & Sheets("Mafeuille").range("E65536").end(xlup).row

Sheets("Mafeuille").range("E65536").end(xlup).row ' te donne la derniere ligne non vide
 
Re : Liste Dans Un Combobox

Merci.

Lorsque je regarde dans le ComboBox3, je suis sur la feuille "Tableau Général" mais la liste du ComboBox3 est dans la feuille "Listes".

Avec le script que tu m'as donnée, il me donne la liste qui ce trouve dans la feuille "Tableau Général" dans la colonne E au lieu de la feuille "Listes".
 

Pièces jointes

Re : Liste Dans Un Combobox

Je viens de trouver

Code:
With Sheets("Listes")
    Plage = .Range("E2:E" & .Range("E65536").End(xlUp).Row).Address
End With
ComboBox3.RowSource = "Listes!" & Plage

Merci pour ton aide wilfried_42 🙂 grace à une partie de ton code, j'ai trouvé une façon de le faire.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…