Bonjour,
Michel Grentzinger a écrit :
Le vendredi 4 mai 2007 20:28, Bernard Marcelly a écrit :
Message de Michel Grentzinger date 2007-05-04 17:35 :
Bonjour,
Mon code fonctionne mais le message "Feuille modifiée !" ne disparait
qu'au bout de 7 ou 8 clics sur OK.
D'où vient l'erreur ?
Bonsoir,
Peut-être pas d'erreur, ça pourrait être une succession d'évènements de
modification. Incrémente un compteur en variable Private pour voir cela.
Essaie aussi en modifiant une cellule non référencée ailleurs.
J'ai un peu modifié la macro lancée en cas de modification :
Sub perf_modified(event)
print "Feuille modifiée ! Modification n° " & Nombre
msgbox "Nouvelle valeur "+str(event.Source.Value)
Nombre = Nombre + 1
End Sub
Le nombre n'est jamais incrémenté mais le msgbox est bien affiché à la fin
avec la bonne valeur.
Passe le nombre en global
Global Nombre As Integer
Mais j'ai toujours plusieurs fois le print !!
Comme précisé par Bernard Marcelly la macro initiale ne semble pas être
en cause.
Le probleme des ecouteurs a toujours été leur consommation et une
interférence plus ou moins grande avec les éléments manipulés (ie : plus
d'un classeur ouvert).
Au stade actuel il me parait ne devoir les utiliser qu'avec grande
parcimonie.
Francois
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]