combobox et plage de cellules

[Fifi Bricotin]

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]

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é]

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]

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]

bonsoir hervé

merci pour les autres solutions

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

Manu

 

[Hervé]

re tout le monde

de rien manu.

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



salut