Changer couleur de colonnes en vba

[fenec]

Bonsoir le forum

Besoin de votre aide pour un truc sans doute simple mais sur lequel je coince

J’essai en vain d’écrire un bout de code pour modifier la couleur de différente colonnes
Mais je rencontre deux problèmes

1 - Quand j’enlève la couleur les bordures s’effacent aussi

2 – Comment ne pas écrire deux lignes si même couleur

Cordialement

Fenec

 

[Yaloo]

Re : Changer couleur de colonnes en vba

Bonsoir Fenec,

Personnellement je n'ai pas compris ta demande.

Peut être avec plus d'explication ....

A te relire

Martial

 

[fenec]

Re : Changer couleur de colonnes en vba

Bonjour le forum,Yaloo

Pour essayer d’être plus clair suis-je obligé d’écrire ces deux lignes vu que c’est la même couleur :

.Range("C4:C" & derligne).Interior.ColorIndex = 10
       .Range("L4:M" & derligne).Interior.ColorIndex = 10

J’ai essayé d’indiquer les deux plages mais ca ne fonctionne pas

.Range("C4:C, L4:M" & derligne).Interior.ColorIndex = 10

Cordialement

Philippe

 

[Yaloo]

Re : Changer couleur de colonnes en vba

Bonsoir fenec, le forum,

A mon avis il faut écrire les 2 lignes, ça, ça ne me dérange pas.

Par contre, pourquoi fais-tu une boucle pour "repasser" sur les cellules déjà colorisées ?

A+

 

[JCGL]

Re : Changer couleur de colonnes en vba

Bonjour à tous,

Peux-tu essayer :

Sub modifier_couleur()    With ActiveSheet
        .Range("H4:I36").Interior.ColorIndex = xlNone
        Union(.Range("C4:C36"), .Range("L4:M36")).Interior.ColorIndex = 10
    End With
End Sub

A + à tous