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?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
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?
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$1@gioia.aioe.org...
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?
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
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
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?
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.
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
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$1@gioia.aioe.org...
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?
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.
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
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$1@gioia.aioe.org...
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?
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
