Bouton pour continuer l'exécution d'une boucle for

Résolu
vlnt Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Après plusieurs recherches, je ne trouve la solution à mon problème.

Mon objectif serait de pouvoir exécuter la suite d'une boucle for à partir d'un bouton. Je ne parle de bouton pour lancer une macro.

J'ai une feuille où plusieurs données sont à saisir et me renvoient un résultat (tout cela se fait sans macro). Or, je souhaite répéter plusieurs fois ce calcul en changeant à chaque fois de données et en incrémentant mon résultat dans une autre feuille. Le nombre de répétition de l'opération dépend d'une autre valeur d'où la boucle.

J'aimerai donc qu'après avoir saisi mes données et le calcul fait, cliquer sur un bouton qui m'active la suite de ma boucle (export du résultat vers une autre feuille, suppression du contenu de certaines cellules, etc...) jusqu'à ce qu'elle se termine et en recommence une autre où je rentre à nouveau mes données et la relance.

J'espère avoir été le plus clair possible.

Merci d'avance pour les réponses que vous pourrez m'apporter

Vlnt
A voir également:

5 réponses

skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
Tu peux essayer avec les autres boucles.

Do (While)
Loop (While)

////

For Each

Next


0
vlnt Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Oui j'imagine que ça peut fonctionner aussi avec les autres boucles, mais ma question revient: Qu'est ce que je mets à l'intérieur de ma boucle pour continuer son exécution à partir d'un clic bouton?
0
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
Continuer ou stopper ?
0
vlnt Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Continuer.
J'aimerai en fait que le clic bouton soit ma première ligne de code dans ma boucle pour lancer le reste des opérations de la boucle.
0
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
Tu peux faire une Msgbox avec "continuer", oui/non

Et si la réponse = non alors "exit Do"
0
vlnt Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
D'accord mais vient alors une autre question: Est-ce que la MsgBox ne va pas m'empêcher la saisie de données dans mes cellules?
L'idéal ne serait pas un bouton de commande "Calculer" plutôt qu'une MsgBox?
Ce n'est peut être pas possible?
0
vlnt Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Je viens d'essayer et en effet ça m'empêche la saisie de données.
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Regarde si un système comme ça t'irai.
Sélectionner toutes les cellules de saisie et nommer la plage 'saisies'.
Ici saisir en B2, D2 et C4.
https://www.cjoint.com/?DEhrsyzHea1

Au passage quand tu utilises Worksheets(2) tu t'adresses à la feuille en 2nde position, qu'elle s'appelle Feuil2 ou Toto.
Utilises Worksheets("Feuil2") si tu veux t'adresser à elle quelle que soit sa position.

eric

0
vlnt Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci pour la précision sur le worksheets même si je m'en doutais un peu mais au moins je suis sûr.
Pouvez-vous me préciser le fonctionnement de la variable ok en tant que boolean et avec la notion de true et false.

Et merci pour la rédaction de ce code.

Vlnt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vlnt Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Bon j'ai réfléchi sur votre code éric (ce que j'aurais dû faire avant de demander une explication) et je pense avoir compris.

La notion de false est que si la condition if is empty est vérifiée, la variable ok "n'existe pas"? D'où la deuxième condition if not qui fait apparaître la msg box?
C'est bien ça? Dites moi si j'emploie des expressions non appropriée, je n'étudie pas dans ce domaine et "apprends" par moi même.

Sinon j'ai testé et c'est exactement ce que je recherchais: contrôler la saisie sans imposer case après case.

Ma dernière question est: le nom de la procédure pour le clique bouton est-elle important pour l'attribution au bouton ou pas?

Merci
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Ok est True (Vrai) si toutes toutes les saisies sont faites, False sinon.
Le nom de la procédure est important si c'est un bouton AxtiveX. Si c'est un bouton Formulaire il n'importe pas.
eric
0