Simplification de lignes identiques

Bonjour à tous, j'aurai une question qui parait simple mais tout ce que j'ai essayé ne marche pas...

comment simplifier ces lignes en une seule

dim ligPlein2 as long

ligPlein2 = Sheets("Sorties").Range("B" & Rows.Count).End(xlUp).Row + 2

Cells(ligPlein2, "G").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "H").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "I").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "J").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "K").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "L").Interior.Color = RGB(160, 192, 128)
Cells(ligPlein2, "M").Interior.Color = RGB(160, 192, 128)

merci beaucoup

Bonjour,

On peut simplifier en passant par un Range:

Dim ligPlein2 As Long

ligPlein2 = Sheets("Sorties").Range("B" & Rows.Count).End(xlUp).Row + 2

Range("g" & ligPlein2, "m" & ligPlein2).Interior.Color = RGB(160, 192, 128)

Bonjour,

j'apprends quelque chose aujourd'hui !
Pour moi il fallait écrire : Range("g" & ligPlein2 & ":m" & ligPlein2).Interior.Color = RGB(160, 192, 128)
vu que c'est une plage je concatène avec les ":", mais la virgule suffit, c'est autant plus simple ! Merci Ausecour !

@ bientôt

LouReeD

Bonjour,

apprends quelque chose aujourd'hui !
Pour moi il fallait écrire : Range("g" & ligPlein2 & ":m" & ligPlein2).Interior.Color = RGB(160, 192, 128)
vu que c'est une plage je concatène avec les ":", mais la virgule suffit, c'est autant plus simple ! Merci Ausecour !

@ bientôt

LouReeD

De rien! content d'avoir pu vous apprendre quelque chose!

Merci beaucoup !

c'est encore pas très intuitif pour moi mais ça va venir avec le temps,... enfin je l'espère

Bonjour à tous,

autre écriture possible : Cells(ligPlein2, "G").resize(,7).Interior.Color = RGB(160, 192, 128)
eric

Et oui le resize ! je n'en aie pas encore le réflexe !

Bonjour eriiic!

@ bientôt

LouReeD

Rechercher des sujets similaires à "simplification lignes identiques"