Conditions avec msgbox

Bonjour,

Je bloque sur une macro donc je dois faire appel à vous tous :)

J'ai un code qui me permet de boucler sur toutes les feuilles de mon classeur afin de vérifier si je trouve "oui" en A1

Si c'est le cas, depuis un msgbox je pose la question de poursuivre ou non

Si click sur oui alors on poursuit le code, si "non" on sort de la procédure

Mon problème est le suivant, comment exécuter le reste du code même si "oui" n'est pas trouvé sur mes feuilles en A1 sans utiliser Go To...?

Voici mon début de code:

Index=0
For Each ws In Worksheets
        If .Range("A1") ="OUI"
            Index = Index + 1
        End If
    Next ws

    If Index >= 1 Then
        Choix = MsgBox("Attention, au moins 1 "oui" de trouvé ! Voulez-vous continuer ?", vbYesNo + vbQuestion, "Excel")
            If Choix = vbNo Then
                Exit Sub
            Else
                'Suite de mon code si click sur "oui" dans mgsbox ou alors si Index=0
            End if
    End If

Merci aux gens qui pourront m'aider :)

JB

bonjour,

une façon de faire.

    For Each ws In Worksheets
        If UCase(ws.Range("A1")) = "OUI" Then
            Choix = MsgBox("Attention, au moins 1 ""oui"" de trouvé ! Voulez-vous continuer ?", vbYesNo + vbQuestion, "Excel")
            If Choix = vbNo Then
                Exit Sub 'on arrete le traitement
            Else
                Exit For 'on continue le traitement sans regarder les autres feuilles = on sort de la boucle
            End If
        End If
    Next ws
    ' on continue

Bonsoir h2so4 et JeanBaptisteP !

une autre façon de faire en reprenant la "structure" de votre code :

Sub test()
    Index = 0
    For Each ws In Worksheets
        If UCase(ws.Range("A1")) = "OUI" Then Index = Index + 1
    Next ws
    If Index >= 1 Then
        If MsgBox("Attention, " & Index & " ""oui"" de trouvé ! Voulez-vous continuer ?", vbYesNo + vbQuestion, "Excel") = vbNo Then Exit Sub
    End If
    'Suite de mon code si click sur "oui" dans mgsbox ou alors si Index=0
    MsgBox ("on continue le code malgré le oui")
End Sub

Mais la technique de h2so4 à l'avantage de "s'arrêter" au premier oui trouvé et cela évite de tourner sur toutes les feuilles !

@ bientôt

LouReeD

Bonjour,

Merci beaucoup pour vos retours, je vais tester tout ça !

JB