Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Evénement Click sur Listbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion CHALET53
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

CHALET53

XLDnaute Barbatruc
Bonjour à tous,
Lorsque l'on sélectionne un item, il apparaît un X à côté

Je souhaiterai pouvoir annuler ma sélection et remettre à blanc la colonne où est inscrit le X
Il faudrait que préalablement cet item ait été désélectionné : Comment le Faire

Avec l'événement double click, pas de souci : je peux désélectionner
Je souhaiterai le faire avec un simple click

L'utilisation finale est destinée au pointage d'un compte bancaire
(annulation du pointage si erreur de ligne, par exemple)

D'avance Merci
 

Pièces jointes

Trier par date Trier par votes
Bonjour,

Votre macro corrigée: plus de gestion sur click mais sur mouseup.
VB: 
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With ListBox1
         Rng = .ListIndex
        If Rng < 0 Then Exit Sub
        a = .List(Rng, 1)
        .List(Rng, 1) = IIf(.List(Rng, 1) = "", "X", "")
    End With
End Sub

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Chalet, bonjour le forum,

Essaie comme ça :
VB: 
Private Sub ListBox1_Click()
With Me.ListBox1
    For I = 0 To .ListCount - 1
        .Column(1, I) = IIf(.Selected(I) = True, "X", "")
    Next I
End With
End Sub
 
Vote positif 0 Vote négatif
Re bonjour,

Je me demande pourquoi ne pas utiliser une listbox avec ListStyle = 1 - fmListStyle option, qui est prévue pour ça (soit en multiselect avec case à cocher soit en singleselect avec bouton d'option)?

Bonne soirée
[Edit] Hello @Robert 🙂
 
Vote positif 0 Vote négatif
Re,
Merci pour vos propositions
Robert : J'avais utilisé ListBox1_MouseUp. Je pensais qu'il était possible de trouver une solution avec Listbox1_Click. Je vais rester avec la solution MouseUp
Roblochon : la première proposition ne convient pas car je peux avoir plusieurs lignes sélectionnées . Le pgm me supprime toutes les lignes sélectionnées
Je vais creuser la piste ListStyl et multiselect
Encore merci
Bonne soirée
 
Vote positif 0 Vote négatif
re
bonjour
sinon tu a le mouse down avec bouton 1 ou 2
VB: 
'Option Explicit
#If vba7 Then
    Private Declare PtrSafe Function GetDC& Lib "user32.dll" (ByVal hwnd&)
    Private Declare PtrSafe Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
#Else
    Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&)
    Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)

#End If
Dim tb()


Private Sub ListBox1_Click()
    Rng = Me.ListBox1.ListIndex
    With ListBox1
         .List(Rng, 1) = "X"
       End With
End Sub

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        With ListBox1
            If .ListIndex >= 0 Then .List(.ListIndex, 1) = ""
        End With
    End If

End Sub
si tu click droit sur un item sélectionne ca enlève le "X" mais j'avoue que la solution de roblochon serait adequate meme en multiselect

 
Vote positif 0 Vote négatif
Re, bonjour Patrick,

Ce qui m'échappe à moi se sont les fichiers exemple qui n'en sont pas. La propriété Multiselect de ta Listbox1 est églae à 0 - fmMultiSelectSingle !...
Ça ne t'échappe pas ça ?!...
 
Vote positif 0 Vote négatif
si le demandeur veux bien se donner la peine

VB: 
'Option Explicit
#If vba7 Then
    Private Declare PtrSafe Function GetDC& Lib "user32.dll" (ByVal hwnd&)
    Private Declare PtrSafe Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)
#Else
    Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&)
    Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&)

#End If

Private Sub UserForm_Initialize()
'Stop
    Dim S#, Y#, w#, h#, F As Worksheet
    ActiveWindow.Zoom = 100
    S = GetDeviceCaps(GetDC(0), 88) / 72
    Y = GetDeviceCaps(GetDC(0), 90) / 72


    With Me
        .StartUpPosition = 0
        .Left = ActiveWindow.PointsToScreenPixelsX(ActiveCell.Left * S) * 1 / S
        .Top = ActiveWindow.PointsToScreenPixelsY(ActiveCell.Top * Y) * 1 / Y
    End With
    
    Set F = Sheets("Feuil2")
    With ListBox1
        .ListStyle = fmListStyleOption
        .MultiSelect = fmMultiSelectMulti
        .List = F.Range("A5", F.Cells(Rows.Count, "A").End(xlUp)).Value
    End With

End Sub
 
Vote positif 0 Vote négatif
Robert
Mon fichier exemple est exactement la copie de mon fichier de référence. D'ailleurs, la copie pure et simple de la proposition de Roblochon fonctionne sur le fichier de destination.
Patrick dit : si le demandeur veux bien se donner la peine

Faudrait peut-être pas exagérer : Je suis inscrit depuis 2006 sur ce site. J'interviens souvent avec mes petits moyens (le nombre d'interventions peut en attester). Alors les leçons de morale !!!!!!!!!!!

Je vous l'accorde :Je ne suis pas un grand à côté des experts qui interviennent (dont les solutions m'impressionnent souvent)

Merci pour vos propositions qui, par ailleurs, m'intéressent.
Considérer que le dossier est clos
Merci pour vos conseils et solutions
Bonne soirée
 
Vote positif 0 Vote négatif
bonjour chalet ca n'avait rien d'une critique ou lecon
mais je sais que on me dit de tout effacer dans mon module et de coller un autre code ca peut faire peur c'est dans ce sens que je l'ai dit
par ailleurs je ne sais pas si tu l'a remarquer j'ai ajouté la compatibilité des api avec le 32 bit ton fichier devrait fonctionner aussi bien sur 32 que 64 ca mange pas de pain et au cas ou ton fichier serait exploité sur diverses version d'excel et d'office
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…