Xl2007, Application.EnableEvents=True innopérant

Le
Fredo P.
Bonjour,
Dans un module j'ai cette fonction que tout le monde connait:

Function NoSem(T As Date) As Long 'Laurent Longre
' fonctionne suivant la norme ISO contrairement à no.semaine()
NoSem = DateSerial(Year(T + (8 - Weekday(T)) Mod 7 - 3), 1, 1)
NoSem = ((T - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) 7 + 1
End Function

Eh bien, quand EnableEvents =True cette fonction n'en a rien à Faire, elle
recalcule toutes les dates inscrites sur le classeur (presque toute) comme
également n'en a rien à pt Range("G1:EZ1").SpecialCells(xlCellTypeBlanks).
Est ce ma version en cause ou un paramètre que je n'ai pas bien configuré ou
un Bug connu?
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #26482983
Bonjour Fredo,
Tout ce dont je me souviens de cette affaire de n° de semaine, c'est que les
ussiens ne la commencent pas le même jour que nous. Donc, Murphy a décidé
que le n° de semaine varie d'un continent à l'autre. LL nous l'avait
expliqué, mais il se peut qu'une partie de ses explications soit sortie
directement de mon neurone.
Aie la Foi ! Nous sommes bien "Aujourd'hui" et "cette semaine"! -))
Pour ta macro, mon calendrier me donne 29.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Fredo P." a écrit dans le message de groupe de discussion :
pikgk1$1c96$
Bonjour,
Dans un module j'ai cette fonction que tout le monde connait:
Function NoSem(T As Date) As Long 'Laurent Longre
' fonctionne suivant la norme ISO contrairement à no.semaine()
NoSem = DateSerial(Year(T + (8 - Weekday(T)) Mod 7 - 3), 1, 1)
NoSem = ((T - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) 7 + 1
End Function
Eh bien, quand EnableEvents =True cette fonction n'en a rien à Faire, elle
recalcule toutes les dates inscrites sur le classeur (presque toute) comme
également n'en a rien à pt Range("G1:EZ1").SpecialCells(xlCellTypeBlanks).
Est ce ma version en cause ou un paramètre que je n'ai pas bien configuré ou
un Bug connu?
Michd
Le #26482985
Bonjour,
| EnableEvents =True
**** Cela s'applique à tout les procédures événementielles de chacune des feuilles et celles du
Workbook. Cela n'a rien à voir avec la fonction. Cependant, lorsque cette propriété est à "True", et
que les feuilles ont beaucoup de formules, une fonction peut avoir un effet, car lorsque le contenu
d'une cellule change, cela déclenche la ou les macros événementielles concernées, le cas échéant.
La fonction de Laurent Longre à une variable "Date". Je ne vois pas ce que ceci a avoir avec cela
"Range("G1:EZ1").SpecialCells(xlCellTypeBlanks)." Quel est le rapport?
MichD
Fredo P.
Le #26483085
Je suis confus, je ne parviens pas à reproduire ce que j'avance sur un
classeur simple à présenter en exemple, n'empêche que, EnableEvents étant à
False, lorsque je clic sur n'importe quelle cellule de mon classeur
spécifique, la routine de Laurent Longre est démarrée plusieurs fois avec
des valeurs de date différente à chaque passage. Je vais encore me pencher
sur le truc mais sans conviction.
"Michd" a écrit dans le message de groupe de discussion :
pil0la$aee$
Bonjour,
| EnableEvents =True
**** Cela s'applique à tout les procédures événementielles de chacune des
feuilles et celles du
Workbook. Cela n'a rien à voir avec la fonction. Cependant, lorsque cette
propriété est à "True", et
que les feuilles ont beaucoup de formules, une fonction peut avoir un effet,
car lorsque le contenu
d'une cellule change, cela déclenche la ou les macros événementielles
concernées, le cas échéant.
La fonction de Laurent Longre à une variable "Date". Je ne vois pas ce que
ceci a avoir avec cela
"Range("G1:EZ1").SpecialCells(xlCellTypeBlanks)." Quel est le rapport?
MichD
Fredo P.
Le #26483137
Bonjour,
J'ai en partie résolu le schmilblick, la fonction de Laurent était employée
sur une dizaine de cellules donc autant de fois parcourue malgré la position
de EnableEvents à False.
"Michd" a écrit dans le message de groupe de discussion :
pil0la$aee$
Bonjour,
| EnableEvents =True
**** Cela s'applique à tout les procédures événementielles de chacune des
feuilles et celles du
Workbook. Cela n'a rien à voir avec la fonction. Cependant, lorsque cette
propriété est à "True", et
que les feuilles ont beaucoup de formules, une fonction peut avoir un effet,
car lorsque le contenu
d'une cellule change, cela déclenche la ou les macros événementielles
concernées, le cas échéant.
La fonction de Laurent Longre à une variable "Date". Je ne vois pas ce que
ceci a avoir avec cela
"Range("G1:EZ1").SpecialCells(xlCellTypeBlanks)." Quel est le rapport?
MichD
Publicité
Poster une réponse
Anonyme