Discussion :

[defluc]

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

[nibledispo]

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,

[defluc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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