Discussion :

[AugustinS]

Bonjour,
Débutant sur VBA, je cherche à créer une carte interactive des départements où ils prendront une couleur en fonction d'une valeur.
Je m'entraîne sur un cas à deux shapes.

Voilà mon code

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
Sub ColorierCarte()
Dim Shp As Shape, nm As String, vl As Double
For Each Shp In Sheets("Feuil1").Shapes
nm = Shp.Name
 
If Not IsError(Application.Match(nm, Sheets("Feuil1").Range("A:A"), 0)) Then
vl = Application.Index(Sheets("Feuil1").Range("B:B"), 0)
 
Application.Match(nm, Sheets("Feuil1").Range("A:A"), 0)
 
Select Case vl
Case Is <= 50: Shp.OLEFormat.Object.Interior.Color = RGB(255, 0, 0)
Case Is > 50: Shp.OLEFormat.Object.Interior.Color = RGB(0, 0, 255)
End Select
Next
 
    Sheets("Feuil1").Select
    ActiveSheet.Shapes.Range(Array("forme1")).Select
End Sub

La ligne Application.Match(nm, Sheets("Feuil1").Range("A:A"), 0) me renvoie une erreur de syntaxe et je ne trouve pas de solution.
Quelqu'un a une idée ?

Merci !

[jerome.vaussenat]

Salut,

C'est dommage tu n'indiques pas ta version d'Excel.

Avec Excel 365 et ses mises à jour régulières, tu as une nouvelle forme de graphique sous forme de carte géographique ...et couleur et tout ...

[AugustinS]

Bonjour Jérôme,
Excuse cet oubli, il s'agit de excel 2013 !

[patricktoulon]

re
essaie plutot Sheets("Feuil1").Range("A:A").value que l'on soit bien dans un tableau et non un range

la ligne 9 elle sert a quoi???


d'autant plus que :
ton select case sur vl c'est quoi???????
vl est un tableau
on peu pas tester un tableau avec >50 c'est pas possible
perso je vois ce que tu veux faire match n'est pas la solution car tu n'obtien pas la cellule trouvée
find c'est mieux

Code :

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

1
2
c set =columns(1).find(what:=nm,lookin:=xlvalues)' bien qu'ici on pourrait determiner le range utisisé a la place de columns(1)
if  not c is nothing then macouleur=c.offset(0,1).value