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

Résolu/Fermé
vlnt Messages postés 15 Date d'inscription mardi 6 mai 2014 Statut Membre Dernière intervention 16 mai 2014 - 6 mai 2014 à 17:05
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 10 mai 2014 à 08:09
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 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
6 mai 2014 à 17:21
Tu peux essayer avec les autres boucles.

Do (While)
Loop (While)

////

For Each

Next


0
vlnt Messages postés 15 Date d'inscription mardi 6 mai 2014 Statut Membre Dernière intervention 16 mai 2014
6 mai 2014 à 17:24
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 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
7 mai 2014 à 10:49
Continuer ou stopper ?
0
vlnt Messages postés 15 Date d'inscription mardi 6 mai 2014 Statut Membre Dernière intervention 16 mai 2014
7 mai 2014 à 10:56
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 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
7 mai 2014 à 11:14
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 mardi 6 mai 2014 Statut Membre Dernière intervention 16 mai 2014
7 mai 2014 à 11:19
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 mardi 6 mai 2014 Statut Membre Dernière intervention 16 mai 2014
7 mai 2014 à 11:35
Je viens d'essayer et en effet ça m'empêche la saisie de données.
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
7 mai 2014 à 17:24
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 mardi 6 mai 2014 Statut Membre Dernière intervention 16 mai 2014
9 mai 2014 à 09:13
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 mardi 6 mai 2014 Statut Membre Dernière intervention 16 mai 2014
9 mai 2014 à 09:34
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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
10 mai 2014 à 08:09
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