Evénement Worksheet Change

**kikiops** · 04/09/2013, 14h48

Bonjour,

J'ai trifouillé pendant des heures sans succès.
Mon code fonctionne parfaitement sauf quand la cellule est active (en édition).
Lorsque je click sur "monShape", l'événement "Worksheet_Change" se déclenche alors uniquement à la fin de la procédure "monShape_click()" ! et la Boolean "modification" a toujours la valeur "Vrai".

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public modification As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
    modification = Vrai
End Sub
 
Sub monShape_click()
    si modification = vrai ALORS poursuivre la procédure
    modification = Faux
End Sub

Merci de votre aide
Bruno

**Daniel.C** · 04/09/2013, 15h51

Bonjour,

sauf quand la cellule est active (en édition)

Aucune macro ne se déclenche quand une cellule est en édition.

**kikiops** · 04/09/2013, 16h06

Merci daniel de ton aide.

Je suppose que tu voulais dire "Aucun événement ne se déclenche quand une cellule est en édition."

Existe-il une astuce pour contourner ce problème ? Une piste ?
J'ai biensur essayé de simuler une action utilisateur "SendKeys" mais sans succès, cela ne change rien.

Au pire il faudrait que je puisse déclencher ma procédure par double clique mais comment assigner une double-clic a un Shape (le premier clic désactiverait la cellule) ?

Merci