bonjour a tous

je souhaite réduire mon code en mettant les lignes 5 à 7 en même temps.
Mais je n'y arrive pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
'macro test
ligne = Range("A1048576").End(xlUp).Row
For i = 2 To ligne
For j = 5 To 30
If Cells(i, j) < 0 Then Cells(i, j).Interior.Color = RGB(255, 255, 0)
If Cells(i, j).Interior.Color = RGB(255, 255, 0) Then Cells(i, 31) = "A REVOIR"
If Cells(i, j).Interior.Color = RGB(255, 255, 0) Then Cells(ligne + 1, j) = "X"
Next j
Next i
Un truc du genre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'macro test
ligne = Range("A1048576").End(xlUp).Row
For i = 2 To ligne
For j = 5 To 30
If Cells(i, j) < 0 Then Cells(i, j).Interior.Color = RGB(255, 255, 0) & Cells(i, 31) = "A REVOIR" & Cells(ligne + 1, j) = "X"
Next j
Next i
mais je n'y arrive pas

comment est-ce possible ?

merci de votre aide