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