combobox et plage de cellules

Fifi Bricotin · 9 Février 2006

Bonsoir,

j'arrive à proposer quelques valuers que je saisis directement dans mon code dans mon combobox.

Mais je souhaite maintenant proposer dans un nouveau combobox une liste de noms en faisant référence à la plage de cellules où ils se trouvent sur un autre onglet.

Merci de bien vouloir m'indiquer le code qui peut aboutir à ça, si par exemple la plage de cellules contenant les valeurs à proposer dans le combobox se trouve en A1:A100 de la feuil2 de mon classeur.

Merci d'avance

Fifi Bricotin

Manu13 · 9 Février 2006

salut fifi bricotin

essaye ceci

sub...()
Dim L As Integer
L = Range('A65536').End(xlUp).Row
with sheets('feuil2')
combobox1.RowSource = '!A3:A100' & L
end with
end sub

Manu

Hervé · 10 Février 2006

Bonsoir fifi bricotin, manu

sinon, comme ceci :

With Sheets('feuil2')
ComboBox1.List = .Range('a1:a' & .Range('a65536').End(xlUp).Row).Value
End With

ou comme ceci :

Dim c As Range

With Sheets('feuil2')
For Each c In .Range('a1:a' & .Range('a65536').End(xlUp).Row)
ComboBox1.AddItem c
Next c
End With

salut

Fifi Bricotin · 10 Février 2006

Bonsoir Manu et Hervé,

merci pour vos réponses

Me voici dépanné. Je vais faire de beaux rêves grâce à vous.

Fifi

Manu13 · 10 Février 2006

bonsoir hervé

merci pour les autres solutions

code à mettre dans l'initialisation de l'userform
qui n'a pas été précisé...

Manu

Hervé · 10 Février 2006

re tout le monde

de rien manu.

par contre, pour l'initialize du userform, tu t'avances. fifi nous a rien précisé.

salut

combobox et plage de cellules

Fifi Bricotin

Guest

Manu13

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc