inputbox et la sélection multiple

[Francky59]

bonjour ,

Comment remplir un listbox à partir de la plage séléctionner par un application.inputbox
,ci-joint le début de mon code mais je trouve pas la solution

merci d'avance pour votre aide

Sub test()
Dim liste As ListBox

liste.List = Application.InputBox('test')
UserForm1.ListBox1.List = liste

End Sub

 

[CBernardT]

Bonsoir Francky59,

Si j'ai bien compris ta question, tu veux pouvoir choisir une liste au travers d'une inputbox puis afficher dans une userform une zone de liste qui affiche la liste choisie ?

La macro d'initialisation de la userform peut être du style suivant :

Private Sub UserForm_Initialize()
Dim Liste As String

Liste = InputBox('Entrez le nom d'une liste !', 'LISTE A CHOISIR', 'Nom')
With UserForm1
ListBox1.RowSource = Liste
End With
End Sub

Cordialement

Bernard

 

[Mytå]

Salut Francky59, CBernardT et le Forum

Une autre alternative dans un module standard

Sub Remplir()

Dim Rng As Range

With UserForm1
With .ListBox1
.RowSource = ''
Set Rng = Application.InputBox('select range', Type:=8)
.RowSource = Rng.Address(external:=True)
End With
.Show
End With

End Sub

Mytå

P.S. Le type 8 te permet de n'accepeter qu'une entrée de type Range

Message édité par: Mytå, à: 27/09/2005 23:38

 

[Mytå]

Une réponse de ta part Francky59 aurait été bien !

Tu crois que part la suite j'aurais envie de répondre
à un autre visiteur.........

Mytå (Know starting today to appear not disponible)

 

[Francky59]

Merci Beaucoup de ta réponse
désolé pour le retard j'etais en déplacement

A bientôt

Cordialement