Erreur de synthaxe avec fonction application.match

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:

---

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 !

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 ...

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

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:

---

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

---