Bonjour,
Je m'arrache les cheveux:

Sur une feuille de calculs, de A6 à A29, j'ai une série de données, disons:

A
B
C
D
.
.
.

De D1 à DR1, j'ai une série de données contenant les données de A6 à A29 (A; B; C;....

D1 = hgshAsdifhjgj E1 = pcuivuipBazgfuazu F1 = dzkfhCiopeazupeioa


Je cherche à colorer les cellules D1 à DR1 de façon identique à A6 à A29.


Je passe par:

de C6 à C29:
le code couleur de la cellule correspondante de A6 à A29;

de D4 à DR4: A; B; C;...isolés des cellules de D1 à DR4.


Je cherche donc un code sous forme de boucle qui me colore (par exemple) D1 de la même couleur (en C6) que A6 si A6=D4.

Voici le code que j'ai développé et qui fonctionne pour cet exemple mais pas pour la suite Di Aj:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub MEFC()
'
' MEFC Macro
'
 
'
 
Sheets("STATS").Select
Dim i As Integer, j As Integer
 
 
Application.ScreenUpdating = False
 
i = 6
Do
j = 4
Do
 
    If Cells(4, j).Value = Range("" & "A" & i & "").Value Then
 
    Cells(1, j).Interior.ColorIndex = Range("" & "C" & i & "").Value
 
 
  Else
        Cells(1, j).Interior.ColorIndex = xlColorIndexAutomatic
 End If
 j = j + 1
 
 Loop While j = 119
 
 i = i + 1
Loop While i = 29
 
 
Application.ScreenUpdating = True
 
 
   End Sub
Je tourne en rond à peu de chose près me semble-t-il, si quelqu'un peut me sortir de la pelote, MERCI