Je cherche à faire des boucles de lignes pour chaque colonne en utilisant des requêtes FOR NEXT Ma boucle de ligne se présente comme suit : Sub boucleligne () For lig =1 to 13 if range("J" & 7 * lig + 5).value>0 then range("J" & 7 * lig + 5).interior.color = RGB(236, 32, 32) else : range("J" & 7 * lig + 5).interior.color = RGB(0,0,0) next end sub Et je voudrai faire cela pour chaque colonne en utilisant une boucle FOR NEXT en plus de celle-ci. Avez-vous une idée ...

Boucles ligne + colonne

Bonjour à tous !

je cherche à faire des boucles de lignes pour chaque colonne en utilisant des requêtes FOR NEXT

Ma boucle de ligne se présente comme suit :

Sub boucleligne ()

For lig =1 to 13

if range("J" & 7 * lig + 5).value>0 then

range("J" & 7 * lig + 5).interior.color = RGB(236, 32, 32)

else : range("J" & 7 * lig + 5).interior.color = RGB(0,0,0)

end sub

Et je voudrai faire cela pour chaque colonne en utilisant une boucle FOR NEXT en plus de celle-ci.

Avez-vous une idée ?

Bonjour,

voici un exemple,

Sub boucleLigneColonne()
 For col = 1 To 5
  For lig = 1 To 13
    MsgBox Cells(lig, col).Address
  Next lig
 Next col
End Sub