Code VBA pour Carte interactive

MounirM -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Pourriez-vous m'aider à résoudre ce problème? le code semble correct, mais il y a un blocage quelque part, car en affectant la macro à une des formes de la carte, et en appuyant dessus une erreur s'affiche. au niveau de la ligne suivante qui s'affiche en jaune [Shape.Fill.ForeColor.RGB = RGB(0, 0, 200)].
Merci d'avance 

Option Explicit
'Procédure permettant de rendre interactive la carte géographique
'constituée de zones de textes
'**********************************
Sub CarteInteractive()

'déclaration des variables
Dim NomShape As String
Dim Shape
'propriété Caller : permettre d'afficher la manière dont VB est appelé
NomShape = Application.Caller
'mise en couleur de la carte de Tunisie
For Each Shape In ActiveSheet.Shapes 'pour chacune des formes de la feuille active
Shape.Fill.ForeColor.RGB = RGB(0, 0, 200)
'on applique une couleur bleue à la forme
Next Shape
' on affecte une couleur lorsque la forme est sélectionnée
ActiveSheet.Shapes(NomShape).Fill.ForeColor.RGB = RGB(0, 150, 0) 'couleur verte

End Sub



A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonsoir, "une erreur s'affiche", avec quel message?
0
MounirMahmoudi Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
merci de m'avoir répondu.
Le msg qui s'affiche est le suivant:
erreur d’exécution '-2147024809 (80070057)'
la valeur tapée est en dehors des limites.
Autre précision, la couleur des formes change en bleu, et vers toute autre couleur en modifiant les chiffres correspondants, sauf que le programme s'arrête à ce niveau là, et le msg s'affiche tjrs à chaque fois que je clique sur la forme.
Je pourrai si vous êtes d'accord vous poster le fichier.
Merci de votre aide.
Mounir
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > MounirMahmoudi Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
je suspecte qu'une des Shape n'est pas comme les autres.
bonne idée de partager ton fichier.
0
MounirMahmoudi Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Salut,
D'accord, et comment dois-je faire pour le poster, avez-vous une adresse mail ou autre alternative?
Merci
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > MounirMahmoudi Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
tu publies ton fichier sur internet (google drive, cjoint.com, ...), et tu copies ici le lien vers le fichier.
0
MounirMahmoudi Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Salut
ci-joint le lien du fichier.
Merci d'avance.
https://drive.google.com/open?id=1Knr4cJFbTY6WCZ6iYcoopJ9kDasOQErt
0