Placer une pause dans d'une boucle

Le
Fredo P.
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26405372
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
Le #26405384
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
Le #26405386
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
MichD
Jacquouille
Le #26405391
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
Le #26405397
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
Le #26405399
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
Le #26405398
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
Le #26405400
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.
Le #26405408
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.
Publicité
Poster une réponse
Anonyme