Discussion :

[chriscamp]

Bonjour,
Dans une plage couverte par l'instruction For Each le sens de traitement de chaque cellules est A1, B1, C1 A2 B2 C2 etc...
Est il possible de traiter les cellules par colonnes: A1 A2 A3 B1 B2 B3 etc...
Cordialement, Christian.

[laetitia]

bonjour chriscamp le forum boucle sur les colonnes de la premiere a la derniere non vide jusqu a la derniere ligne non vide a adapter
option explicit

Code :

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

1
2
3
4
5
6
7
8
Sub Rec()
Dim i As Integer, j As Integer
For j = 1 To Range("iv1").End(xlToLeft).Column
For i = 1 To Cells.Find("*", , , , , xlPrevious).Row
 Cells(i, j).Select
 MsgBox "aa"
 Next i: Next j
 End Sub