Créer une combobox

[Tabalori]

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

 

[Compte Supprimé 979]

Re : Créer une combobox

Salut Tabalori,

Rajoute le code suivant dans ton UserForm

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+

 

[Tabalori]

Re : Créer une combobox

Merci Bruno,

Ca marche impec'

Bonne journée

 

[greg06500]

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

 

[Tabalori]

Re : Créer une combobox

Merci Greg

Merci Bruno

Avec votre aide, cela ne pouvait que marcher