J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir"
les cellules. Le problème, c'est que lorsque je saisis dans une cellule
quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité
d'actualiser, par macro par exemple...?
Pour empêcher les cellules contenant une de ces fonctions de se mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" a écrit dans le message de groupe de discussion :
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir" les cellules. Le problème, c'est que lorsque je saisis dans une cellule quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité d'actualiser, par macro par exemple...?
Merci à vous
Greg
Bonjour Greg,
Dans les cellules qui se mettent à jour "automatiquement" tu dois
avoir une fonction "volatile" built-in d'Excel.
Pour empêcher les cellules contenant une de ces fonctions de se
mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion :
8DA42051-B28D-4C35-97E5-22D07268025E@microsoft.com...
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir"
les cellules. Le problème, c'est que lorsque je saisis dans une cellule
quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité
d'actualiser, par macro par exemple...?
Pour empêcher les cellules contenant une de ces fonctions de se mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" a écrit dans le message de groupe de discussion :
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir" les cellules. Le problème, c'est que lorsque je saisis dans une cellule quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité d'actualiser, par macro par exemple...?
Merci à vous
Greg
Greg
Bonjour MichDenis,
Je suis passé en mode manuel par le menu "option" d'excel, ce qui représente 2 inconvénients: - les utilisateurs devront faire la même chose avant d'utiliser mon fichier. - les calculs ne se font plus automatiquement dans les cellules qui ne sont pas concernées.
Est-il possible de commander le mode manuel sur des cellules ciblées, pour un temps donné, avec une macro qui figerait ces cellules puis une autre qui les débloquerait?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Dans les cellules qui se mettent à jour "automatiquement" tu dois avoir une fonction "volatile" built-in d'Excel.
Pour empêcher les cellules contenant une de ces fonctions de se mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" a écrit dans le message de groupe de discussion :
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir" les cellules. Le problème, c'est que lorsque je saisis dans une cellule quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité d'actualiser, par macro par exemple...?
Merci à vous
Greg
Bonjour MichDenis,
Je suis passé en mode manuel par le menu "option" d'excel, ce qui représente
2 inconvénients:
- les utilisateurs devront faire la même chose avant d'utiliser mon fichier.
- les calculs ne se font plus automatiquement dans les cellules qui ne sont
pas concernées.
Est-il possible de commander le mode manuel sur des cellules ciblées, pour
un temps donné, avec une macro qui figerait ces cellules puis une autre qui
les débloquerait?
Merci
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uxWcNbIYKHA.1268@TK2MSFTNGP04.phx.gbl...
Bonjour Greg,
Dans les cellules qui se mettent à jour "automatiquement" tu dois
avoir une fonction "volatile" built-in d'Excel.
Pour empêcher les cellules contenant une de ces fonctions de se
mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion
:
8DA42051-B28D-4C35-97E5-22D07268025E@microsoft.com...
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir"
les cellules. Le problème, c'est que lorsque je saisis dans une cellule
quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité
d'actualiser, par macro par exemple...?
Je suis passé en mode manuel par le menu "option" d'excel, ce qui représente 2 inconvénients: - les utilisateurs devront faire la même chose avant d'utiliser mon fichier. - les calculs ne se font plus automatiquement dans les cellules qui ne sont pas concernées.
Est-il possible de commander le mode manuel sur des cellules ciblées, pour un temps donné, avec une macro qui figerait ces cellules puis une autre qui les débloquerait?
Merci
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Dans les cellules qui se mettent à jour "automatiquement" tu dois avoir une fonction "volatile" built-in d'Excel.
Pour empêcher les cellules contenant une de ces fonctions de se mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" a écrit dans le message de groupe de discussion :
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir" les cellules. Le problème, c'est que lorsque je saisis dans une cellule quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité d'actualiser, par macro par exemple...?
Merci à vous
Greg
Greg
Voic pour mieux comprendre: http://cjoint.com/?liunxmtYEp
La colonne B masquée, le but du jeu est de trouver les réponses en colonne C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la valide, les données des autres colonnes (victimes comme tu le disais justement de la fonction ALEA) changent. Ce qui casse le boulot...
Voilà, j'espère que vous comprendrez mon souci.
à plus
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Dans les cellules qui se mettent à jour "automatiquement" tu dois avoir une fonction "volatile" built-in d'Excel.
Pour empêcher les cellules contenant une de ces fonctions de se mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" a écrit dans le message de groupe de discussion :
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir" les cellules. Le problème, c'est que lorsque je saisis dans une cellule quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité d'actualiser, par macro par exemple...?
Merci à vous
Greg
Voic pour mieux comprendre: http://cjoint.com/?liunxmtYEp
La colonne B masquée, le but du jeu est de trouver les réponses en colonne
C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la
valide, les données des autres colonnes (victimes comme tu le disais
justement de la fonction ALEA) changent. Ce qui casse le boulot...
Voilà, j'espère que vous comprendrez mon souci.
à plus
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:uxWcNbIYKHA.1268@TK2MSFTNGP04.phx.gbl...
Bonjour Greg,
Dans les cellules qui se mettent à jour "automatiquement" tu dois
avoir une fonction "volatile" built-in d'Excel.
Pour empêcher les cellules contenant une de ces fonctions de se
mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion
:
8DA42051-B28D-4C35-97E5-22D07268025E@microsoft.com...
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir"
les cellules. Le problème, c'est que lorsque je saisis dans une cellule
quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité
d'actualiser, par macro par exemple...?
Voic pour mieux comprendre: http://cjoint.com/?liunxmtYEp
La colonne B masquée, le but du jeu est de trouver les réponses en colonne C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la valide, les données des autres colonnes (victimes comme tu le disais justement de la fonction ALEA) changent. Ce qui casse le boulot...
Voilà, j'espère que vous comprendrez mon souci.
à plus
Greg
"michdenis" a écrit dans le message de news:
Bonjour Greg,
Dans les cellules qui se mettent à jour "automatiquement" tu dois avoir une fonction "volatile" built-in d'Excel.
Pour empêcher les cellules contenant une de ces fonctions de se mettent à jour automatiquement, il faut passer en mode de calcul manuel.
"Greg" a écrit dans le message de groupe de discussion :
Bonjour (ou re!)
J'ai un classeur avec des valeurs alétoires. F9 me permet de "rafraichir" les cellules. Le problème, c'est que lorsque je saisis dans une cellule quelconque de la feuille et que je valide, la même chose se produit.
Comment empécher cette deuxième cause, en conservant la possibilité d'actualiser, par macro par exemple...?
Merci à vous
Greg
michdenis
| La colonne B masquée, le but du jeu est de trouver les réponses en colonne | C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la | valide, les données des autres colonnes (victimes comme tu le disais | justement de la fonction ALEA) changent. Ce qui casse le boulot...
Dans quelle feuille de ton classeur retrouve-t-on la fonction "Alea()" dans la colonne B ? Es-tu sûr d'avoir publié le bon classeur ?
| La colonne B masquée, le but du jeu est de trouver les réponses en colonne
| C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la
| valide, les données des autres colonnes (victimes comme tu le disais
| justement de la fonction ALEA) changent. Ce qui casse le boulot...
Dans quelle feuille de ton classeur retrouve-t-on la fonction "Alea()" dans
la colonne B ? Es-tu sûr d'avoir publié le bon classeur ?
| La colonne B masquée, le but du jeu est de trouver les réponses en colonne | C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la | valide, les données des autres colonnes (victimes comme tu le disais | justement de la fonction ALEA) changent. Ce qui casse le boulot...
Dans quelle feuille de ton classeur retrouve-t-on la fonction "Alea()" dans la colonne B ? Es-tu sûr d'avoir publié le bon classeur ?
Modeste
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
La colonne B masquée, le but du jeu est de trouver les réponses en colonne C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la valide, les données des autres colonnes (victimes comme tu le disais justement de la fonction ALEA) changent. Ce qui casse le boulot...
Dans quelle feuille de ton classeur retrouve-t-on la fonction "Alea()" dans la colonne B ? Es-tu sûr d'avoir publié le bon classeur ?
le soucis avec le DoEvents dans la boucle, on ne peut saisir beaucoup de caractéres dans la colonne C.... le DoEvents traite le tampon clavier !!!!
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
La colonne B masquée, le but du jeu est de trouver les réponses en
colonne C. Le problème, c'est qu'à chaque fois que je rentre une
valeur et que je la valide, les données des autres colonnes
(victimes comme tu le disais justement de la fonction ALEA)
changent. Ce qui casse le boulot...
Dans quelle feuille de ton classeur retrouve-t-on la fonction
"Alea()" dans la colonne B ? Es-tu sûr d'avoir publié le bon classeur
?
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
La colonne B masquée, le but du jeu est de trouver les réponses en colonne C. Le problème, c'est qu'à chaque fois que je rentre une valeur et que je la valide, les données des autres colonnes (victimes comme tu le disais justement de la fonction ALEA) changent. Ce qui casse le boulot...
Dans quelle feuille de ton classeur retrouve-t-on la fonction "Alea()" dans la colonne B ? Es-tu sûr d'avoir publié le bon classeur ?
Dans son application, Greg pourrait utiliser ce bout de code dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1, il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------ Private Sub Workbook_Activate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) Dim Rg As Range Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _ Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then If Intersect(Target, Range("d:d")) Is Nothing Then Rg.Calculate End If Else Sh.Calculate End If
End Sub '------------------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Dans son application, Greg pourrait utiliser ce bout de code
dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1,
il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub
'------------------------------------------
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationManual
End Sub
'------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim Rg As Range
Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _
Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then
If Intersect(Target, Range("d:d")) Is Nothing Then
Rg.Calculate
End If
Else
Sh.Calculate
End If
End Sub
'------------------------------------------
"Modeste" <GD@libre.fr> a écrit dans le message de groupe de discussion :
eubVUxTYKHA.4452@TK2MSFTNGP04.phx.gbl...
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Dans son application, Greg pourrait utiliser ce bout de code dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1, il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------ Private Sub Workbook_Activate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) Dim Rg As Range Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _ Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then If Intersect(Target, Range("d:d")) Is Nothing Then Rg.Calculate End If Else Sh.Calculate End If
End Sub '------------------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Je vois que vous avez travaillé pendant mon absence! Frédo également puisqu'il m'a fait une proposition dans le post d'origine: "compte à rebours et validation d'une cellule à 0" du 07/11 à 22h31.
Que dois-je faire selon vous? La proposition de Frédo fonctionne correctement de mon point de vue. A chaque mise en route du compteur, l'ordre des questions change, ce qui me va très bien. J'aimerais pouvoir arrêter le compte à rebours si le questionnaire est terminé avant qu'il ne soit arrivé à 0.
Ensuite, l'idée est que l'arrêt du compte à rebours (bouton "j'ai fini"), OU que l'échéance 0 du compte à rebours génère automatiquement - l'affichage de la colonne B (Bonnes réponses et score) - la saisie de la date du jour et du score dans la feuille résultat
Doit-on (Peut-on?) ajouter des lignes de code dans la même macro?
Si vous répondez, pouvez vous le faire sur le post d'origine afin que l'info puisse suivre?
Merci beaucoup pour votre aide précieuse!
Greg
"michdenis" a écrit dans le message de news:%
Bonjour Modeste,
Dans son application, Greg pourrait utiliser ce bout de code dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1, il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------ Private Sub Workbook_Activate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) Dim Rg As Range Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _ Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then If Intersect(Target, Range("d:d")) Is Nothing Then Rg.Calculate End If Else Sh.Calculate End If
End Sub '------------------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Je vois que vous avez travaillé pendant mon absence! Frédo également
puisqu'il m'a fait une proposition dans le post d'origine: "compte à rebours
et validation d'une cellule à 0" du 07/11 à 22h31.
Que dois-je faire selon vous? La proposition de Frédo fonctionne
correctement de mon point de vue. A chaque mise en route du compteur,
l'ordre des questions change, ce qui me va très bien. J'aimerais pouvoir
arrêter le compte à rebours si le questionnaire est terminé avant qu'il ne
soit arrivé à 0.
Ensuite, l'idée est que l'arrêt du compte à rebours (bouton "j'ai fini"), OU
que l'échéance 0 du compte à rebours génère automatiquement
- l'affichage de la colonne B (Bonnes réponses et score)
- la saisie de la date du jour et du score dans la feuille résultat
Doit-on (Peut-on?) ajouter des lignes de code dans la même macro?
Si vous répondez, pouvez vous le faire sur le post d'origine afin que l'info
puisse suivre?
Merci beaucoup pour votre aide précieuse!
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23hbUkWUYKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour Modeste,
Dans son application, Greg pourrait utiliser ce bout de code
dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1,
il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub
'------------------------------------------
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationManual
End Sub
'------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim Rg As Range
Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _
Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then
If Intersect(Target, Range("d:d")) Is Nothing Then
Rg.Calculate
End If
Else
Sh.Calculate
End If
End Sub
'------------------------------------------
"Modeste" <GD@libre.fr> a écrit dans le message de groupe de discussion :
eubVUxTYKHA.4452@TK2MSFTNGP04.phx.gbl...
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Je vois que vous avez travaillé pendant mon absence! Frédo également puisqu'il m'a fait une proposition dans le post d'origine: "compte à rebours et validation d'une cellule à 0" du 07/11 à 22h31.
Que dois-je faire selon vous? La proposition de Frédo fonctionne correctement de mon point de vue. A chaque mise en route du compteur, l'ordre des questions change, ce qui me va très bien. J'aimerais pouvoir arrêter le compte à rebours si le questionnaire est terminé avant qu'il ne soit arrivé à 0.
Ensuite, l'idée est que l'arrêt du compte à rebours (bouton "j'ai fini"), OU que l'échéance 0 du compte à rebours génère automatiquement - l'affichage de la colonne B (Bonnes réponses et score) - la saisie de la date du jour et du score dans la feuille résultat
Doit-on (Peut-on?) ajouter des lignes de code dans la même macro?
Si vous répondez, pouvez vous le faire sur le post d'origine afin que l'info puisse suivre?
Merci beaucoup pour votre aide précieuse!
Greg
"michdenis" a écrit dans le message de news:%
Bonjour Modeste,
Dans son application, Greg pourrait utiliser ce bout de code dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1, il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------ Private Sub Workbook_Activate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) Dim Rg As Range Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _ Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then If Intersect(Target, Range("d:d")) Is Nothing Then Rg.Calculate End If Else Sh.Calculate End If
End Sub '------------------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Voici ton fichier avec un bouton pour arrêter l'exécution du Chrono. Le fichier contient aussi la macro qui te permet de saisir des données sans la mise automatique des données dû à la fonction "Alea()" au besoin, tu utilises la touche F9
http://cjoint.com/?ljvrWaj4ij
"Greg" a écrit dans le message de groupe de discussion : # Bonjour Modeste, bonjour Denis,
Je vois que vous avez travaillé pendant mon absence! Frédo également puisqu'il m'a fait une proposition dans le post d'origine: "compte à rebours et validation d'une cellule à 0" du 07/11 à 22h31.
Que dois-je faire selon vous? La proposition de Frédo fonctionne correctement de mon point de vue. A chaque mise en route du compteur, l'ordre des questions change, ce qui me va très bien. J'aimerais pouvoir arrêter le compte à rebours si le questionnaire est terminé avant qu'il ne soit arrivé à 0.
Ensuite, l'idée est que l'arrêt du compte à rebours (bouton "j'ai fini"), OU que l'échéance 0 du compte à rebours génère automatiquement - l'affichage de la colonne B (Bonnes réponses et score) - la saisie de la date du jour et du score dans la feuille résultat
Doit-on (Peut-on?) ajouter des lignes de code dans la même macro?
Si vous répondez, pouvez vous le faire sur le post d'origine afin que l'info puisse suivre?
Merci beaucoup pour votre aide précieuse!
Greg
"michdenis" a écrit dans le message de news:%
Bonjour Modeste,
Dans son application, Greg pourrait utiliser ce bout de code dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1, il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------ Private Sub Workbook_Activate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) Dim Rg As Range Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _ Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then If Intersect(Target, Range("d:d")) Is Nothing Then Rg.Calculate End If Else Sh.Calculate End If
End Sub '------------------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Voici ton fichier avec un bouton pour arrêter l'exécution du Chrono.
Le fichier contient aussi la macro qui te permet de saisir des données
sans la mise automatique des données dû à la fonction "Alea()"
au besoin, tu utilises la touche F9
http://cjoint.com/?ljvrWaj4ij
"Greg" <debutant@free.fr> a écrit dans le message de groupe de discussion :
#wj2mZWYKHA.3428@TK2MSFTNGP06.phx.gbl...
Bonjour Modeste, bonjour Denis,
Je vois que vous avez travaillé pendant mon absence! Frédo également
puisqu'il m'a fait une proposition dans le post d'origine: "compte à rebours
et validation d'une cellule à 0" du 07/11 à 22h31.
Que dois-je faire selon vous? La proposition de Frédo fonctionne
correctement de mon point de vue. A chaque mise en route du compteur,
l'ordre des questions change, ce qui me va très bien. J'aimerais pouvoir
arrêter le compte à rebours si le questionnaire est terminé avant qu'il ne
soit arrivé à 0.
Ensuite, l'idée est que l'arrêt du compte à rebours (bouton "j'ai fini"), OU
que l'échéance 0 du compte à rebours génère automatiquement
- l'affichage de la colonne B (Bonnes réponses et score)
- la saisie de la date du jour et du score dans la feuille résultat
Doit-on (Peut-on?) ajouter des lignes de code dans la même macro?
Si vous répondez, pouvez vous le faire sur le post d'origine afin que l'info
puisse suivre?
Merci beaucoup pour votre aide précieuse!
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23hbUkWUYKHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour Modeste,
Dans son application, Greg pourrait utiliser ce bout de code
dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1,
il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub
'------------------------------------------
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationManual
End Sub
'------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim Rg As Range
Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _
Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then
If Intersect(Target, Range("d:d")) Is Nothing Then
Rg.Calculate
End If
Else
Sh.Calculate
End If
End Sub
'------------------------------------------
"Modeste" <GD@libre.fr> a écrit dans le message de groupe de discussion :
eubVUxTYKHA.4452@TK2MSFTNGP04.phx.gbl...
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :
Voici ton fichier avec un bouton pour arrêter l'exécution du Chrono. Le fichier contient aussi la macro qui te permet de saisir des données sans la mise automatique des données dû à la fonction "Alea()" au besoin, tu utilises la touche F9
http://cjoint.com/?ljvrWaj4ij
"Greg" a écrit dans le message de groupe de discussion : # Bonjour Modeste, bonjour Denis,
Je vois que vous avez travaillé pendant mon absence! Frédo également puisqu'il m'a fait une proposition dans le post d'origine: "compte à rebours et validation d'une cellule à 0" du 07/11 à 22h31.
Que dois-je faire selon vous? La proposition de Frédo fonctionne correctement de mon point de vue. A chaque mise en route du compteur, l'ordre des questions change, ce qui me va très bien. J'aimerais pouvoir arrêter le compte à rebours si le questionnaire est terminé avant qu'il ne soit arrivé à 0.
Ensuite, l'idée est que l'arrêt du compte à rebours (bouton "j'ai fini"), OU que l'échéance 0 du compte à rebours génère automatiquement - l'affichage de la colonne B (Bonnes réponses et score) - la saisie de la date du jour et du score dans la feuille résultat
Doit-on (Peut-on?) ajouter des lignes de code dans la même macro?
Si vous répondez, pouvez vous le faire sur le post d'origine afin que l'info puisse suivre?
Merci beaucoup pour votre aide précieuse!
Greg
"michdenis" a écrit dans le message de news:%
Bonjour Modeste,
Dans son application, Greg pourrait utiliser ce bout de code dans le module ThisWorkbook de son classeur :
S'il y a un autre problème avec la procédure en module1, il faudra préciser sa nature. (Public Sub chrono())
'------------------------------------------ Private Sub Workbook_Activate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_Deactivate() Application.Calculation = xlCalculationManual End Sub '------------------------------------------ Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) Dim Rg As Range Set Rg = Union(Range("A:C"), Range(Cells(1, Columns.Count), _ Cells(Rows.Count, Columns.Count)))
If UCase(Sh.CodeName) = "FEUIL1" Then If Intersect(Target, Range("d:d")) Is Nothing Then Rg.Calculate End If Else Sh.Calculate End If
End Sub '------------------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :