Combo Box

Bonjour,

Me.ComboBox3.RowSource = "Menu!A1008:B" &
Sheets("Menu").[A65000].End(xlUp).Row

JB

Bonjour,

J'essaie d'alimenter un ComboBox d'une liste inclus sur une autre feuille.
J'obtiens une erreur 1004. Est-ce faisable ?
Voici mon code:

Private Sub UserForm_Initialize()
Dim Pér As Range
Set Pér = Worksheets("Menu").Range("A1008", [a65536].End(xlUp))
ComboBox3.RowSource = Pér.Address

Merci.

Caro

Bonsoir,

Pour respecter ce que tu faisais dans ton code ou si Pér doit servir
plus loin et que tu comprennes où était le souci
l'adresse du range placé dans la variable ne précise pas le nom de la
feuille)on est donc obligé d'en tenir compte pour le passage au
rowsource.

'''''''''''''''''''''''''''
Private Sub UserForm_Initialize()
Dim Pér As Range
With Sheets("Menu")
Set Pér = Range(.[a1008], .[a65536].End(xlUp))
End With
ComboBox3.RowSource = "Menu!" & Pér.Address
'... la suite
End Sub
''''''''''''''''''''''''''''''


'Cdlt.

'lSteph


Caro a formulé ce samedi :

Bonjour,

J'essaie d'alimenter un ComboBox d'une liste inclus sur une autre feuille.
J'obtiens une erreur 1004. Est-ce faisable ?
Voici mon code:

Private Sub UserForm_Initialize()
Dim Pér As Range
Set Pér = Worksheets("Menu").Range("A1008", [a65536].End(xlUp))
ComboBox3.RowSource = Pér.Address

Merci.

Caro

--
- -

Bonsoir

Merci a vous deux pour votre réponse, qui fonctionne très bien. Cependant,
je me trouve confrontée à un autre problème... Je débute dans les UserForm...
ma liste est une liste de date, que je vois comme tel dans la liste. Quand
je sélectionne cette date, elle est transformée en nombre.

Comment puis-je remédier à ça ?

Merci encore.

Bonsoir,

Pour respecter ce que tu faisais dans ton code ou si Pér doit servir
plus loin et que tu comprennes où était le souci
l'adresse du range placé dans la variable ne précise pas le nom de la
feuille)on est donc obligé d'en tenir compte pour le passage au
rowsource.

'''''''''''''''''''''''''''
Private Sub UserForm_Initialize()
Dim Pér As Range
With Sheets("Menu")
Set Pér = Range(.[a1008], .[a65536].End(xlUp))
End With
ComboBox3.RowSource = "Menu!" & Pér.Address
'... la suite
End Sub
''''''''''''''''''''''''''''''


'Cdlt.

'lSteph


Caro a formulé ce samedi :

Bonjour,

J'essaie d'alimenter un ComboBox d'une liste inclus sur une autre feuille.
J'obtiens une erreur 1004. Est-ce faisable ?
Voici mon code:

Private Sub UserForm_Initialize()
Dim Pér As Range
Set Pér = Worksheets("Menu").Range("A1008", [a65536].End(xlUp))
ComboBox3.RowSource = Pér.Address

Merci.

Caro

--
- -