initialisation combobox sur feuille calcul

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

rcan7412

XLDnaute Occasionnel
Voilà le fichier [file name=SimpleListeDeroulanteTrieVba.zip size=9402]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SimpleListeDeroulanteTrieVba.zip[/file]
 

Pièces jointes

  • SimpleListeDeroulanteTrieVba.zip
    9.2 KB · Affichages: 34

myDearFriend!

XLDnaute Barbatruc
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
 

rcan7412

XLDnaute Occasionnel
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.
 

Discussions similaires

Statistiques des forums

Discussions
312 963
Messages
2 093 996
Membres
105 906
dernier inscrit
aifa