L'ordre dans lequel un For Each itère une collection d'objets dépend de l'implémentation (IOW blâme Excel, pas VBA) et, bien que probablement déterministe et prévisible, il n'y a rien dans sa spécification qui garantit un ordre d'itération spécifique. Donc, le code VBA écrit pour itérer une collection d'objets ne doit pas être écrit avec l'hypothèse d'un ordre d'itération spécifique, car c'est quelque chose qui peut très bien changer entre les versions de la bibliothèque de types impliquée (ici Excel).

On ne sait pas très bien ce que la forme de votre Plage / Sélection est, mais si vous avez besoin d'itérer les cellules sélectionnées dans un ordre spécifique, une boucle For Each doit ne pas être utilisé, du moins pas pour itérer les cellules en soi.

Puisque les plages ne sont pas contiguës, la plage aura plusieurs zones ; vous voudrez itérer le Selection.Areas , et pour chaque zone sélectionnée, itérer les cellules dans un ordre particulier. For Each est, de loin, le moyen le plus efficace d'itérer une collection d'objets , qui est Range.Areas .

        Debug.Print area.Cells(currentRow, 1).Offset(ColumnOffset:=10).Address

Au lieu de imbriquant les boucles , créez une procédure distincte qui prend currentArea comme paramètre - qui procédure est l'endroit où vous allez itérer les cellules individuelles:

Debug.Assert TypeOf Selection Is Excel.Range

Dim currentArea As Range
For Each currentArea In Selection.Areas
    ProcessContiguousArea currentArea
Next

La boucle externe ressemble maintenant à ceci:

Private Sub ProcessContiguousArea(ByVal area As Range)
    Dim currentRow As Long
    For currentRow = 1 To area.Rows.Count
        Debug.Print area.Cells(currentRow, 1).Address
    Next
End Sub

La procédure ProcessContiguousArea est libre de faire tout ce qu'elle doit faire avec une zone contiguë donnée, en utilisant une boucle For pour itérer la plage par lignes, sans avoir à se soucier de la adresse de la zone sélectionnée: en utilisant Range.Cells (RowIndex, ColumnIndex) , la ligne 1 / colonne 1 représente la cellule en haut à gauche de cette plage, quel que soit l'emplacement de cette plage dans le w orksheet.

Les cellules non sélectionnées sont accessibles avec Range.Offset:

Debug.Assert TypeOf Selection Is Excel.Range

Dim currentArea As Range
For Each currentArea In Selection.Areas
    'todo
Next

La ligne de cellule en haut à gauche de la zone sur la feuille de calcul est renvoyée par area.Row , et la colonne de la cellule en haut à gauche de la zone sur la feuille de calcul est récupérée avec area.Column .

Non contiguë

En parcourant d'abord les lignes ( i ), vous obtiendrez la " séquence par ligne ", par exemple. A1, B1, C1, ...

Le Code

Sub NonContiguous()

    Dim i As Long
    Dim j As Long
    Dim k As Long

    With Selection
        For k = 1 To .Areas.Count
            With .Areas(k)
                For i = .Row To .Rows.Count + .Row - 1
                     For j = .Column To .Columns.Count + .Column - 1

                         Debug.Print .Parent.Cells(i, j).Address & " = " _
                                 & .Parent.Cells(i, j)

                     Next
                Next
            End With
        Next
    End With

End Sub