Discussion :

[jmd61]

bonsoir, je souhaite savoir pourquoi à chaque fois que je saisis une boucle "for each....next" dans une routine, une fenêtre s'ouvre pour me dire "Erreur de compilation : Next sans for" alors que je mets bien "for each..." avant.
y a t il une solution pour exécuter cette routine ?
merci d'avance
jmd61

[gnain]

pour mieux comprendre et voir ce qui ne va pas donner un exemple de code svp

[Theze]

Bonjour,

Ce cas arrive souvent quand dans la boucle il y a une condition If ... Then et pas de End If :

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
 
Sub Test()
 
    Dim plage As Range
    Dim Cel As Range
    Dim quelque_chose
    '...
    '...
 
    For Each Cel In plage
 
        If quelque_chose Then
            '...
        'ici pas de End If donc erreur !
 
    Next Cel
 
End Sub

Hervé.

[antonysansh]

Bonjour Theze,

Avec un Each, c'est juste Next et non Next cel de plus le Each sert a structurer une collection (ici les celulles de ta plage) donc plage.cells et non juste le Range plage

Je n'ai pas tester mais ça devrait t'aider quand même

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
 
    Dim plage As Range
    Dim Cel As Range
 
    For Each Cel In plage.Cells 
        'ton code 
    Next
 
End Sub

Antony

[jmd61]

bonsoir et merci_ à tous de vos réponse
effectivement j'avais une condition if...then sans end if
mais je vais regarder avec attention vos réponses pour continuer à ncomprendre
merci bcp
jmd61

[Theze]

Bonjour,

Pour antonysansh,

Avec un Each, c'est juste Next et non Next cel

Tu peux tout à fait mettre Next Cel comme dans une boucle compteur For Next, ou ne pas le mettre, au choix et pour les deux type de boucle ! Le fait de préciser peut rendre le code plus clair surtout quand il y a plusieurs boucles imbriquées.

de plus le Each sert a structurer une collection (ici les celulles de ta plage) donc plage.cells et non juste le Range plage

A partir du moment où ta variable est un Range, la boucle For Each parcours tous les objets de ton Range qui est composé exclusivement d'une ou plusieurs cellules ou plages de cellules et je te rappelle que pour l'objet Range, la propriété par défaut est Cells et donc, il n'est absolument pas nécessaire de préciser !

Pour ton enrichissement personnel, teste ce bout de code :

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
 
Sub Test()
 
    Dim plage As Range
    Dim Cel As Range
 
    'sur colonne A à partir de A1
    With Worksheets("Feuil1")
 
        Set plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In plage
 
        Debug.Print Cel.Value
 
    Next Cel
 
End Sub

Alors, avant d'être aussi affirmatif, tu teste pour être sûr de ce que tu avance. Pense-tu que j'en suis à mes premières lignes de code ?

Hervé.