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