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

A voir également:

Selection en boucle dans une combobox
Freebox redémarre en boucle ✓ - Forum Freebox
Inverser selection excel - Forum Excel
Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
Boucle excel sans macro - Forum Excel
Boucle cmd - Forum Programmation

2 réponses

Réponse 1 / 2

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
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å

Réponse 2 / 2

solene85 Messages postés 391 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 9 janvier 2016 13
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

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

Redémarrage en boucle Xiamo mi note 10

Outil sélection Adobe Illustrator

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters