Selection en boucle dans une combobox

Résolu
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   -  
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   -
Bonsoir,


num = .Range("A65536").End(xlUp).Row + 1 'on part du bas de la colonne

If ComboBox5.Value = Choix1 Then
.Range("A" & num).Value = ComboBox2.Value
If TextBox10.Value = "" Then
MsgBox ("Quantité vaisselle non entrée")
.Range("A" & num).Value = 0
Exit Sub
Else
If CInt(TextBox10.Value) > CInt(TextBox9.Value) Then
MsgBox ("Quantité vaisselle supérieure au stock")
.Range("A" & num).Value = " "
TextBox10.Value = " "
Exit Sub
End If
End If
.Range("A" & num).Value = ComboBox2.Value
.Range("b" & num).Value = TextBox10.Value
TextBox19 = n * TextBox11.Value
.Range("c" & num).Value = TextBox19.Value
TextBox15 = CSng(TextBox15) + CSng(TextBox19)

avec le code ci-dessus et le bouton CommandButton_Click je ne peux sélectionner qu'une valeur de ma combobox2 et je ne peux pas reitérer une nouvelle sélection.en fait je voudrais pouvoir sélectionner une valeur de ma combobox2 entrer une valeur dans la textbox correspondante appuyer sur "enter" pour copier les données dans ma feuille et pourvoir répéter l'opération avec une nouvelle valeur de ma combobox2 comme une boucle
pouvez vous m'aider

merci

2 réponses

Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le Forum

La ComboBox ne possède pas la propriété MultiSelect, comme la ListBox.

Tu peux alors faire une boucle.
For I = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(I) = True Then
        'Action à réaliser
    End If
Next I

Mytå
0
solene85 Messages postés 391 Date d'inscription   Statut Membre Dernière intervention   14
 
bonjour Myta
j'ai donc créé une listebox à la place de la combobox
et c'est parfait comme je le désire

merci
0