Créer une combobox

C

Compte Supprimé 979

Guest

• 7 Août 2007

• #2

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+

 

Vote positif 0 Vote négatif

T

Tabalori

XLDnaute Nouveau

• 7 Août 2007

• #3

Re : Créer une combobox

Merci Bruno,

Ca marche impec'

Bonne journée

 

Vote positif 0 Vote négatif

G

greg06500

XLDnaute Nouveau

• 7 Août 2007

• #4

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

 

Vote positif 0 Vote négatif

T

Tabalori

XLDnaute Nouveau

• 7 Août 2007

• #5

Re : Créer une combobox

Merci Greg

Merci Bruno

Avec votre aide, cela ne pouvait que marcher

 

Vote positif 0 Vote négatif