Discussion :

[chipster62]

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

[eriiic]

Bonjour,

? En quoi ça le réduirait ?
Tout ce que ça fera c'est le rendre moins lisible, le mieux est l'ennemi du bien...
Sinon pour mettre plusieurs instructions sur une ligne il faut les séparer par :
intruction1 : instruction2 : etc

A la limite tu peux grouper les 6 et 7 puisque c'est le même test et que ça ne donne pas une longueur imbuvable à lire :

Code :

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

If Cells(i, j).Interior.Color = RGB(255, 255, 0) Then Cells(i, 31) = "A REVOIR": Cells(ligne + 1, j) = "X"

Et, si ça correspond à ton besoin (pas d'autre lignes déjà colorées que tu devrais traiter), tu peux remplacer le test :

Code :

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

1
2
3
If Cells(i, j).Interior.Color = RGB(255, 255, 0)
' par
If Cells(i, j) < 0

Donc avec la même condition qu'au-dessus (pas d'autre lignes déjà colorées que tu devrais traiter), les 3 tests étant identiques ça deviendrait :

Code :

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

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"

eric

[chipster62]

merci beaucoup cela fonctionne en fusionnant les 3 lignes
je ne connaissais pas le :

[Menhir]

je ne connaissais pas le :

C'est à utiliser avec BEAUCOUP de modération et uniquement dans des cas qui le justifie VRAIMENT.
Parce qu'il n'y a rien de tel pour rendre un code illisible.

[chipster62]

Pas de problème.
La c'est parce que je dois casser ma variable J et mettre des conditions pour chaque colonne

[Menhir]

Rien n'empêche de l'écrire :

Code :

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

1
2
3
4
5
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"
End If

[chipster62]

L'écrire OK avant mon code fonctionné avec la même condition pour chaque colonne mais depuis peu chaque colonne peut avoir une condition différente :

Code :

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

1
2
3
4
If Cells(i, 6) < 0
If cells (i, 7) or Cells(i, 7) > 4
If Cells(i, 8) <> ""
etc....

C'est pour cette raison que je voulais regrouper certains résultats (en then)

car gagner 2 lignes sur 25 colonnes dans un code cela se prend.

[eriiic]

Il faut quand même privilégier la facilité de lecture qui donne une compréhension plus rapide quand tu (ou un autre) te replonges dedans 6 mois plus tard.