[Toutes versions] Code VBA pour affichage objet couleur selon critère

Bonjour,

je n'arrive pas résoudre une question: rendre dynamique (couleur notamment) une carte de France avec les départements. j'ai une erreur à partir de la sélection des départements.
Merci+++ de votre précieuse aide

le code utilisé est:

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
31
32
33
34
35
 
' Mapcolor Macro
Sub Mapcolor()
 
'déclaration des variables
Dim i As Integer
Dim RegMax As Integer
 
'Affectation des variables
RegMax = WorksheetFunction.CountA(Sheets("calcul").Range("A:A")) + 1
RangeDept = Range("actDept").Value
 
'Boucle permettant de récupérer les différents départements
For i = 4 To RegMax
 
    'récupère les noms des départements dans une zone nommée
    Range("actDept").Value = Range("Calcul!A" & i).Value
 
     'sélectionne chacun des départements  de la carte (Formes/Shapes) ayant le même nom
     ActiveSheet.Shapes(Range("actDept")).Select     
 
    'affecte une couleur à la forme sélectionnée en fonction du critère défini
    Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actDeptCode").Value).Interior.Color
 
 
 
 
Next i
 
'positionne en K2 au niveau de la list box
Range("K2").Select
 
 
 
End Sub