Autres probleme de choix au niveau de listbox et combobox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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 !...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
1 K
Retour