Discussion :

[SBranchu]

Bonjour,
je veux faire un test avant de quitter un onglet (vérifier des erreurs). L'utilisateur peut choisir de quitter malgré tout la feuille. J'ai tenté le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Deactivate()
    Dim c As Range
    NomFeuille = ActiveSheet.Name
    Sheets("Présentation").Activate
    For Each c In Range("A5:b50")
        If c.DisplayFormat.Interior.ColorIndex = 3 Then
            Oncontinue = MsgBox("Il semble qu'il y ait une (des) erreur(s) sur la feuille..." & Chr(10) & _
            "Désirez-vous continuer malgré tout ?", vbYesNo + vbExclamation, "Attention")
            Exit For
        End If
    Next
    If Oncontinue = vbYes Then Sheets(NomFeuille).Activate
End Sub

Ça fait à peu près ce que je demande sauf que bien évidemment la macro se relance avec Sheets(NomFeuille).Activate

Comment faire pour la bloquer ?

Bonne journée et prenez soin de vous

SB

[SBranchu]

En fait je fais l'inverse : je sors et j'y retourne si je ne veux pas sortir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Deactivate()
    Dim c As Range
 
    For Each c In Range("Présentation!A5:b50")
 
        If c.DisplayFormat.Interior.ColorIndex = 3 Then
            Oncontinue = MsgBox("Il semble qu'il y ait une (des) erreur(s) sur la feuille..." & Chr(10) & _
                "Désirez-vous continuer malgré tout ?", vbYesNo + vbExclamation, "Attention")
            Exit For
        End If
 
    Next
 
    If Oncontinue = vbNo Then Sheets("Présentation").Activate
 
End Sub

Merci
SB

[Pierre Fauconnier]

Salut.

Perso, je me passerais de l'EXIT qui pour moi est à bannir, et j'utiliserais plutôt DO WHILE pour stopper la boucle dès que la réponse a été fournie.

DO WHILE <> FOR NEXT. Il convient à mon avis de bien faire la différence entre les deux et de les utiliser bon escient.

FOR...NEXT dit explicitement le nombre de boucles ou sur quelle collection on boucle (en bouclant sur TOUS les éléments) et dès lors je ne comprends même pas comment les concepteurs du langage ont pu prévoir un EXIT FOR alors que DO WHILE prévoit une condition de sortie et donc prévoir qu'il y a des chances que l'on ne boucle pas sur tous les éléments. Et comme on peut donner la condition de sortie dès l'entrée de la boucle, je ne comprends pas non plus l'utilité de EXIT DO.

D'une façon générale, je ne comprends pas l'utilité de EXIT (Sub, Function, DO, FOR...) dans une programmation correctement structurée

[SBranchu]

Suis entièrement d'accord pour Do WHILE, mais pas encore le réflex... et surtout pas suffisamment expert pour commenter le reste...


Une question quand même comment balayer une plage avec DO WHILE ?
Question supplémentaire et sans rapport pourquoi SpecialCells(xlLastCell) ne fonctionne pas sur une Feuille protégée ?
Merci,
SB

[Pierre Fauconnier]

Voilà comment j'écrirais du code si je souhaitais trouver la première ligne de Art 19 dans un tableau⁽¹⁾ en utilisant plutôt un Do While qu'un For Next avec un Exit. J'aime bien, lorsque je lis du code, comprendre l'intention du programmeur, et l'intention n'est pas la même lorsque l'on utiliser For plutôt que DO...




(1) Dans ce cas précis, j'utiliserais une autre méthode, c'est juste pour illustrer le propos d'un Do While plutôt qu'un For Next lorsqu'il y a suspicion d'une sortie prématurée de boucle.

[SBranchu]

Ouaip, mais dans mon exemple je suis en 2 dimensions, donc il faudrait imbriquer 2 boucles ou il y aurait une autre solution ?
SB

[Pierre Fauconnier]

Ma remarque vaut pour l'idée qu'elle défend le fait d'utiliser la bonne syntaxe et donc la bonne boucle. A partir du moment où le test peut être exprimé à l'intérieur de la boucle, il n'y a pas besoin de seconde boucle.

Ce que je veux dire, c'est que FOR...NEXT induit l'idée qu'on va boucler sur toutes les lignes, tous les éléments de la collection, de X à Y sans sortie prématurée, et que DO exprime, dès l'entrée de jeu, qu'il y a une condition de sortie.

Après, c'est au cas par cas, mais toujours sans EXIT qui est vraiment à proscrire car il crée deux sorties (de boucle, de procédure, de fonction) et que cela peut générer des plantages de code ou des dysfonctionnements "discrets" que l'on ne remarquera que plus tard...