Discussion :

[malabarbe]

Bonjour,
ma feuille Excel contient dans la colonne A :
Classement (ligne 1)
101 (ligne 2) etc...
102
103
301
302
401
402
403
601
602
603
604
En fonction du changement du premier chiffre de la
colonne A c'est a dire 1 pour 101 ou 3 pour 301
(le premier chiffre de la cellule)
changer la couleur de la cellule
C'est a dire de 101 a 103 les cellules en bleu
de 301 a 302 les cellules en orange
etc...
Voici ma macro qui tourne en partie

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
 
Sub couleurs()
    Range("A1").Select
coul_1 = 34
coul_2 = 44
 
n_cour = Cells(2, 1)
    n_course = Left(n_cour, 1)
    aaa = n_course
    bbb = aaa
 
For i = 2 To 33
If bbb = aaa Then
       Cells(i - 1, 1).Select
    With Selection.Interior
        .ColorIndex = coul_1
        .Pattern = xlSolid
    End With
n_cour = Cells(i, 1)
    n_course = Left(n_cour, 1)
    aaa = n_course
Else
    Cells(i - 1, 1).Select
    With Selection.Interior
        .ColorIndex = coul_2
        .Pattern = xlSolid
    End With
    n_cour = Cells(i + 1, 1)
    n_course = Left(n_cour, 1)
bbb = aaa
End If
Next i
    Range("A1").Select
End Sub

Merci de m'aider

[JackOuYA]

Bonsoir,

il faut ré-organiser ton code, d'abords tu d'aprés ce que je déchiffre tu doit par courir les lignes 2 à 33

Code :

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

1
2
3
4
 
For i = 2 to 33
..
Next

à l'intérieur de cette boucle tu dois récupérer le 1° caractére de la cellule dans colonne A

Code :

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

1
2
 
c = Left(Cells(i, 1),1)

puis toujours dans la boucle for un select case .. pour modifier la couleur de la cellule modifiée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
With Cells(i , 1)
    Select case c
 
          case "1" 
            .ColorIndex = coul_1
          case "2"
            .ColorIndex = coul_2
         end select
  ' Ici rajout des valeurs communes
    .Pattern = xlSolid
 End With

voilà pour le principe à toi de regrouper, j'ai pas excel sous la main pour vérifier .


Bonne nuit

[malabarbe]

Bonsoir, ou plutôt Bonjour,

Je ne comprends pas cette instruction :

.Pattern = xlSolid

C'est quoi ?

A te lire

[fring]

Bonjour,

La propriété Pattern définit le motif de fond de la cellule, si tu ne souhaites pas de motif particulier il n'est pas nécessaire de le préciser, par défaut la cellule n'aura pas de motif (xlSolid)

[malabarbe]

Bonsoir,

Après avoir décortiqué et compris les bouts de codes,
J'ai modifié ma macro et j'ai le résultat souhaité.

Merci a fring et a JackOuYA
pour les bons conseils

PS :
Merci au site (aux membres, ou visiteurs)
J'ai toujours résolu mes soucis a chaque post