Discussion :

[Kestion100]

Bonjour,
Je souhaiterais effectuer une boucle test sur des valeurs de cellules mais je voudrais que les cellules soient d'abord balayées colonne par colonne:

for each c in range ...A1; A2;A3;....B1; b2; B3;....C...D...

Est-ce possible?

Merci du coup de main!!

[joe.levrai]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
Dim i As Long, j As Long
    For i = 1 To 10  ' les colonnes
        For j = 1 To 10  ' les lignes
            Cells(j, i).Value = i + j  'pour l'exemple
        Next j
    Next i
End Sub

[Kestion100]

Ok, apparemment il faut toujours décomposer en 2 boucle, impossible de configurer for each cell à la verticale puis à l'horizontale.

Merci

[fraflt69]

Bonjour

Avec une seule boucle comme vous le présentiez en utilisant Union : https://learn.microsoft.com/fr-fr/of...lication.union

[fraflt69]

Bonjour

Avec une seule boucle comme vous le'envisagiez en utilisant Union : https://learn.microsoft.com/fr-fr/of...lication.union