Discussion :

[Sake8216]

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

[Sake8216]

je viens de résoudre mon second problème,

mais je n'arrive toujours pas a rendre ma seconde carte cliquable comme l'ancienne , pourtant j'ai changé juste la carte.

[Sake8216]

bonjour a tous,
je relance cette question, afin de savoir si une âme peut me venir en aide?

[Patrice740]

Le problème est là :

C'est à dire que Sheets("BddCarte").Cells(l, 1).Value contient le nombre 97401 au lieu du texte 97401 !

[Sake8216]

je viens de changer en format texte est j'ai le même message

[Patrice740]

je viens de changer en format texte est j'ai le même message

C'est pas suffisant, regardes la variable locale.
La preuve :

Code :

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

1
2
3
Sub test()
  MsgBox Sheets("BddCarte").Cells(2, 1).Value & " est une variable de type " & TypeName(Sheets("BddCarte").Cells(2, 1).Value)
End Sub

Il faut aussi changer la valeur.

[Menhir]

mais je n'arrive toujours pas a rendre ma seconde carte cliquable comme l'ancienne , pourtant j'ai changé juste la carte.

Sans doute as-tu aussi changé de nom.

Cela dit, tu ne donnes pas assez d'explications sur ton problème pour qu'il soit possible de le comprendre. C'est sans doute pourquoi tu n'as pas de réponses.

[Sake8216]

j'ai adapté un fichier reporting avec une vision de données sur une carte sous excel (onglet carte) , j'ai remplacé la carte initiale par une autre carte d'un autre département, afin d'applique ce reporting aux communes de cette dernière.

Sur la première carte on pouvait cliquer sur une commune et le code insee de la commune s'affiche sur la cellule BW20. et en fonction du filtre BW6, la carte se colorie en fonction des données BBDCARTE


j'ai changé les données et la carte, mais je n'arrive pas a faire apparaitre les données sur la carte ni changer de couleur ni cliquer sur la carte.

[Patrice740]

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

j'ai adapté un fichier reporting avec une vision de données sur une carte sous excel (onglet carte) , j'ai remplacé la carte initiale par une autre carte d'un autre département, afin d'applique ce reporting aux communes de cette dernière.

Vu que tu as changé le carte, la première chose à vérifier, c'est que les formes cherchées existent dans la carte (celles de la feuille BddCarte existent dans la feuille Carte) :

Code :

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

1
2
3
4
5
6
Sub ListeFormes()
Dim shp As Shape
  For Each shp In Worksheets("Carte").Shapes
    Debug.Print shp.Name
  Next
End Sub

[Sake8216]

oui j'ai bien changé les noms des formes ils sont bien dans bddcarte et dans la carte

[Patrice740]

re,

Il faudrait prendre le temps de comprendre une simple ligne de code !

Tu ne sais pas où se trouve Sheets("BddCarte").Cells(2, 1).Value ????
C'est la cellule à l'intersection de la 2ème ligne et de la 1ère colonne, c'est-à-dire A2, de la feuille BddCarte !!!!!!!

[Patrice740]

Bonjour,

Code :

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

1
2
3
4
'...
fond = Sheets("Carte").Cells(6, 85).Value
'...
Sheets("Carte").Shapes(Sheets("BddCarte").Cells(l, 1).Value).Fill.ForeColor.RGB = Sheets("BddCarte").Cells(l, fond).Interior.Color

Assez surprenant comme code, fond est donc un numéro de colonne !

[Patrice740]

Je n'ai pas ouvert ton fichier (je n'ouvre par les fichiers avec macro).
Il semblerait que quand tu cliques, tu lances une macro située dans ton fichier d'origine, ce qui a pour effet de l'ouvrir.
Il faudrait voir quelle est la macro affectée à l'objet sur lequel tu cliques.

Si on s'en tient à la macro Sub Carte, que se passe-t'il si tu l'exécutes de puis le VBE (avec le fichier d'origine fermé)

[Sake8216]

voici ce que j'ai, (le fichier d’origine s'ouvre toujours)

[Patrice740]

Re,

...le fichier d’origine s'ouvre toujours

Comment c'est possible ?
Si ton fichier est ouvert, le fichier d'origine fermé, et que lances la macro depuis le VBE (i.e. sans passer par Excel), il n'y a aucune instruction qui ouvre le fichier d'origine !

Places un point d'arrêt sur la première instruction (fond = Sheets...), lances la macro : elle s'arrête sur le point d'arrêt.
Continue en pas à pas (F8) jusqu'à ce que le fichier d'origine s'ouvre, quelle est la ligne qui provoque l'ouverture ?

[Sake8216]

avec cette méthode le fichier d'origine ne s'ouvre pas. et je ne peux pas aller plus loin que la ligne en jaune.

[Patrice740]

Re,

Pour confirmer ce que je te dis depuis le début, ajoutes ce test et exécutes le depuis le VBE :

Code :

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

1
2
3
4
5
6
7
8
9
Sub TestPresenceForme()
Dim shp As Shape
Dim nom
  nom = 97401
  On Error Resume Next
  Set shp = Worksheets("Carte").Shapes(nom)
  On Error GoTo 0
  If shp Is Nothing Then MsgBox "La forme " & nom & " n'existe pas !", vbCritical
End Sub

EDIT : c'est normal vu que nom est typé Variant/Double (au lieu de String)

Ce deviens lassant de répéter sans cesse qu'il faut toujours commencer chaque module par Option Explicit.

[Sake8216]

cela ne me donne rien

[Patrice740]

cela ne me donne rien

J'ai modifié le post précédent, lis-le et recommences

[Sake8216]

j'ai bien le message Box disant que la forme n'existe pas et pourtant elle existe .