Microsoft 365 ListBox et sélection

PORCHER

XLDnaute Occasionnel
Bonjour mes amis,
j'ai besoin de vous pour répondre à mon problème ;
J'ai un userForm avec une listBox et sélection multiple, je souhaiterais suivant la sélection
dans ma listBox remplir les cellules suivant le mois sélectionner.
est il possible de le faire ?
Merci de vos réponse

Ci-joint exemple qui ne fonctionne pas..
 

Pièces jointes

  • test.xlsm
    23.8 KB · Affichages: 8

Lolote83

XLDnaute Barbatruc
Re bonjour,
Je pense avoir compris.
Changer le bloc suivant
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then .Cells(numLigne, 3).Value = ListBox1.List(i)
If ListBox1.Selected(i) = True Then .Cells(numLigne, 4).Value = ListBox1.List(i)
'.Cells(numLigne, 5).Value = ListBox1.List(i)
'.Cells(numLigne, 6).Value = ListBox1.List(i)
Next i

par celui-ci
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then .Cells(numLigne, 2 + i).Value = ListBox1.List(i)
Next i
Cordialement
@+ Lolote83
 

PORCHER

XLDnaute Occasionnel
Merci Lolote83
çà marche !! bravo
Mais ce n'était pas dans mon objectif de remplir suivant la sélection par des mois
je souhaiterais suivant la sélection dans la listBox et suivant le montant dans la textBox2 remplir
dans les mois correspondant à la sélection.
je joint l'exemple corrigé
 

Pièces jointes

  • test.xlsm
    25.8 KB · Affichages: 15

Lolote83

XLDnaute Barbatruc
Re bonjour,
Mais ce n'était pas dans mon objectif de remplir suivant la sélection par des mois
je souhaiterais suivant la sélection dans la listBox et suivant le montant dans la textBox2
En même temps, ce n'était pas expliqué comme cela au depart, et aucune présence d'un quelconque TextBox2 dans le premier fichier joint. Je ne suis pas devin !!!!

Alors il suffit d'inscrire en fin de ligne la valeur du textebox2
If ListBox1.Selected(i) = True Then .Cells(numLigne, 2 + i).Value = Val(TextBox2)
Si toutefois, j'ai bien compris
@+ Lolote83
 
Dernière édition:

Statistiques des forums

Discussions
312 801
Messages
2 092 245
Membres
105 314
dernier inscrit
SABER ABD