Gestion de liste

Bonjour,

Voir onglet 'Spécial'

http://cjoint.com/?ilplYpNriX

La 2 eme liste est égale à la première à l'option choisie dans la
première

Private Sub ListBox1_Click()
Me.ListBox2.List = Me.ListBox1.List
Me.ListBox2.RemoveItem Me.ListBox1.ListIndex
End Sub

Private Sub UserForm_Initialize()
Me.ListBox1.List = TriChamp([liste6])
Me.ListBox2.List = TriChamp([liste6])
End Sub

Cordialement JB

Bonjour à tous
Je dispose d'une liste de 10 noms.
Dans un userform, je désire placer 2 listes déroulantes :
la première est alimentée par cette liste de 10 noms, dans cette liste
déroulante je dois choisir une personne; pour la deuxième liste dér oulante je
désire l'alimenter avec la liste de noms mais sans le premier nom chois i.
Et là, je ne sais plus faire !!!
Auriez-vous une solution (voir exemple) ?
Merci par avance.
Cordialement.
Eliot

Bonjour,
Jusqu'à 5 choix avec combobox dans cet exemple:
http://cjoint.com/?ilpAScZ7s5
'lSteph

Private Sub ComboBox1_Change()

ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox2.Enabled = True
ComboBox3.Enabled = False
ComboBox4.Enabled = False
ComboBox5.Enabled = False
For Each c In [a1:a10].Cells
If c <> ComboBox1 Then ComboBox2.AddItem c
Next
End Sub
Private Sub ComboBox2_Change()
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox3.Enabled = True
ComboBox4.Enabled = False
ComboBox5.Enabled = False
For Each c In [a1:a10].Cells
If c <> ComboBox1 And c <> ComboBox2 _
Then ComboBox3.AddItem c
Next
End Sub
Private Sub ComboBox3_Change()

ComboBox4.Clear
ComboBox5.Clear

ComboBox4.Enabled = True
ComboBox5.Enabled = False
For Each c In [a1:a10].Cells
If c <> ComboBox1 And c <> ComboBox2 _
And c <> ComboBox3 Then ComboBox4.AddItem c
Next
End Sub
Private Sub ComboBox4_Change()
ComboBox5.Clear
ComboBox5.Enabled = True
For Each c In [a1:a10].Cells
If c <> ComboBox1 And c <> ComboBox2 _
And c <> ComboBox3 And c <> ComboBox4 _
Then ComboBox5.AddItem c
Next
End Sub

Private Sub UserForm_Initialize()
For Each c In [a1:a10].Cells
ComboBox1.AddItem c
Next
ComboBox2.Enabled = False
ComboBox3.Enabled = False
ComboBox4.Enabled = False
ComboBox5.Enabled = False
End Sub

"Eliot Naiss" <EliotNaiss@discussions.microsoft.com> a écrit dans le message
de news: 1D13DDB1-8E11-4004-8426-22021E3A8434@microsoft.com...

Bonjour à tous
Je dispose d'une liste de 10 noms.
Dans un userform, je désire placer 2 listes déroulantes :
la première est alimentée par cette liste de 10 noms, dans cette liste
déroulante je dois choisir une personne; pour la deuxième liste déroulante
je
désire l'alimenter avec la liste de noms mais sans le premier nom choisi.
Et là, je ne sais plus faire !!!
Auriez-vous une solution (voir exemple) ?
Merci par avance.
Cordialement.
Eliot

...pardon avec un petit bouton c'est mieux
http://cjoint.com/?ilpMkqujZW


"Eliot Naiss" <EliotNaiss@discussions.microsoft.com> a écrit dans le message
de news: 1D13DDB1-8E11-4004-8426-22021E3A8434@microsoft.com...

Bonjour à tous
Je dispose d'une liste de 10 noms.
Dans un userform, je désire placer 2 listes déroulantes :
la première est alimentée par cette liste de 10 noms, dans cette liste
déroulante je dois choisir une personne; pour la deuxième liste déroulante
je
désire l'alimenter avec la liste de noms mais sans le premier nom choisi.
Et là, je ne sais plus faire !!!
Auriez-vous une solution (voir exemple) ?
Merci par avance.
Cordialement.
Eliot

Merci à JB et à ISteph, leurs deux réponses m'ont très bien aidées et me
conviennent parfaitement, je vais mettre cela en oeuvre de suite !...
Cordialement.
Eliot

Bonjour à tous
Je dispose d'une liste de 10 noms.
Dans un userform, je désire placer 2 listes déroulantes :
la première est alimentée par cette liste de 10 noms, dans cette liste
déroulante je dois choisir une personne; pour la deuxième liste déroulante je
désire l'alimenter avec la liste de noms mais sans le premier nom choisi.
Et là, je ne sais plus faire !!!
Auriez-vous une solution (voir exemple) ?
Merci par avance.
Cordialement.
Eliot