Créer une combobox

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

  • FICHE EVALUATION AGENTS.zip
    21 KB · Affichages: 299
  • FICHE EVALUATION AGENTS.zip
    21 KB · Affichages: 298
  • FICHE EVALUATION AGENTS.zip
    21 KB · Affichages: 305
C

Compte Supprimé 979

Guest
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+
 

greg06500

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

Discussions similaires

Réponses
9
Affichages
675

Statistiques des forums

Discussions
314 562
Messages
2 110 730
Membres
110 909
dernier inscrit
François19