Glisser sur cases à cocher listbox en cochant ou décochant

[carlos]

Bonjour
En cliquant sur la listbox 1 , ca me met un "X" ou me le retire en colonne C.
En glissant la souris sur la liste ca me met plein de "X" en colonne C sans les mettre sur les cases à cocher .
Comment faire pour eviter de faire glisser la souris sur la listbox pour empecher de mettre des "X" ou le contraire cocher ou decocher les cases .

Voir PJ
Merci
Carlos

 

[Robert]

Re : Glisser sur cases à cocher listbox en cochant ou décochant

Bonjour Carlos, bonjour le forum,

Peut-être comme ça :

Private Sub ListBox1_Change()
For i = 0 To Me.ListBox1.ListCount - 1
    Sheets("Feuil1").Cells(i + 4, 3).Value = IIf(Me.ListBox1.Selected(i) = True, "X", "")
Next i
End Sub

 

[sousou]

Re : Glisser sur cases à cocher listbox en cochant ou décochant

Bonjour à tous
une solution !
Private Sub ListBox1_Change()

Dim foundcell As Range
Set foundcell = Range("b4")
nb = ListBox1.ListCount
For i = 0 To nb - 1

If ListBox1.Selected(i) = True Then état = "X" Else état = ""
foundcell.Offset(i, 1) = état
Next

End Sub
J'arrive trop tard

 

[Guest]

Re : Glisser sur cases à cocher listbox en cochant ou décochant

Bonjour,

Si j'ai bien compris, sur l'évènement MouseUp :

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim idx As Integer
    idx = ListBox1.ListIndex
    For idx = 0 To ListBox1.ListCount - 1
    Range(ListBox1.RowSource).Cells(idx + 1, 2) = Array("", "X")(Abs(ListBox1.Selected(idx)))
    Next
End Sub

A+

[Edit] Salut Robert🙂

 

[carlos]

Re : Glisser sur cases à cocher listbox en cochant ou décochant

Bonjour Robert

SUPER .
Merci beaucoup

Carlos

 

[Robert]

Re : Glisser sur cases à cocher listbox en cochant ou décochant

Bonsoir le fil, bonsoir le forum,

Tu n'as sans doute pas vu, Carlos, que Sousou et Hasco ont aussi participé à ton fil. Ils ont fait l'effort de l'ouvrir, d'y réfléchir et de t'apporter une solution. Ça mérite au minimum un boujour et un merci... Je le fais pour toi.
Merci donc à Sousou et Hasco...

 

[carlos]

Re : Glisser sur cases à cocher listbox en cochant ou décochant

Bonjour Robert,Hasco,Sousou,le forum

Effectivement , je n'avais pas vu les réponses de Hasco et Sousou qui me paraissent très pertinente aussi .
Désolé ....
Ces réponses me serviront certainement.
Merci à tous les 3 pour la rapidité de vos réponses.
Merci aussi à ce site qui m'a permis d'avancer chaque jour un peu plus dans mes projets.

Carlos