Language vba excel - boucle
Résolu/Fermé
A voir également:
- Language vba excel - boucle
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
28 janv. 2014 à 22:26
28 janv. 2014 à 22:26
Bonjour,
Essais comme ça:
Essais comme ça:
réponse = MsgBox("Voulez-vous indiquer une nouvelle référence de plante ?", vbYesNo, "PLANTE") encore = True While encore <> False m = 3 n = 15 x = 1 If réponse = vbYes Then Do While x > 0 plante = InputBox("Entrez la référence de la plante : ", "PLANTE", "ALB") Worksheets("Devis").Cells(n, 1).Value = plante Do While trouvé <> True m = m + 1 If plante = Worksheets("Plantes").Cells(m, 1).Value Then trouvé = True Worksheets("Devis").Cells(n, 2).Value = Worksheets("Plantes").Cells(m, 2).Value Worksheets("Devis").Cells(n, 4).Value = Worksheets("Plantes").Cells(m, 3).Value n = n + 1 x = 1 réponse = MsgBox("Voulez-vous indiquer une nouvelle référence de plante ?", vbYesNo, "PLANTE") If reponse = vbYes Then encore = False Else encore = True x = x - 1 End If End If Loop Loop ElseIf réponse = vbNo Then encore = True x = -1 End If Wend
Modifié par galt19 le 29/01/2014 à 13:05
Merci, j'ai essayé comme ça, par contre ça fonctionne pas. J'ai toujours le problème de boucle infinie dès la deuxième référence.
Pour décrire : voulez vous indiquer une nouvelle réf => oui, Entrez la ref : j'entre la réf et tout s'affiche. Voulez vous entrez une nouvelle réf => oui ; entrer la ref = et la il n'y a que la réf qui s'affiche et "entrez la ref" se repose automatiquement. Et quand je mets annuler, cela me supprime la 2eme réf mais la boucle repart de nouveau sur la question. Je ne sais pas comment résoudre ce problème, ca me paraît compliquer.
Modifié par Polux31 le 29/01/2014 à 13:37
dsl, je n'avais pas fait de test hier soir. Effectivement ça boucle pas comme il faudrait :(
Avec ça doit mieux tourner:
29 janv. 2014 à 13:49
29 janv. 2014 à 22:40
bonne fin de soirée