Bonjour à tous,
je suis en train d’adapter un ancien fichier avec carte de paris et ma région, j'ai tout modifier même la carte, et j'ai deux problèmes,

1 - ma carte n'est plus cliquable
2 - j'ai une erreur sur cette ligne que je n'arrive pas a trouver :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Carte").Shapes(Sheets("BddCarte").Cells(l, 1).Value).Fill.ForeColor.RGB = Sheets("BddCarte").Cells(l, fond).Interior.Color

voici le début de 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
Public ancienne_couleur, ancienne_forme
Sub carte()
 
'Copie la couleur de la case de la feuille Données dans la forme ayant pour nom en première colonne
fond = Sheets("Carte").Cells(6, 85).Value
contour = Sheets("BddCarte").Cells(2, 57).Value
contour_ep = Sheets("BddCarte").Cells(3, 55).Value
l = 1
 
Do
l = l + 1
    Sheets("Carte").Shapes(Sheets("BddCarte").Cells(l, 1).Value).Fill.ForeColor.RGB = Sheets("BddCarte").Cells(l, fond).Interior.Color
    Sheets("Carte").Shapes(Sheets("BddCarte").Cells(l, 1).Value).Line.ForeColor.RGB = Sheets("BddCarte").Cells(l, contour).Interior.Color
    'épaisseur
    Sheets("Carte").Shapes(Sheets("BddCarte").Cells(l, 1).Value).Line.Weight = contour_ep
 
Loop Until Sheets("BddCarte").Cells(l + 1, 1).Value = ""
Un grand merci pour votre aide.

Sam