Boucle for each

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

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

Bonjour,

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

Code:

---

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é.

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:

---

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

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

Bonjour,

Pour antonysansh,

Citation:

---

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.

Citation:

---

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:

---

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é.