Selection en boucle dans une combobox

Résolu/Fermé
solene85 Messages postés 391 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 - 1 nov. 2014 à 23:47
solene85 Messages postés 391 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 - 2 nov. 2014 à 13:37
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 mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 950
2 nov. 2014 à 00:19
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 jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 14
2 nov. 2014 à 13:37
bonjour Myta
j'ai donc créé une listebox à la place de la combobox
et c'est parfait comme je le désire

merci
0