Microsoft 365 ListBox et sélection

[PORCHER]

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..

 

[Lolote83]

Bonjour PORCHER,
Une fois le choix effectué via le formulaire, quelle cellules doivent être remplies ?
Sur quel onglet ?
Est-ce seulement la valeur des cases à cocher qu'il faut inscrire ?
Merci pour ces éclaircissements
@+ Lolote83

 

[PORCHER]

Merci d'avoir répondu
Dans l'onglet "DBase"
ligne d'Entête Colonne A2 la Date
puis les jours du mois colonne de B2 à M2
suivant la sélection du ou des mois sélectionner dans le formulaire.

 

[Lolote83]

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]

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é

 

[Lolote83]

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

 

[PORCHER]

Je suis désolé, mes excuses je me suis perdue dans le sujet.
Encore une fois Merci
C'est parfais