création listing avec userform

Bonjour
Voici peut être une façon de procéder :
Soit la feuille Feuil1 contenant les éléments de la liste à partir de la
cellule A1
Soit un Userform contenant une zone de liste déroulante nommée Combobox1 et
un bouton Cmd_Ajout
Soit la feuille Feuil2 receptionnant à partir de la cellule A1 les éléments
de la zone de liste déroulante après mise à jour
Fonctionnement :
Lorsqu'une nouvelle valeur a été saisie et validée par la touche entrée dans
la zone de liste déroulante , un message demande la confirmation de l'ajout
du nouvel élément
Dans le code de Userform1 :
Private Sub UserForm_Initialize()
For i = 1 To Worksheets("Feuil1").Range("A65536").End(xlUp).Row
Me.ComboBox1.AddItem Worksheets("Feuil1").Cells(i, 1)
Next i
End Sub
Private Sub ComboBox1_AfterUpdate()
If Not ComboBox1.MatchFound Then
If MsgBox("Ajout de l'élément " & ComboBox1.Value, vbYesNo + vbQuestion,
"Ajouter") = vbYes Then
ComboBox1.AddItem ComboBox1.Value
End If
End If
End Sub
Private Sub Cmd_Ajout_Click()
For i = 0 To Me.ComboBox1.ListCount - 1
Worksheets("Feuil2").Cells(i + 1, 1).Value = Me.ComboBox1.List(i)
Next i
End Sub

Cordialement
Pascal


"Fred C." <"antispam"fredalex@club-internet.fr> a écrit dans le message de
news:40fd52a3$0$308$7a628cd7@news.club-internet.fr...

J'aimerais a partir d'une liste dans une feuille créer un userform qui me
permettrais de reprendre les infos de cette liste et de saisir diverses
informations supplémentaires et de créer à partir de cela une nouvelle
liste

dans une autre feuille.
J'espère mettre fait comprendre
je vous remercie pour votre aide