initialisation combobox sur feuille calcul

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

rcan7412

XLDnaute Occasionnel
Comment faire pour que la combo affiche directement la liste des enregistrements ?

Si je clique sur la feuille avec les données puis sur la feuille avec la combo, ça marche ?

Mais si à l'ouverture du document je clique sur la combo.

Mistère............
 
Bonsoir rcan7412, jammy17, le Forum,

Pas de mystère ici rcan7412... Tu as utilisé l'évènement Activate() de la feuille 'Feuil1' pour alimenter ta ComboBox1 placée sur cette même feuille. Or, cet évènement Activate() ne réagit que lorsque tu accèdes à cette feuille par un clic sur l'onglet correspondant. A l'ouverture de ton classeur, il te faut donc activer une autre feuille puis revenir sur cette Feuil1 pour voir ta ComboBox1 se charger d'éléments.

Comme te le suggère Jammy17, il serait donc préférable de procéder au chargement de la liste dans l'évènement Workbook_Open() de l'objet ThisWorkbook :
Private Sub Workbook_Open()
      With Sheets('Base')
            Sheets('Feuil1').ComboBox1.List = .Range('F2:F' _
                  & .Range('F2').End(xlDown).Row).Value
      End With
End Sub
Cordialement,

Message édité par: myDearFriend!, à: 02/01/2006 21:20
 
Merci à tous pour votre aide utile à la compréhension. En fouillant, j'ai trouvé encore plus simple :

Code:
Private Sub ComboBox1_GotFocus()
With Sheets('Base')
    ComboBox1.Clear
    ComboBox1.List = .Range('F2:F' & .Range('F2').End(xlDown).Row).Value
End With
End Sub

Cette option marche à l'ouverture du classeur, peut importe où on se trouve.
 
- 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
6
Affichages
553
Réponses
2
Affichages
162
Réponses
37
Affichages
1 K
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
739
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
288
Retour