For Each in Range: Range spécial

Bonjour à tous !

Je ne savais pas trop comment appeler ce sujet et c'est bien ce qui me bloque pour effectuer un recherche pousser sur internet et évité un sujet inutile... Je me lance donc.

J'ai besoin d'effectuer un test sur un tableau pour affecter une couleur à la cellule. Pour cela, c'est sans aucun soucis, j'utilise:

For Each Cells In [Range]

...

Next

Le problème est que cela fonctionne quand le [Range] est continu.

Dans le cas présent, je veux, dans un tableau dynamique "N7:AX30" (AX et 30 étant ici fixe, mais variable dans mon code) ne faire la boucle que sur une cellule sur 3, que ce soit à l'horizontale ou à la verticale...

(Pour l'analogie, c'est comme un quadrillage de jeu d'échecs: je voudrais une range sur toutes les cases noires...).

Autant un For i = 0 to N Step 3, c'est facile, autant pour quadriller, je ne sais pas comment faire...

Une idée pour que je puisse avancer?

(En attendant une réponse que j'espère simple - Genre une fonction existante - je vais me lancer dans un double for: i pour les horizontales, j pour les verticales).

Vincent

Bonjour Vbpix.

Comme tu dis avec un

For i = 0 To N step 3

c'est très simple, pourquoi ne pas faire comme ça ?

Salut !

J'espérais un range avec un seule ligne.

J'en suis rendu à ce que j'imaginais, et ce que tu me confirmes J'ai fait ceci:

    For Horizontale = 7 To DerniereLigneWs_Bdd Step 3
        For Verticale = DerniereCellsWs_Bdd To 17 Step -3

            ' Traitement

        Next Verticale
    Next Horizontale

(Pour être 100% transparent, j'y ai pensé en écrivant le sujet...)

Vincent

Ne connaissant pas tes variables, je ne peux pas te dire exactement, mais le principe est bon.

Tu peux également écrire :

Next Verticale, Horizontale