Clic souris inactif

Bonsoir à tous,

J'ai conçu une application qui, entre autres choses, intercepte les suppressions de lignes entières dans une feuille pour supprimer une ligne qui y correspond dans une autre feuille masquée.

Cela se passe bien et après exécution du module de traitement, la ligne qui suivait la ligne supprimée se retrouve sélectionnée. Jusque là rien d'anormal.

Sauf qu'après cela, si je déplace la souris pour sélectionner quoi que ce soit, le clic gauche ou droit reste inopérant. Que je clique sur une cellule, sur l'onglet d'une autre feuille ou n'importe quel bouton, rien ne se passe.

Si je fais un select de la première cellule de la ligne sélectionnée dans le module de traitement, rien ne se passe, la ligne ne se désélectionne pas.

J'ai constaté que la seule façon de retrouver l'usage de la souris est d'utiliser les flèches de déplacement du clavier.

Je fais donc un SendKeys RIGHT puis LEFT en fin de module. Cela rend ma souris opérationnelle mais je trouve cette solution peu élégante.
Et puis, intellectuellement, je reste frustré de ne pas comprendre ce qui provoque cette situation que je n'ai jamais rencontrée.

Bonne fin de soirée

Bonsoir,

Je ne vois pas très bien comment et quoi répondre sans voir le code et même le fichier afin de constater le phénomène.

Cordialement,

Bonjour,

Le fichier est très volumineux et les données confidentielles. Alors, je vous livre les étapes de programmation.

L'évènement "Worksheet_Change" est déclenché quand je clique "Supprimer" dans les options du clic droit sur le numéro de la ligne qui sélectionne la ligne entière.

Ayant détecté qu'il s'agit bien de la suppression d'une ligne entière, j'effectue le traitement de suppression de la ligne qui y correspond dans l'autre feuille.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Case 5 ' une ligne non vide a été supprimée Set ExtrSh = ThisWorkbook.Sheets("Extraction") Cr = OldRow(CrCol) No = OldRow(NoCol) RowWithCrAndNoFound = RowWithCrAndNo(ExtrSh, Cr, No, CrCol, NoCol, "F") If RowWithCrAndNoFound > 0 Then Application.EnableEvents = False ' sans effet ExtrSh.Rows(RowWithCrAndNoFound).Delete ' Supprime la ligne RowWithCrAndNoFound ' ActiveSheet.Select ' sans effet ' ActiveSheet.Cells(Selection.Row, 1).Select ' sans effet SendKeys "{RIGHT}{LEFT}" Application.Wait Now + TimeValue("00:00:2") Application.EnableEvents = True ' sans effet End If End Select Set ExtrSh = Nothing End Sub

---