Copier uniquement les Couleurs de fond des cellules sur Excel 2007 [Résolu]

[fherolvera]

Bonjour à tous(tes),
Je dispose d'un tableau Excel et je souhaite copier les couleurs de fond des cellules à savoir :
Je dispose par exemple d'une plage de cellules ''A1-Q1'' dont je souhaiterai reproduire les couleurs sur les 12 lignes en dessous, ou si préferez : recopier sur les 12 lignes du dessous juste les couleurs de fond.
J'ai essayé avec ''mise en forme conditionnelle'' mais ça ne fonctionne pas. Alors est il possible de développer une macro pour que la tache puisse être automatisée?

Merci par avance
Fher

[Jean-Pierre49]

Bonjour

Quelque chose comme

Code :

1
2
3
4
5
6
7
8
Dim CompA As Byte
Dim CompB As Byte
 
For CompA = 2 To 12
    For CompB = 1 To 17
        Cells(CompA, CompB).Interior.ColorIndex = Cells(CompA - 1, CompB).Interior.ColorIndex
    Next CompB
Next CompA

Tu dis

Bon courage

[fherolvera]

Merci Jean-Pierre,
C'est exactement ce que je voulais faire.
J'ai adapté la Macro mais ta base est super

Merci Beaucoup

[mercatog]

Bonsoir
Pour économiser une boucle, on peut travailler colonne par colonne (pour cette exemple le temps d’exécution n'est pas visible mais tant mieux, il faudrait avoir le reflexe d'optimiser les boucles)
Une autre remarque, il faudrait aussi préfixer les Range et Cells par leur feuille mère (et aussi avec le classeur grand père au cas où on travaille avec plusieurs classeurs). Un adressage complet évite toujours de mauvaise surprises.

Code :

1
2
3
4
5
6
7
8
9
Sub Test()
Dim i As Byte
 
With Worksheets("Feuil1")
    For i = 1 To 17
        .Range(.Cells(2, i), .Cells(12, i)).Interior.Color = .Cells(1, i).Interior.Color
    Next i
End With
End Sub

[Jean-Pierre49]

Bonjour mercatog

Je suis d’accord sur tes remarques

Mais j’ai une remarque sur le résultat de ton code

Si une cellule sur la ligne 1 une cellule avec

Code :

.Interior.ColorIndex = xlNone

Ton code lui donne

Code :

.Interior.ColorIndex = 2

Sur les lignes suivantes

En tout cas chez moi
Ce qui, je suis d’accord, est surprenant
Nota : Je suis sur Excel 2003

Cordialement

Bonne journée

[mercatog]

Bonjour Jean Pierre.
Mon intervention était pour arriver au résultat avec une seule boucle au lieu de 2.

Code :

1
2
3
4
5
6
7
8
9
Sub Test()
Dim i As Byte
 
With Worksheets("Feuil1")
    For i = 1 To 17
        .Range(.Cells(2, i), .Cells(12, i)).Interior.ColorIndex = .Cells(1, i).Interior.ColorIndex
    Next i
End With
End Sub