Bonjour,
Qq aurait un exemple à me proposer pour mettre en attente une routine avec
la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
bonjour Fredo, voilà http://www.cjoint.com/c/FGwqSd5onoa isabelle Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
bonjour Fredo,
voilà
http://www.cjoint.com/c/FGwqSd5onoa
isabelle
Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour,
Qq aurait un exemple à me proposer pour mettre en attente une routine avec la
possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
bonjour Fredo, voilà http://www.cjoint.com/c/FGwqSd5onoa isabelle Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
MichD
Bonjour, Un exemple très complexe à mettre en place : Dans un module standard, copie ce code : Dans ta feuille de calcul, attache chacune des macros à un bouton de commande émanant de la barre d'outils "Formulaire". Tu pars la boucle à l'aide du bouton associé à la macro "Boucle" et tu l'arrêtes à l'aide du bouton associé à la macro "Stop_Boucle". Durant l'exécution de la boucle, la valeur de la cellule A1 s'incrémente de 1 seulement aux fins de l'exercice. 'Déclaration de la variable dans le haut du module. Dim Ok As Boolean '--------------------------------------- Sub Boucle() Ok = False Do While Ok <> True Range("A1") = Range("A1") + 1 DoEvents Loop End Sub '--------------------------------------- Sub Stop_Boucle() Ok = True End Sub '--------------------------------------- Si tu veux plus compliquer, essaie l'adresse d'Isabelle... Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier... Imagine la macro à l'intérieur!!! ;-))) MichD "Fredo P." a écrit dans le message de groupe de discussion : nmtgfu$k3o$ Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
Bonjour,
Un exemple très complexe à mettre en place :
Dans un module standard, copie ce code :
Dans ta feuille de calcul, attache chacune des macros à un bouton
de commande émanant de la barre d'outils "Formulaire".
Tu pars la boucle à l'aide du bouton associé à la macro "Boucle" et
tu l'arrêtes à l'aide du bouton associé à la macro "Stop_Boucle".
Durant l'exécution de la boucle, la valeur de la cellule A1 s'incrémente
de 1 seulement aux fins de l'exercice.
'Déclaration de la variable dans le haut du module.
Dim Ok As Boolean
'---------------------------------------
Sub Boucle()
Ok = False
Do While Ok <> True
Range("A1") = Range("A1") + 1
DoEvents
Loop
End Sub
'---------------------------------------
Sub Stop_Boucle()
Ok = True
End Sub
'---------------------------------------
Si tu veux plus compliquer, essaie l'adresse d'Isabelle...
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
Imagine la macro à l'intérieur!!! ;-)))
MichD
"Fredo P." a écrit dans le message de groupe de discussion : nmtgfu$k3o$1@gioia.aioe.org...
Bonjour,
Qq aurait un exemple à me proposer pour mettre en attente une routine avec
la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
Bonjour, Un exemple très complexe à mettre en place : Dans un module standard, copie ce code : Dans ta feuille de calcul, attache chacune des macros à un bouton de commande émanant de la barre d'outils "Formulaire". Tu pars la boucle à l'aide du bouton associé à la macro "Boucle" et tu l'arrêtes à l'aide du bouton associé à la macro "Stop_Boucle". Durant l'exécution de la boucle, la valeur de la cellule A1 s'incrémente de 1 seulement aux fins de l'exercice. 'Déclaration de la variable dans le haut du module. Dim Ok As Boolean '--------------------------------------- Sub Boucle() Ok = False Do While Ok <> True Range("A1") = Range("A1") + 1 DoEvents Loop End Sub '--------------------------------------- Sub Stop_Boucle() Ok = True End Sub '--------------------------------------- Si tu veux plus compliquer, essaie l'adresse d'Isabelle... Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier... Imagine la macro à l'intérieur!!! ;-))) MichD "Fredo P." a écrit dans le message de groupe de discussion : nmtgfu$k3o$ Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
isabelle
voici une version xl97-2003 http://www.cjoint.com/c/FGwsEXPuaGa isabelle Le 2016-07-22 à 14:09, MichD a écrit :
Je n'ai même pas réussi à ouvrir le fichier... Imagine la macro à l'intérieur!!! ;-))) MichD
voici une version xl97-2003
http://www.cjoint.com/c/FGwsEXPuaGa
isabelle
Salut Denis .... en Feuil3, il y a l'adresse d'une clinique. Si cela peut servir .... -)))) Jacques " Le vin est au repas ce que le parfum est à la femme." . "MichD" a écrit dans le message de groupe de discussion : nmtngv$uss$ Bonjour, Un exemple très complexe à mettre en place : Dans un module standard, copie ce code : Dans ta feuille de calcul, attache chacune des macros à un bouton de commande émanant de la barre d'outils "Formulaire". Tu pars la boucle à l'aide du bouton associé à la macro "Boucle" et tu l'arrêtes à l'aide du bouton associé à la macro "Stop_Boucle". Durant l'exécution de la boucle, la valeur de la cellule A1 s'incrémente de 1 seulement aux fins de l'exercice. 'Déclaration de la variable dans le haut du module. Dim Ok As Boolean '--------------------------------------- Sub Boucle() Ok = False Do While Ok <> True Range("A1") = Range("A1") + 1 DoEvents Loop End Sub '--------------------------------------- Sub Stop_Boucle() Ok = True End Sub '--------------------------------------- Si tu veux plus compliquer, essaie l'adresse d'Isabelle... Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier... Imagine la macro à l'intérieur!!! ;-))) MichD "Fredo P." a écrit dans le message de groupe de discussion : nmtgfu$k3o$ Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre. --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Salut Denis
.... en Feuil3, il y a l'adresse d'une clinique.
Si cela peut servir ....
-))))
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
nmtngv$uss$1@gioia.aioe.org...
Bonjour,
Un exemple très complexe à mettre en place :
Dans un module standard, copie ce code :
Dans ta feuille de calcul, attache chacune des macros à un bouton
de commande émanant de la barre d'outils "Formulaire".
Tu pars la boucle à l'aide du bouton associé à la macro "Boucle" et
tu l'arrêtes à l'aide du bouton associé à la macro "Stop_Boucle".
Durant l'exécution de la boucle, la valeur de la cellule A1 s'incrémente
de 1 seulement aux fins de l'exercice.
'Déclaration de la variable dans le haut du module.
Dim Ok As Boolean
'---------------------------------------
Sub Boucle()
Ok = False
Do While Ok <> True
Range("A1") = Range("A1") + 1
DoEvents
Loop
End Sub
'---------------------------------------
Sub Stop_Boucle()
Ok = True
End Sub
'---------------------------------------
Si tu veux plus compliquer, essaie l'adresse d'Isabelle...
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
Imagine la macro à l'intérieur!!! ;-)))
MichD
"Fredo P." a écrit dans le message de groupe de discussion :
nmtgfu$k3o$1@gioia.aioe.org...
Bonjour,
Qq aurait un exemple à me proposer pour mettre en attente une routine avec
la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Salut Denis .... en Feuil3, il y a l'adresse d'une clinique. Si cela peut servir .... -)))) Jacques " Le vin est au repas ce que le parfum est à la femme." . "MichD" a écrit dans le message de groupe de discussion : nmtngv$uss$ Bonjour, Un exemple très complexe à mettre en place : Dans un module standard, copie ce code : Dans ta feuille de calcul, attache chacune des macros à un bouton de commande émanant de la barre d'outils "Formulaire". Tu pars la boucle à l'aide du bouton associé à la macro "Boucle" et tu l'arrêtes à l'aide du bouton associé à la macro "Stop_Boucle". Durant l'exécution de la boucle, la valeur de la cellule A1 s'incrémente de 1 seulement aux fins de l'exercice. 'Déclaration de la variable dans le haut du module. Dim Ok As Boolean '--------------------------------------- Sub Boucle() Ok = False Do While Ok <> True Range("A1") = Range("A1") + 1 DoEvents Loop End Sub '--------------------------------------- Sub Stop_Boucle() Ok = True End Sub '--------------------------------------- Si tu veux plus compliquer, essaie l'adresse d'Isabelle... Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier... Imagine la macro à l'intérieur!!! ;-))) MichD "Fredo P." a écrit dans le message de groupe de discussion : nmtgfu$k3o$ Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre. --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Jacky
Bonjour,
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
C'est une nouvauté de CJoint, certainement pour la securité. Tous les classeurs avec l'extension "xlsm" sont automatiquement renomés en "xlsx" Il faudra donc avant de l'ouvrir, modifier dans ton répertoire de téléchargement son extension. Tout devient compliqué... Salutations JJ
Bonjour,
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
C'est une nouvauté de CJoint, certainement pour la securité.
Tous les classeurs avec l'extension "xlsm" sont automatiquement
renomés en "xlsx"
Il faudra donc avant de l'ouvrir, modifier dans ton répertoire de
téléchargement son extension.
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
C'est une nouvauté de CJoint, certainement pour la securité. Tous les classeurs avec l'extension "xlsm" sont automatiquement renomés en "xlsx" Il faudra donc avant de l'ouvrir, modifier dans ton répertoire de téléchargement son extension. Tout devient compliqué... Salutations JJ
isabelle
oups! j'avais oublié que j'avais mis ça là %-( pour ceux qui ont un problème de dégénérescence maculaire, c'est une bonne place ;-) isabelle Le 2016-07-22 à 16:06, Jacquouille a écrit :
Salut Denis .... en Feuil3, il y a l'adresse d'une clinique. Si cela peut servir .... -)))) Jacques " Le vin est au repas ce que le parfum est à la femme."
oups! j'avais oublié que j'avais mis ça là %-(
pour ceux qui ont un problème de dégénérescence maculaire,
c'est une bonne place ;-)
isabelle
Le 2016-07-22 à 16:06, Jacquouille a écrit :
Salut Denis
.... en Feuil3, il y a l'adresse d'une clinique.
Si cela peut servir ....
-))))
Jacques
" Le vin est au repas ce que le parfum est à la femme."
oups! j'avais oublié que j'avais mis ça là %-( pour ceux qui ont un problème de dégénérescence maculaire, c'est une bonne place ;-) isabelle Le 2016-07-22 à 16:06, Jacquouille a écrit :
Salut Denis .... en Feuil3, il y a l'adresse d'une clinique. Si cela peut servir .... -)))) Jacques " Le vin est au repas ce que le parfum est à la femme."
isabelle
merci Jacky, c'est bon à savoir, isabelle Le 2016-07-22 à 19:42, Jacky a écrit :
Bonjour,
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
C'est une nouvauté de CJoint, certainement pour la securité. Tous les classeurs avec l'extension "xlsm" sont automatiquement renomés en "xlsx" Il faudra donc avant de l'ouvrir, modifier dans ton répertoire de téléchargement son extension. Tout devient compliqué... Salutations JJ
merci Jacky, c'est bon à savoir,
isabelle
Le 2016-07-22 à 19:42, Jacky a écrit :
Bonjour,
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
C'est une nouvauté de CJoint, certainement pour la securité.
Tous les classeurs avec l'extension "xlsm" sont automatiquement
renomés en "xlsx"
Il faudra donc avant de l'ouvrir, modifier dans ton répertoire de téléchargement
son extension.
merci Jacky, c'est bon à savoir, isabelle Le 2016-07-22 à 19:42, Jacky a écrit :
Bonjour,
Pour tout te dire, Je n'ai même pas réussi à ouvrir le fichier...
C'est une nouvauté de CJoint, certainement pour la securité. Tous les classeurs avec l'extension "xlsm" sont automatiquement renomés en "xlsx" Il faudra donc avant de l'ouvrir, modifier dans ton répertoire de téléchargement son extension. Tout devient compliqué... Salutations JJ
isabelle
j'ai retrouvé ce très bel exemple créer par Modeste geedee chronometre_modeste_millieme_de_secondes.xls http://www.cjoint.com/c/FGxbSS3hMVa isabelle Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
j'ai retrouvé ce très bel exemple créer par Modeste geedee
chronometre_modeste_millieme_de_secondes.xls
http://www.cjoint.com/c/FGxbSS3hMVa
isabelle
Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour,
Qq aurait un exemple à me proposer pour mettre en attente une routine avec la
possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
j'ai retrouvé ce très bel exemple créer par Modeste geedee chronometre_modeste_millieme_de_secondes.xls http://www.cjoint.com/c/FGxbSS3hMVa isabelle Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
Fredo P.
Mammamia!! Je ne pouvais réellement pas faire par moi même une chose pareille :o)). Bonjour Isabelle, bien heureux de revoir ce prénom. "isabelle" a écrit dans le message de groupe de discussion : nmtihg$n9c$ bonjour Fredo, voilà http://www.cjoint.com/c/FGwqSd5onoa isabelle Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
Mammamia!!
Je ne pouvais réellement pas faire par moi même une chose pareille :o)).
Bonjour Isabelle, bien heureux de revoir ce prénom.
"isabelle" a écrit dans le message de groupe de discussion :
nmtihg$n9c$1@gioia.aioe.org...
bonjour Fredo,
voilà
http://www.cjoint.com/c/FGwqSd5onoa
isabelle
Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour,
Qq aurait un exemple à me proposer pour mettre en attente une routine avec
la
possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
Mammamia!! Je ne pouvais réellement pas faire par moi même une chose pareille :o)). Bonjour Isabelle, bien heureux de revoir ce prénom. "isabelle" a écrit dans le message de groupe de discussion : nmtihg$n9c$ bonjour Fredo, voilà http://www.cjoint.com/c/FGwqSd5onoa isabelle Le 2016-07-22 à 12:09, Fredo P. a écrit :
Bonjour, Qq aurait un exemple à me proposer pour mettre en attente une routine avec la possibilité qu'elle continue au moyen d'un bouton de commande ou autre.
