Discussion :

[anasleco]

Bonjour,

Je travail sur une macro qui permet de colorier des objets (une carte d'un pays composée de 16 régions), selon une échelle donnée. j'ai pu appliquer la macro sur la carte quand elle est sur la même feuil de travail que le tableau source; mais une fois j'essaye de l'appliquer sur la même carte mais sur une autre feuil de travail (en changeant le code bien évidemment) cela bloque.

Voici le code que j'utilise

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 CouleurPC()
    
    Dim numDep As Integer
    Dim PC As Double
    
    Worksheets("Mois").Select
    
    For numDep = 1 To 16
    
        PC = WorksheetFunction.VLookup(numDep, Range("C6:H21"), 6, False)
        
        If PC >= Cells(38, 12).Value Then
            valcouleur = Cells(38, 12).Interior.Color
        ElseIf PC > Cells(39, 12).Value Then
            valcouleur = Cells(39, 12).Interior.Color
        ElseIf PC > Cells(40, 12).Value Then
            valcouleur = Cells(40, 12).Interior.Color
        ElseIf PC > Cells(41, 12).Value Then
            valcouleur = Cells(41, 12).Interior.Color
        ElseIf PC > Cells(42, 12).Value Then
            valcouleur = Cells(42, 12).Interior.Color
        Else
            valcouleur = Cells(43, 12).Interior.Color
        End If
        
        Application.Worksheets("Fiche sign.").Shapes("Ré" & Format(numDep, "00")).Select
        
        Selection.ShapeRange.Fill.ForeColor.RGB = valcouleur
            
    Next numDep
       
    Range("F25").Select
    
End Sub

Le code se bloque au niveau de la ligne mis en rouge.

Je vous pris de m'aider si une erreur est claire.

Merci.

[Fvandermeulen]

Salut,
Il y a plusieurs soucis dans ton code mais le principal est que

Code :

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

valcouleur = Cells(38, 12).Interior.Color

ne va pas te renvoyer le numéro attendu, la bonne syntaxe est

Code :

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

valcouleur = Cells(38, 12).Interior.ColorIndex

Ensuite la méthode RGB ne fonctionne pas comme la ColorIndex, RGB attend 3 argument pour "créer" la couleur, alors que Colorindex ou schemecolor fonctionne avec un numérod de référence.

Il te reste à trouver la correspondance entre le colorindex et schemecolor.

Bonne continuation.

A+

[anasleco]

Merci fréderic pour votre aide, en fait ce que je devais modifier c'est ajouter juste après EndIf

Worksheets("Fiche sign.").Select

Je vous remercie encore pour votre aide.