Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.
Si les calculs à effectuer sont moindrement demandant pour le processeur,
il est normal qu'il ne puisse afficher un résultat
immédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbar
a été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private Sub
ScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne de
code avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérations
en cours...
Salutations!
"garnote" a écrit dans le message de
news:5hvAb.24488$
Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()
Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" a écrit dans le message de news:
dbs9adcgl4az$Bonjour @ tous et à garnote :J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
commele ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.
Si les calculs à effectuer sont moindrement demandant pour le processeur,
il est normal qu'il ne puisse afficher un résultat
immédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbar
a été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private Sub
ScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne de
code avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérations
en cours...
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:5hvAb.24488$7C.22161@charlie.risq.qc.ca...
Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()
Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" <papyty@yahoo.fr> a écrit dans le message de news:
dbs9adcgl4az$.9xywsa9lq6oc.dlg@40tude.net...
Bonjour @ tous et à garnote :
J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
comme
le ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.
Si les calculs à effectuer sont moindrement demandant pour le processeur,
il est normal qu'il ne puisse afficher un résultat
immédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbar
a été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private Sub
ScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne de
code avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérations
en cours...
Salutations!
"garnote" a écrit dans le message de
news:5hvAb.24488$
Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()
Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" a écrit dans le message de news:
dbs9adcgl4az$Bonjour @ tous et à garnote :J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
commele ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
44-115-117-111-118-32-224-32-
114-117-111-106-110-111-66
Mes p'tites biéres sont digérés mais ce matin,
,j'ai les deux yeux dans l'même trou.
Heureusement que je ne donnais pas de commandes
vocales à mon ordi, il aurait trouvé ça hot de traduire
mes savants propos :-)
Et pour revenir aux choses sérieuses (!) , voici l'affaire :
J'ai un graphique «nuages de points» contenant deux
rectangles imbriqués dont les dimensions sont
modifiées par ma barre de défilement.
La macro «Échelle» ne fait que donner les mêmes
bornes à l'axe des X et à l'axe des Y.
Ce qui permet, à peu de choses près,
d'obtenir deux rectangles à l'échelle.
À votre avis, peut-on l'améliorer ?
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
Sub Échelle()
ActiveSheet.Unprotect
d = Range("mini")
f = Range("maxi")
L = Range("large")
With ActiveSheet.ChartObjects("MonGraphique").Chart
With .Axes(xlValue)
.MinimumScale = d
.MaximumScale = f
.MajorUnit = L
End With
With .Axes(xlCategory)
.MinimumScale = d
.MaximumScale = f
.MajorUnit = L
End With
End With
ActiveSheet.Protect
End Sub
Serge
"Denis Michon" <denis a écrit dans le message de news:
TfzAb.24494$Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" a écrit dans le message de
news:%Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
44-115-117-111-118-32-224-32-
114-117-111-106-110-111-66
Mes p'tites biéres sont digérés mais ce matin,
,j'ai les deux yeux dans l'même trou.
Heureusement que je ne donnais pas de commandes
vocales à mon ordi, il aurait trouvé ça hot de traduire
mes savants propos :-)
Et pour revenir aux choses sérieuses (!) , voici l'affaire :
J'ai un graphique «nuages de points» contenant deux
rectangles imbriqués dont les dimensions sont
modifiées par ma barre de défilement.
La macro «Échelle» ne fait que donner les mêmes
bornes à l'axe des X et à l'axe des Y.
Ce qui permet, à peu de choses près,
d'obtenir deux rectangles à l'échelle.
À votre avis, peut-on l'améliorer ?
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
Sub Échelle()
ActiveSheet.Unprotect
d = Range("mini")
f = Range("maxi")
L = Range("large")
With ActiveSheet.ChartObjects("MonGraphique").Chart
With .Axes(xlValue)
.MinimumScale = d
.MaximumScale = f
.MajorUnit = L
End With
With .Axes(xlCategory)
.MinimumScale = d
.MaximumScale = f
.MajorUnit = L
End With
End With
ActiveSheet.Protect
End Sub
Serge
"Denis Michon" <denis michon@cgocable.ca> a écrit dans le message de news:
TfzAb.24494$7C.17622@charlie.risq.qc.ca...
Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" <XX_match@videotron.ca> a écrit dans le message de
news:%23DzxPqGvDHA.3496@TK2MSFTNGP11.phx.gbl...
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" <rien@absent.net> a écrit dans le message de
news:citAb.24480$7C.24180@charlie.risq.qc.ca...
Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
44-115-117-111-118-32-224-32-
114-117-111-106-110-111-66
Mes p'tites biéres sont digérés mais ce matin,
,j'ai les deux yeux dans l'même trou.
Heureusement que je ne donnais pas de commandes
vocales à mon ordi, il aurait trouvé ça hot de traduire
mes savants propos :-)
Et pour revenir aux choses sérieuses (!) , voici l'affaire :
J'ai un graphique «nuages de points» contenant deux
rectangles imbriqués dont les dimensions sont
modifiées par ma barre de défilement.
La macro «Échelle» ne fait que donner les mêmes
bornes à l'axe des X et à l'axe des Y.
Ce qui permet, à peu de choses près,
d'obtenir deux rectangles à l'échelle.
À votre avis, peut-on l'améliorer ?
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
Sub Échelle()
ActiveSheet.Unprotect
d = Range("mini")
f = Range("maxi")
L = Range("large")
With ActiveSheet.ChartObjects("MonGraphique").Chart
With .Axes(xlValue)
.MinimumScale = d
.MaximumScale = f
.MajorUnit = L
End With
With .Axes(xlCategory)
.MinimumScale = d
.MaximumScale = f
.MajorUnit = L
End With
End With
ActiveSheet.Protect
End Sub
Serge
"Denis Michon" <denis a écrit dans le message de news:
TfzAb.24494$Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" a écrit dans le message de
news:%Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.
Si les calculs à effectuer sont moindrement demandant pour le processeur,
il est normal qu'il ne puisse afficher un résultat
immédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbar
a été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private Sub
ScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne de
code avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérations
en cours...
Salutations!
"garnote" a écrit dans le message de
news:5hvAb.24488$
Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()
Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" a écrit dans le message de news:
dbs9adcgl4az$Bonjour @ tous et à garnote :J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
commele ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.
Si les calculs à effectuer sont moindrement demandant pour le processeur,
il est normal qu'il ne puisse afficher un résultat
immédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbar
a été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private Sub
ScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne de
code avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérations
en cours...
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:5hvAb.24488$7C.22161@charlie.risq.qc.ca...
Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()
Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" <papyty@yahoo.fr> a écrit dans le message de news:
dbs9adcgl4az$.9xywsa9lq6oc.dlg@40tude.net...
Bonjour @ tous et à garnote :
J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
comme
le ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.
Si les calculs à effectuer sont moindrement demandant pour le processeur,
il est normal qu'il ne puisse afficher un résultat
immédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbar
a été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private Sub
ScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne de
code avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérations
en cours...
Salutations!
"garnote" a écrit dans le message de
news:5hvAb.24488$
Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()
Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" a écrit dans le message de news:
dbs9adcgl4az$Bonjour @ tous et à garnote :J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
commele ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Garnote,
Essaie ceci :
Private Sub ScrollBar1_Change()
Application.Cursor = xlNorthwestArrow
Call Échelle
Application.Cursor = xlDefault
End Sub
Private Sub ScrollBar1_Scroll()
ScrollBar1_Change
End Sub
Salutations!
"garnote" a écrit dans le message de
news:OEGAb.24504$
À bien y penser, ce n'est pas vraiment la vitesse d'exécution
qui me tarabuste mais plutôt ce clignotement incessant
du sablier. J'ai tenté de le rendre invisible avec Application.Cursor
mais rien n'y fait. Soit dit en passant, ce ne sont pas ces petits
détails qui m'empêchent de dormir mais ... ;-)
Serge
"Denis Michon" <denis a écrit dans le message de news:
KsGAb.24502$Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.Si les calculs à effectuer sont moindrement demandant pour le
processeur,
il est normal qu'il ne puisse afficher un résultatimmédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbara été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private SubScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne decode avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérationsen cours...
Salutations!
"garnote" a écrit dans le message de
news:5hvAb.24488$Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" a écrit dans le message de news:
dbs9adcgl4az$Bonjour @ tous et à garnote :J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut
d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
commele ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Garnote,
Essaie ceci :
Private Sub ScrollBar1_Change()
Application.Cursor = xlNorthwestArrow
Call Échelle
Application.Cursor = xlDefault
End Sub
Private Sub ScrollBar1_Scroll()
ScrollBar1_Change
End Sub
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:OEGAb.24504$7C.16822@charlie.risq.qc.ca...
À bien y penser, ce n'est pas vraiment la vitesse d'exécution
qui me tarabuste mais plutôt ce clignotement incessant
du sablier. J'ai tenté de le rendre invisible avec Application.Cursor
mais rien n'y fait. Soit dit en passant, ce ne sont pas ces petits
détails qui m'empêchent de dormir mais ... ;-)
Serge
"Denis Michon" <denis michon@cgocable.ca> a écrit dans le message de news:
KsGAb.24502$7C.2437@charlie.risq.qc.ca...
Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.
Si les calculs à effectuer sont moindrement demandant pour le
processeur,
il est normal qu'il ne puisse afficher un résultat
immédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbar
a été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private Sub
ScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne de
code avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérations
en cours...
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:5hvAb.24488$7C.22161@charlie.risq.qc.ca...
Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()
Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" <papyty@yahoo.fr> a écrit dans le message de news:
dbs9adcgl4az$.9xywsa9lq6oc.dlg@40tude.net...
Bonjour @ tous et à garnote :
J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut
d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
comme
le ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Garnote,
Essaie ceci :
Private Sub ScrollBar1_Change()
Application.Cursor = xlNorthwestArrow
Call Échelle
Application.Cursor = xlDefault
End Sub
Private Sub ScrollBar1_Scroll()
ScrollBar1_Change
End Sub
Salutations!
"garnote" a écrit dans le message de
news:OEGAb.24504$
À bien y penser, ce n'est pas vraiment la vitesse d'exécution
qui me tarabuste mais plutôt ce clignotement incessant
du sablier. J'ai tenté de le rendre invisible avec Application.Cursor
mais rien n'y fait. Soit dit en passant, ce ne sont pas ces petits
détails qui m'empêchent de dormir mais ... ;-)
Serge
"Denis Michon" <denis a écrit dans le message de news:
KsGAb.24502$Bonjour Garnote,
Ce qui ralentit ta macro est cette section de ta procédure :
'--------------------
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
'--------------------
Ce truc appelle ta procédure à chaque fois que l'usager bouge (durant le
déplacement) le "curseur" (bouton) de ton Scrollbar.Si les calculs à effectuer sont moindrement demandant pour le
processeur,
il est normal qu'il ne puisse afficher un résultatimmédiat d'où la modification de l'affichage du curseur.
'----------------------------------
Private Sub ScrollBar1_Change()
Call Échelle
End Sub
'----------------------------------
Cette section, ne met pas à jour les données durant le déplacement mais
seulement lorsque le curseur(bouton) de la scrollbara été déplacé et relâché. Donc la macro ne s'exécute qu'une fois en
comparaison de l'événement suivant : Private SubScrollBar1_Scroll() qui elle suscite une mise à jour en continu tout au
long du déplacement du bouton du scrollbar.
Si tu veux seulement que le curseur ne modifie pas son apparence durant
l'appel de la macro : Tu peux ajouter cette ligne decode avant de lancer la procédure :
Application.Cursor = xlDefault
Call Échelle
Sauf que les calculs ne se feront pas plus rapidement ... et l'usager
devra attendre que le processeur termine les opérationsen cours...
Salutations!
"garnote" a écrit dans le message de
news:5hvAb.24488$Ce n'est pas la peine de fouiller, tout va bien.
Mais une petite question :
J'ai une feuille protégée sur laquelle mes étudiant(e)s
peuvent utiliser une barre de défilement dans le but de
faire des animations. J'utilise ces deux macros liées àPrivate Sub
ScrollBar1_Change()Call Échelle
End Sub
ladite barre :
Private Sub ScrollBar1_Scroll()
Call Échelle
End Sub
et dans la macro Échelle, il y a :
ActiveSheeet.Unprotect au début et ActiveSheet.Protect à la fin.
Cependant, je constate que cette façon de faire
ralentit les choses. Quand j'utilise la barre de défilement,
le sablier est toujours présent. Je me demande s'il est possible
de procéder autrement pour éviter l'apparition du sablier.
As-tu ou avez-vous une suggestion ?
Serge
"Papyty" a écrit dans le message de news:
dbs9adcgl4az$Bonjour @ tous et à garnote :J'ai sélectionné ma zone de texte et écrit = $C$3
dans la barre de formule.
Erre-je ?
Autre solution si ce caractere doit etre utilisé souvent on peut
d'aprés
mes lointains souvenirs changer l'affectation d'une touche du clavier
commele ² en éditant un fichier en Hexadecimale.
Je n'est plus le fichier exacte en tête mais je pourrais fouillé pour
retrouver la procédure.
--
@+
Thierry
07/12/2003 01:37:54
Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" a écrit dans le message de
news:%
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" <XX_match@videotron.ca> a écrit dans le message de
news:%23DzxPqGvDHA.3496@TK2MSFTNGP11.phx.gbl...
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" <rien@absent.net> a écrit dans le message de
news:citAb.24480$7C.24180@charlie.risq.qc.ca...
Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" a écrit dans le message de
news:%
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Si tu veux une solution un brin radicale:
Comme il est scientifiquement prouvé que la chaleur augmente la
vitesse de déplacement des électrons, tu peux mettre ton ordi sur ton
poêle et ouvrir les ronds. :-))))))))))))))))))
P.S. Vérifie ta police d'assurance avant...
Si tu veux une solution un brin radicale:
Comme il est scientifiquement prouvé que la chaleur augmente la
vitesse de déplacement des électrons, tu peux mettre ton ordi sur ton
poêle et ouvrir les ronds. :-))))))))))))))))))
P.S. Vérifie ta police d'assurance avant...
Si tu veux une solution un brin radicale:
Comme il est scientifiquement prouvé que la chaleur augmente la
vitesse de déplacement des électrons, tu peux mettre ton ordi sur ton
poêle et ouvrir les ronds. :-))))))))))))))))))
P.S. Vérifie ta police d'assurance avant...
Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" a écrit dans le message de
news:%
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" <XX_match@videotron.ca> a écrit dans le message de
news:%23DzxPqGvDHA.3496@TK2MSFTNGP11.phx.gbl...
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" <rien@absent.net> a écrit dans le message de
news:citAb.24480$7C.24180@charlie.risq.qc.ca...
Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Bonjour Match,
" ton clavier Canadien français...."
C'est vrai seulement si Garnote n'utilise pas le clavier numérique (pour
saisir le 4) !
Faut être précis sinon garnote va avoir de la difficulté à digérer sa
dernière bière !!
;-))
Salutations!
"Match" a écrit dans le message de
news:%
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" <rien@absent.net> a écrit dans le message de
news:citAb.24480$7C.24180@charlie.risq.qc.ca...
Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" <rien@absent.net> a écrit dans le message de
news:citAb.24480$7C.24180@charlie.risq.qc.ca...
Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
Salut Serge et les autres,
avec ton clavier Canadien français
Alt (droit)+4 (chiffre quatre) ça donne ¢
Match
"garnote" a écrit dans le message de
news:citAb.24480$Bonchoir les aminces,
Me demande si le symbole de la «cenne» est disponible
sous Excel. C'est un c avec une barre oblique qui le traverse.
A+
Serge
