Sujet Précédent Sujet Suivant

Comment sortir d'une boucle avant une MsgBox?

Résolu/Fermé
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 3 juil. 2015 à 11:27
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 3 juil. 2015 à 17:21
Bonjour, 

For i = 13 To DL

If Sheets(1).Range("V" & i).Value - Sheets(1).Range("K" & i).Value <> 0 Then
Sheets(1).Rows(i).Interior.Color = RGB(255, 192, 0)
MsgBox ("ERREUR")

End If
Next i

End Sub


Ce code permet de lancer une MsgBox sous condition. Par contre, je voudrais qu'elle ne se lance qu'une fois. Donc il faudrait qu'elle soit hors de la boucle. Je ne sais pas comment la faire sortir sans perdre la condition If.

Pourriez-vous m'aider svp?

5 réponses

Réponse 1 / 5
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juil. 2015 à 12:07
Bonjour, 

Sub test()
    For i = 13 To DL
        If Sheets(1).Range("V" & i).Value - Sheets(1).Range("K" & i).Value <> 0 Then
            Sheets(1).Rows(i).Interior.Color = RGB(255, 192, 0)
            MsgBox ("ERREUR")
            Exit For
        End If
    Next i
End Sub
0
Réponse 2 / 5
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
3 juil. 2015 à 15:53
Bonjour et merci pour la réponse.

Cependant, le code ne fonctionne pas comme je le voudrais. En effet, la première ligne concernée est colorée en orange, et la MsgBox apparaît bien. Mais les lignes suivantes concernées ne sont pas colorées alors que le code est fini.

Cordialement.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juil. 2015 à 16:11
Re,

C'est dans votre demande que ca coince, mais je vais arranger ca 


Sub test()
    Dim Flag_ERREUR As Boolean
    DL = 20
    For i = 13 To DL
        If Sheets(1).Range("V" & i).Value - Sheets(1).Range("K" & i).Value <> 0 Then
            Sheets(1).Rows(i).Interior.Color = RGB(255, 192, 0)
            If Not Flag_ERREUR Then
                MsgBox ("ERREUR")
            End If
            Flag_ERREUR = True
        End If
    Next i
End Sub


A+
0
Réponse 3 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
3 juil. 2015 à 16:05
Bonjour,

Ceci peut être : 

Dim i As Long, Erreur As Boolean
Erreur = False 'ligne inutile mais là pour la compréhension
For i = 13 To DL
    If Sheets(1).Range("V" & i).Value - Sheets(1).Range("K" & i).Value <> 0 Then
        Sheets(1).Rows(i).Interior.Color = RGB(255, 192, 0)
        Erreur = True
    End If
Next i
If Erreur Then MsgBox "ERREUR"
End Sub

0
Réponse 4 / 5
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
3 juil. 2015 à 16:19
Merci beaucoup à vous deux !

Tout marche parfaitement. Au risque de trop en demander, pouvez-vous m'expliquer en gros le principe de "Boolean"?

Merci en tout cas.

Cordialement.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 3/07/2015 à 16:21
Une variable de type boolean n'admet que 2 valeurs 0 ou 1 (Faux ou vrai).
Elle est systématiquement définie (initialisée) sur False.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juil. 2015 à 16:23
Re,
Salut pijaku, ca flotte

Kuartz:
un type de données Boolean est un type de données avec seulement deux valeurs possibles: vrai ou faux. (en francais)

In most computer programming languages, a Boolean data type is a data type with only two possible values: true or false. (en anglais)
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
3 juil. 2015 à 16:25
D'accord. Excellent moyen pour placer ma MsgBox en tout cas. Mais il fallait y penser.
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
3 juil. 2015 à 16:26
Ca vous dérange si je pose une autre petite dernière question concernant des MsgBox ici?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019
3 juil. 2015 à 16:27
Re,

Non, posez votre question
0

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

Posez votre question
Réponse 5 / 5
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
3 juil. 2015 à 16:33
Re,

Voilà j'ai ce code, ça fait depuis le début de l'après-midi que je suis dessus... 

If MsgBox("Voulez-vous vérifier la TVA sur les débits?", vbYesNo, "Vérif RAN TVA débits") = vbYes Then
    For i = 13 To DL
        If Sheets(1).Range("D" & i) = "RAN" Then
            Sheets(1).Range("B" & i).Select
            If MsgBox("La facture suivante (tiers : " & Range("B" & i) & " ) est-elle soummise à TVA sur les débits?", vbYesNoCancel, "Vérif TVA débits") = vbYes Then
                Sheets(1).Range("N" & i) = Sheets(1).Range("K" & i)
            End If
            If MsgBox("La facture suivante est-elle soummise à TVA sur les débits?", vbYesNoCancel, "Vérif TVA débits") = vbCancel Then Exit For
        End If
    Next i
End If


(Rassurez vous, toutes les variables ont été bien définies avant mais le code complet est très long)

Les MsgBox se comportent exactement comme je le veux. Le problème est que comme j'ai 2 If avec des MsgBox (je ne sais pas faire autrement...), que je réponde quoi que ce soit à la 2ème MsgBox, elle apparaitra 2 fois et ma 2ème réponse donnera le bon comportement.

Merci d'avance encore une fois.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juil. 2015 à 16:45
Re,

Pour moi la deuxieme msgbox n'a pas d'utilite ou je n'ai pas tout compris 

Sub test()
    If MsgBox("Voulez-vous vérifier la TVA sur les débits?", vbYesNo, "Vérif RAN TVA débits") = vbYes Then
        For i = 13 To DL
            If Sheets(1).Range("D" & i) = "RAN" Then
                If MsgBox("La facture suivante (tiers : " & Range("B" & i) & " ) est-elle soummise à TVA sur les débits?", vbYesNoCancel, "Vérif TVA débits") = vbYes Then
                    Sheets(1).Range("N" & i) = Sheets(1).Range("K" & i)
                End If
            End If
        Next i
    End If
End Sub
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
3 juil. 2015 à 16:53
Re,

Pardon je dois mal m'expliquer. En fait, j'aurais voulu que le bouton Cancel de la 2ème MsgBox de votre code ci-dessus arrête la vérification de la TVA sur les débits. En gros, si je clique sur le bouton "Annuler", j'aurais voulu que l'on passe immédiatement à la suite du code.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019
3 juil. 2015 à 17:10
Re, 

Sub test()
    DL = 20
    If MsgBox("Voulez-vous vérifier la TVA sur les débits?", vbYesNo, "Vérif RAN TVA débits") = vbYes Then
        For i = 13 To DL
            If Sheets(1).Range("D" & i) = "RAN" Then
                retval = MsgBox("La facture suivante (tiers : " & Range("B" & i) & " ) est-elle soummise à TVA sur les débits?", vbYesNoCancel, "Vérif TVA débits")
                If retval = vbYes Then
                    Sheets(1).Range("N" & i) = Sheets(1).Range("K" & i)
                ElseIf retval = vbCancel Then
                    MsgBox "Bye........"
                    Exit For
                End If
            End If
        Next i
    End If
End Sub
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
3 juil. 2015 à 17:21
Merci pour ce nouvel outil dont je vais abuser et réabuser à l'infini : "retval"

Je vous remercie pour le temps passé à m'aider et pour vos compétences.

Cordialement.
0

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
[PIX] Commencer chaque poème sur une nouvelle page
ETHAN -
Willzac -

19 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
VBA erreur 1004
séverine -
Floroan -

9 réponses