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

Créer une combobox

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

Tabalori

XLDnaute Nouveau
Bonjour,

Toujours aussi nul sur VBA, je sollicite votre concours afin de m'aider à résoudre le probleme suivant:

j'ai créé une combobox "Directions" et j'aimerais y affecter les données contenues dans l'onglet "Directions" du fichier joint

Merci par avance
 

Pièces jointes

Re : Créer une combobox

Salut Tabalori,

Rajoute le code suivant dans ton UserForm
Code:
Private Sub UserForm_Initialize()
  Dim I As Integer
  With Sheets("Directions")
    ' Pour chaque ligne de la colonne "A" jusqu'à la dernière remplie
      For I = 1 To .Range("A65536").End(xlUp).Row
      Me.CMB_Directions.AddItem .Range("A" & I).Value
    Next I
  End With
End Sub

A+
 
Re : Créer une combobox

Salut,

Private Sub UserForm_Initialize()
With Feuil3
Dim Direction As Range
For Each Direction In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Me.CMB_Directions.AddItem Direction
Next
End With
End Sub

@+
GREG
 
- 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
5
Affichages
67
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…