Discussion :

[topiol]

Bonjour,

J'ai 2 boucles FOR imbriquées, pour rechercher toutes les cellules de mon classeur, contenant une formule.

Lorsqu'une des feuilles du classeur ne contient aucune formule, il y a une erreur n° 1004

Comment faire pour sauter la feuille en question et continuer la boucle sur la feuille suivante ?

Merci par avance de votre aide.

[jfontaine]

Peux tu nous donner le code ou l'erreur se produit

[topiol]

Voici le code concerné par le problème :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'Si Erreur
On Error GoTo 1
' ...
' ...
 
'gestion des erreurs
1: If Err.Number = 1004 Then
    Select Case balay
        Case "classeur"
            MsgBox "Le classeur contient une feuille sans formule, veuillez exécuter la macro sans la sélection de cette feuille."
            Execute = False
        Case Else
            MsgBox "Cette feuille/sélection ne contient aucune formule, la feuille résultat va être supprimée car elle ne contient aucune donnée."
            Sheets(feuilnew).Delete
        End Select
    End If
 
Sub classeur(cellule As Range, indilign As Integer, f As Integer)
' ...
' ...
'Sélection de chaque feuille en boucle
For i = (f + 1) To 2 * f
indilign = 4
Worksheets(i).Activate
MsgBox "La feuille balayée est " & Sheets(i).Name
Selection.SpecialCells(xlCellTypeFormulas).Select
                For Each cellule In Selection
                    indilign = indilign + 1
                    j = cellule.Address(, columnabsolute)
                    jlong = Len(j)
                    jposition = InStr(j, "$")
                    Worksheets(i - f).Cells(indilign, 1).Value = Left(j, jposition - 1) _
                    & Right(j, jlong - jposition)
                    Worksheets(i - f).Cells(indilign, 2).Value = "'" & cellule.FormulaLocal
                Next
Next i
' ...
End Sub

[zazaraignée]

Salut

l'ajout des balises Code autour de ton code, ce serait chouette. C'est le bouton

Pas la peine de faire deux boucles. Tu peux boucler sur les cellules d'une plage.

Code :

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

1
2
3
4
Dim cellule As Range
For Each cellule in Range("A1:IV65536")
    ' le traitement
Next cellule

mais ça risque d'être long!

[topiol]

Pour revenir à ma question : formulé autrement :

Quand on a 2 boucles imbriquées, quelqu'un sait-il comment sortir de la boucle interne en cas d'erreur, sans sortir de la boucle externe ?

[jfontaine]

je pense qu'avec un goto ca devrait faire l'affaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
for i = 0 to 20
 
    for j=0 to 20
 
         if truc = machin then goto suite
 
    next j
 
suite:
 
next i

[mordrhim]

sortir d'un For

Code :

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

1
2
3
For Debut to Fin
    If Condition Then Exit For
Next

Sortir d'un Do

Code :

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

1
2
3
4
5
Do while OK
    If Condition Then Exit Do
'ou
    If Condition Then OK = False
Loop

Code :

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

1
2
3
4
5
Do Until OK
    If Condition Then Exit Do
'ou
    If Condition Then OK = True
Loop

Sortir d'un While

Code :

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

1
2
3
While Condition1
    If ConditionDeSortie Then Condition1 = False 
Wend

[zazaraignée]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer, j As Integer
Dim maCondition As Boolean
' pour l'exemple et excusez moi si c'est simpliste
maCondition = i < 3
For i = 0 To 9
    Debug.Print "Boucle externe, valeur : " & i
    For j = 0 To 9
        Debug.Print "Boucle interne, valeur : " & j
        If maCondition = False Then Exit For
    Next
Next i

Ne fonctionne malheureusement pas.

Le mieux c'est d'utiliser des boucles Do Loop avec un While (Tant que) ou un Until (Jusqu'à ce que). La codition se trouvant toute suite après un While ou un Until... Voir l'aide de VBA pour explications. Sinon, le For Each que je t'ai donné avec une condition et un Exit For pourrait marcher.

[mordrhim]

c'est normal,

ton "macondition" a été intinialisé, mais ce n'est pas un test dynamique, donc il sera toujours égal à 0<3 ce qui est vrai. Il était vrai à un moment du sub, et il le restera tant que tu ne le changera pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim i As Integer, j As Integer
    ' pour l'exemple et excusez moi si c'est simpliste
    For i = 0 To 9
        Debug.Print "Boucle Externe, valeur : " & i
        For j = 1 To 3
            Debug.Print "Boucle interne, valeur : " & j
            If i >= 3 Then
                Debug.Print "!!!! Je sors de ma boucle !!!!"
                Exit For
            End If
        Next
    Next i
End Sub

Maintenant le test est fait et évolue en fonction de i, donc il sortira de la boucle j (interne), à partir de i= 3 il ne fera le debug que pour i.
Cf le fichier joint.