boucle FOR EACH à parcourir en sens inverse

Bonjour Le Nordiste

A ma connaissance, ce n'est pas possible avec For Each
Tu es obligé de passer par un FOR Next classique :

For i= PlageVerticale.cells.Rows.count Step -1
======mon code=== next i



j-p

Merci JpPradier

Dommage car ce serait parfois utile :
eg : 1) on définit une plage verticale
2) dans la boucle FOR EACH on supprime une ligne
ce qui fait qu'on ne lit qu'une ligne sur deux, ça
peut se révéler génant.

Peut étre pour la version 2025 ?

Cordialement,

Le Nordiste

Bonjour Le Nordiste,

Ceci fonctionne très bien et ce n'est pas très compliqué à mettre en branle :

'------------------------------
Sub test()

Dim A As Long, Nb As Long
Dim Rg As Range, Adr As String

Set Rg = Range("A5:A20")
Nb = Rg.Rows.Count

For A = Nb To 1 Step -1
With Rg(A)
Adr = .Address
End With
Next

End Sub
'------------------------------



Salutations!



"Le Nordiste" <jean-paul.bataille@cegetel.fr> a écrit dans le message de news:
1144662080.178728.137270@t31g2000cwb.googlegroups.com...
Bonjour tertous,

Dans une plage unicolonne verticale, pour parcourir les cellules de
haut en bas je fais :

For each Cellule in PlageVerticale.cells
======mon code=== next Cellule

Est il possible de parcourir la même plage de bas en haut avec un For
each... ?

En fait dans mon code je supprime la ligne de 'Cellule', d'où un
parcours par sauts de deux en deux de 'PlageVerticale'


Remerciements à tous ceux qui passeront un peu de leur temps à
m'apporter une solution.

Cordialement,
Le Nordiste.