Coloriage Ligne

[Pol]

Bonjour à tous,

Après sélection manuelle de la cellule A1 et B60 et E98 par exemple, est il possible de pouvoir colorier simplement ou en automatique les lignes 1,60,98 ?

L'automatisation ou procédure devant fonctionner pour 3 ou 3000 cellules sélectionnées.

Merci d'avance à ceux qui se pencheront sur ma question.

Pol.

 

[Pierrot93]

Re : Coloriage Ligne

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim c As Range
For Each c In Selection
    c.EntireRow.Interior.ColorIndex = 3
Next c
End Sub

bon après midi
@+

 

[Pierrot93]

Re : Coloriage Ligne

Re,

ceci devrait fonctionner également :

Selection.EntireRow.Interior.ColorIndex = 3

 

[Pol]

Re : Coloriage Ligne

Merci beaucoup Pierrot93