[XL-2007] probleme de macros [Résolu]

[chris09300]

Bonsoir
Je suis sur excel 2007
j'ai une feuille avec des donnees en U3 a U64 et dans A6 a S16
je souhaiterais lorsque verifier les donnees dans U3 a U67 ont une couleur remplir le tableau avec les couleurs trouvees dans U3 a U67
ex: si U3 = couleur jaune voir dans le tableau la cellule avec la meme donnee et lui attribue la couleur jaune.

ex: A3 contenu (7102), couleur jaune, et voir dans tableau (7102) et lui mettre la meme couleur.
fichier joint.
merci
cris

[orpheu]

Bonjour Chris,

Tel que tu présentes la question cela me semble assez facile:
sur une action (à définir: bouton, touche fonction,etc.) boucler sur chaque ligne de la plage et, à chaque fois, rechercher la valeur dans le tableau de référence, puis reporter la couleur trouvée en utilisant cells.interior.colorindex, par exemple.

Avant de te donner un code précis, il faudrait plus de précision car, en regardant l'exemple donné (fichier xlsm) je ne vois aucune couleur dans la plage A6:S16, et en plus des valeurs qui n'ont pas l'air de correspondre (ex: "Accueil")

Peux tu préciser une peu mieux ce que tu demandes :
- ou se trouvent les couleurs à reporter
- s'agit_il de la couleur de fond ou de celle du texte ?
- dans quelle condition lancer la procédure ?

[chris09300]

J'ai remis mon fichier avec des couleurs
ex: dans le tableau des cellules sont de couleurs differentes, je souhaterais ex,
la cel U3 avec comme valeur 7101 en jaune que dans la zone a gauche ou il y a des cellules encadrees que celle ou se trouve 7101 soit mise en couleur jaune, et idem pour les autres cellules de U3 a U67.
cela me permettrais de verifier les cases non colorisees
j'attribuerais un bouton a ce code.
me suis je mieux explique.
cris

[orpheu]

Le principe est donc, pour chaque case de la place A6:S16, de rechercher sa valeur dans la colonne U et, si on trouve, de reporter la couleur de fond dans la cellule en question...

Je te propose un exemple de code

Code :

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
 
Sub MarqueCouleurs()
Dim NBH As Integer
Dim TH As Variant
Dim c As Range
 
' Mise en mémoire dans un tableau des valeurs à tester
' uniquement pour accélérer la boucle de recherche
' Attention c'est un tableau à deux dimensions (67,1)
TH = Range("U1:U67")
NBH = 67
 
 
' on explore toutes les cellules de la plage A6:S16
For Each c In Range("A6:S16")
    ' on se limite aux cellules non vides
    If c.Value <> "" Then
        'Recherche de la valeur dans le tableau TH
        For i = 3 To NBH
            If TH(i, 1) = c.Value Then
                ' on a trouvé la valeur de la cellule c
                ' on reporte la couleur de fond
                c.Interior.ColorIndex = Cells(i, 21).Interior.ColorIndex
                Exit For
            End If
        Next
    End If
Next
 
End Sub

J'espère t'avoir aidé...

[chris09300]

merci c'est exactement ce que cherchais.
a plus
cris