Désélectionner item listbox (petit souci)

Bonjour à toutes et à tous,

normalement je trouve toujours mon bonheur sur ce forum en cherchant

mais à, je tombe sur un os que je ne comprends pas

Voilà dans mon fichier, j'ai un USF avec un TextBox et une ListBox rien de sorcier

A l'ouverture, fait pour le test, mon TextBox contient une valeur

Si je tente de cliquer sur la ListBox, un message d'avertissement me prévient que je vais effacer la donnée

Ce que je devrais pouvoir faire simplement, c'est si on répond non, désélectionner la ligne de la ListBox

Sauf que dans mon exemple, cela ne fonctionne pas et je ne comprends pas pourquoi

Merci pour votre aide

@+

Pas certain de ce que tu veux vraiment faire mais ...

Pourquoi ne pas réinitialiser?

  ' Sinon
      ListBox1.Clear
      Dim Col As Integer, Lig As Long
  For Lig = 1 To 7
    Me.ListBox1.AddItem Cells(Lig, 1).Value
    For Col = 2 To 4
      Me.ListBox1.List(Lig - 1, Col - 1) = Cells(Lig, Col).Value
    Next Col
  Next Lig
  Me.TextBox1.Value = "Saisie faite"

Bonjour Crackwood01

Merci pour la réponse,

mais c'est "trop long" en temps de traitement et gourmand en ressources processeur

Je veux juste pouvoir désélectionner la ligne éventuellement sélectionnée de ma ListBox

Le fichier donné n'est qu'à titre d'exemple, le vrai est beaucoup plus imposant

Mon 1er fichier contenait une erreur, qui est corrigée dans celui-ci

Normalement

Me.ListBox1.ListIndex = -1

devrait le faire, mais non

Re,

C'est bon j'ai enfin trouvé...

Je pense que le problème vient du fait que je voulais désélectionner la ligne alors que je suis encore dans la procédure "Click" de la ListBox

Le fichier joint permet de gérer le "Unselect" d'une ligne de ListBox

Au plaisir tous