Discussion :

[Kestion100]

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

[parmi]

Bonjour,

J'ai de la difficulté à te suivre, mais peut-être ainsi, si j'ai bien compris... (?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Dim I As Long, J As Long
 
    For J = 4 To 119  'boucle les colonnes
        For I = 6 To 29  'boucle les lignes
            If Cells(I, J) = Range("A" & I) Then
                Cells(1, J).Interior.ColorIndex = Range("C" & I).Value
            End If
        Next
    Next

[Kestion100]

Pour l'instant, je ne peux tester ta réponse mais je pense que tu as bien saisi le problème, en revanche, j'ai réglé le problème de mon code ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=

une valeur ne tourne pas en boucle, j'ai corrigé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<=

..... qui fonctionne beaucoup mieux!!!