Autres probleme de choix au niveau de listbox et combobox

chris_sympa

XLDnaute Nouveau
Bonjour,
je vais essayer de vous exposer mon problème et je vous remercie d'avance de votre aide.
J'ai un simple tableau de 3 tech pour monter une astreinte annuel.
donc je charge ces 3 tech. soit dans une listbox ou combobox.
ce que je veux c'est quand j'ai choisi un tech il s'inscrit dans le textbox1, 2eme choix dans textbox2 et ainsi de suite.

a savoir que lorsque le chois du tec est fait j'aimerai qu'il soit supprimer dans le listbox.
le choix est limité au nombbre de tech. c.a.d 3 choix.

je n'arrive pas a faire cela ni avec la listebox ni avec la combobox.

merci de m'aider.
 

Pièces jointes

  • Classeur1.xlsm
    26.9 KB · Affichages: 7

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Chris, bonjour le forum,

J'ai supprimé la ComboBox1 de l'Userform1. Attention, l'action se fait désormais au double-clic dans la ListBox1. Remplace tout ton code par celui ci-dessous :

VB:
Private O As Worksheet
Private TV As Variant
Private NF As Byte

Private Sub UserForm_Initialize()
Dim I As Integer

Set O = Worksheets("Feuil1")
TV = O.Range("A1").CurrentRegion
For I = 2 To UBound(TV, 1)
    Me.ListBox1.AddItem TV(I, 1)
Next I
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim J As Integer

If NF = 3 Then
    MsgBox "Vous ne pouvez sélectionner que trois techniciens !"
    Exit Sub
End If

For J = Me.ListBox1.ListCount - 1 To 0 Step -1
    If Me.ListBox1.Selected(J) = True Then
        Me.Controls("TextBox" & NF + 1).Value = Me.ListBox1.List(J)
        Me.ListBox1.RemoveItem (J)
        NF = NF + 1
        Exit Sub
    End If
Next J
End Sub

Remarque : les déclarations publiques (Public) ne peuvent être faites que dans des modules standards !...
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG