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.
 

Fichiers joints

Robert

XLDnaute Barbatruc
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


Haut Bas