Désélectionner un choix en surbrillance dans une listbox

  • Initiateur de la discussion Initiateur de la discussion chocos
  • 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 !

chocos

XLDnaute Nouveau
Bonjour,

Je souhaite désélectionner un choix dans une listbox, après avoir consulter le forum, j'ai trouvé une solution qui ne correspond que partiellement à ce que je souhaite faire.
Je voudrais que le choix désélectionné n'apparaisse plus en fond bleu dans ma userform, et je n'y arrive pas.
Voilà mon code :

Private Sub ListBoxAnnee_Click()
annee = ListBoxAnnee.Value

If annee <> Year(Date) Then
MsgBox "Etes-vous sûr de vouloir saisir les données de l'année " & annee & " ?", _
vbYesNo + vbExclamation, "Attention"
If vbNo Then
ListBoxAnnee.ListIndex = -1
ListBoxAnnee.Selected(annee) = False
End If
End If
End Sub

Qq'un a t-il une idée ?
Merci
 
Re : Désélectionner un choix en surbrillance dans une listbox

Hello,

Testes sans cette phrase
Code:
ListBoxAnnee.Selected(annee) = False
Sans garantie.

Si non, déposes ton fichier, les gens t'aideront plus facilement.

Cdt, Hulk.
 
Re : Désélectionner un choix en surbrillance dans une listbox

Et voila un extrait de mon programme.

J'ai essayé d'enlever la ligne de code, mais en plus j'ai dû me louper ailleurs dans mon code.

Je veux bien des autres suggestions pour résoudre ce problème
Merci
 

Pièces jointes

Re : Désélectionner un choix en surbrillance dans une listbox

Hello,

Voici deux liens concernant les MsgBox. Le Ce lien n'existe plus et le deuxième.

En effet ton code n'était pas vraiment juste, notamment avec le If vbNo Then tu verras dans le premier lien.

Essaie comme ceci parce qu'apparemment pas moyen de faire exactement ce que tu veux.
Code:
Private Sub ListBoxAnnee_Click()
    
    annee = ListBoxAnnee.Value
    
    If annee <> Year(Date) Then
        Select Case MsgBox("Etes-vous sûr de vouloir saisir les données de l'année " & annee & " ?", _
            vbYesNo + vbExclamation, "Attention")
        Case vbYes
            '...
        Case vbNo
            Unload Me
            Choix_MoisEtSite.Show 0
        End Select
    End If
    
End Sub
Reste à compléter le code pour le vbYes s'il te va.

Cdt, Hulk.
 
Dernière édition:
- 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

Réponses
3
Affichages
582
Réponses
1
Affichages
704
Retour