ComboBox2.AddItem ??

[Evelynetfrancois]

bonjour , a toutes et tous
je cherche desesperement une macro
qui , a l initailization , me remplierait la combobox2
de la totalite de la liste
en prenent aussi en compte , les nouvelles entrees de cette liste
Suis-je clair ??
pouvais vous me guider ??


merci vraiment pour tout !!!
E et F

Private Sub UserForm_Initialize()
Dim cel As Range
Dim line As Range
With Sheets('helpsheet')
line = Sheets('helpsheet').Range('c1:C1000').End(xlUp).Row
For Each cel In line
ComboBox2.AddItem cel.Value
Next
End With
End Sub

 

[Robert]

Bonjour Evelyne et François, bonjour le forum,

Dans ton code la variable line te renvoie le numéro de linge (attention tu la déclares comme Range, c'est faux) de la dernière cellule éditée de la colonne C. Mais ensuite, il te faut vérifier toutes les cellules de C1 (ou C2) à C_line...

Private Sub UserForm_Initialize()
Dim cel As Range
Dim line As Integer 'attention line est un numéro de ligne !!!

With Sheets('helpsheet')
line = .Range('C1000').End(xlUp).Row
For Each cel In .Range('C1:C' & line) 'à modifier si tu ne commences pas en C1...
ComboBox2.AddItem cel.Value
Next cel
End With
End Sub

Message édité par: Robert, à: 22/10/2005 16:12

 

[PascalXLD]

Bonjour

Private Sub UserForm_Initialize()
Dim x As integer
Dim line As integer
With Sheets('helpsheet')
line = .Range('C65536').End(xlUp).Row
For x = 1 to line
ComboBox2.AddItem .Range('C' & x)
Next
End With
End Sub

Bon WE

 

[Bricofire]

Bonjour Evelynetfrancois, Robert, Pascal

En utilisant la propriété Rowsource des combos :


Private Sub UserForm_Initialize()
Dim Lizt As Range

Worksheets('helpsheet').Activate
Set Lizt = Range(Range('C65536').End(xlUp), Range('C1'))
ComboBox2.RowSource = LiztC.Address

End Sub


Bon WE à tous,

Brico

 

[Evelynetfrancois]

Merci beaucoup
Robert, Pascal et bricofire
une fois de plus , vous me solutionné mon petit blem , vous etes trop simpa !! et tres fort !!
moi je tatouille !!!!
encore merci et à la prochaine avec plaisir !!!!!

E et F