Probleme de VBA pour selection d'une carte

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:

---

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:

---

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

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.

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

Bonjour,

Citation:

---

Envoyé par Sake8216

Code:

---

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 !

Citation:

---

Envoyé par Sake8216

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.

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.

Citation:

---

Envoyé par Sake8216

j'ai une erreur sur cette ligne que je n'arrive pas a trouver :

Code:

---

Sheets("Carte").Shapes(Sheets("BddCarte").Cells(l, 1).Value).Fill.ForeColor.RGB = Sheets("BddCarte").Cells(l, fond).Interior.Color

---

---

Citation:

---

Envoyé par 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.

---

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:

---

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

---

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

Citation:

---

Envoyé par Sake8216

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

---

J'en doute car ta ligne ne devrait pas poser le problème
Vérifies en la remplaçant par :

Code:

---

1 2	nom = Sheets("BddCarte").Cells(l, 1).Value Sheets("Carte").Shapes(nom).Fill.ForeColor.RGB = Sheets("BddCarte").Cells(l, fond).Interior.Color

---

Quand ça bugue regarde la valeur de nom...

j'ai une erreur, mais je n'ai aucune valeur.

je viens de voir que le nom des formats commence par un "_ " avant le code insee.

aussi je n'arrive a trouver aucune colonne au nom fond

Citation:

---

Envoyé par Sake8216

j'ai une erreur, mais je n'ai aucune valeur.
aussi je n'arrive a trouver aucune colonne au nom fond

---

Lorsque le débogueur s'arrête, il donne un code d'erreur et un message explicatif (que tu n'as pas indiqué), il s'arrête sur une ligne qu'il surligne en jaune, dans la fenêtre Variables locale de l'éditeur VBA (le VBE) il y a la liste de toutes les variables, leur valeur et leur type : il y a forcement nom et sa valeur.

Si la fenêtre variables locales n'est pas affichée : Affichage / Fenêtre Variables locales.
Voir : Le débogage sous Visual Basic 6

fond n'est pas le nom d'une colonne mais son numéro qui se trouve dans la cellule CG6 de la Carte

voici le code que j'ai Pièce jointe 555496

Avant d'arriver là tu as eu un message d'erreur, lequel ?
Je répète, remplaces la ligne jaune par

Citation:

---

Envoyé par Patrice740

Vérifies en la remplaçant par :

Code:

---

1 2	nom = Sheets("BddCarte").Cells(l, 1).Value Sheets("Carte").Shapes(nom).Fill.ForeColor.RGB = Sheets("BddCarte").Cells(l, fond).Interior.Color

---

Quand ça bugue regarde la valeur de nom...

---

quand je clique sur la commune en orange sur l'onglet carte, j ai la fenêtre d'erreur qui s'ouvre et quand je clique sur debug cela ouvre le fichier excel d’origine!!! avant de pouvoir debuger le fichier V2 dans l'exemple!!
Pièce jointe 555512

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é)

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

Pièce jointe 555516

Re,

Citation:

---

Envoyé par Sake8216

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

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.

Pièce jointe 555604

Re,

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

Code:

---

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.

cela ne me donne rien

Citation:

---

Envoyé par Sake8216

cela ne me donne rien

---

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

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

Pièce jointe 555612

Le problème est là :
Pièce jointe 555620
C'est à dire que Sheets("BddCarte").Cells(l, 1).Value contient le nombre 97401 au lieu du texte 97401 !

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

Citation:

---

Envoyé par Sake8216

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:

---

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.

effectivement j'ai une valeur double, mais impossible de savoir ou elle est.


Pièce jointe 555668

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

je sais très bien et j'ai bien la bonne la valeur sur A2 a savoir 97401

Citation:

---

Envoyé par Sake8216

je sais très bien et j'ai bien la bonne la valeur sur A2 a savoir 97401

---

Il me semble que tu ne sais pas différencier si le contenu d'une cellule est un nombre ou un texte.

C'est simple, il faut mettre l'alignement horizontal sur standard et élargir suffisamment la colonne :
Pièce jointe 555720

Pour mettre le texte 97401 dans la cellule, il faut d'abord mettre la cellule au format Texte puis ressaisir le texte.
Ou encore, quel que soit le format de la cellule, dans une autre colonne saisir la formule =A2 & "" puis faire un copier et en A2 collage spécial - valeurs