Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème carte de France (départements)

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

anthoYS

XLDnaute Barbatruc
Bonsoir,

Erreur de compilation (sub ou function😕) lors du choix d'un département...
Que se passe t-il?

Code: 
[COLOR="Yellow"]Private Sub ComboBox1_Click()[/COLOR]
oter_couleur
n = Feuil4.Cells(ComboBox1.ListIndex + 3, 1)
If n = "" Then Exit Sub
If Left(n, 4) = "Dpt0" Then
n = Right(n, 1)
Else
If n = "Dpt20A" Or n = "Dpt20B" Then
n = Right(n, 3)
Else
n = Right(n, 2)
End If
End If
ActiveSheet.Shapes("Dpt" & n).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
ActiveSheet.Shapes("Text Box 95").Select
Selection.Caption = "Département :  " & Feuil4.Cells(ComboBox1.ListIndex + 3, 3) & "  " & Feuil4.Cells(ComboBox1.ListIndex + 3, 4)
ActiveSheet.Shapes("Text Box 97").Select
Selection.Caption = "Région :  " & Feuil4.Cells(ComboBox1.ListIndex + 3, 6) & "  " & Feuil4.Cells(ComboBox1.ListIndex + 3, 7)
[A1].Select
End Sub

Voilà la ligne en police jaune est celle qui est mis en évidence lors du message d'erreur.

Voir en PJ.

Fichier (cijoint.fr)
ou fichier (depositfiles.com)
 

Pièces jointes

  • messEreur.jpg
    20.8 KB · Affichages: 77
Trier par date Trier par votes
Re : Problème carte de France (départements)

Bonjour à tous,

Où est la macro Oter_Couleur() ????
Où est la feuille Feuil4 ????
Où est la feuille Feuil5 ????

A+ à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème carte de France (départements)

Re, JCGL,

Oter_Couleur()
Code: 
For n = 1 To ActiveSheet.Shapes.Count - 3
ActiveSheet.Shapes(n).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Next n
End Sub

@+

PS : j'ai en effet copier des onglets d'un autre fichier, en pensant que tout avait été exporté...
 
Vote positif 0 Vote négatif
Re : Problème carte de France (départements)

Re, JCGL,

En fait j'ai un soucis...
En copiant toutes les données (exportant vers un autre fichier -identique à celui posté au début de ce post-), plus la macro "Oter_Couleur" ; Résultat...
quand je selectionne un numéro de département il n'apparait plus en vert.
Colorier tout, ok tout se colorie quand je décolorie, problème ; voir ci-dessous :

Code: 
Errreur de compilation, membre de méthode ou de données introuvable

Dans le code
Code: 
[COLOR="Yellow"]Private Sub CommandButton2_Click()[/COLOR]
Call Oter_Couleur
Feuil5.ComboBox1.Text = ""
[L3].Select
End Sub
et
Code: 
ComboBox1
selectionné... 😕

Est-ce due à quoi?

Merci encore et à +!
 
Vote positif 0 Vote négatif
Re : Problème carte de France (départements)

Re,JCGL,

Merci pour ta réponse, j'ai tout revérifier... toujours rien.
Je ne vois pas, qu'est-ce qui manque.

Expliques moi plutôt qu'est-ce que tu as apporté à ce fichier, à part d'avoir rajouter la macro "Oter_Couleurs"...

Merci par avance, @+
 
Vote positif 0 Vote négatif
Re : Problème carte de France (départements)

Bonjour à tous,

Je n'ai absolument rien rajouter si ce n'est le code Oter_Couleur().

Pour le reste le code appelait une Feuil4. et une Feuil5. qui n'étaient pas dans le classeur (il y avait une feuille Feuil14 et une Feuil15), j'ai simplement réattribué le bon nom aux feuilles.

Il y a aussi une feuille 'Moto'...

A+ à tous
 
Vote positif 0 Vote négatif
Re : Problème carte de France (départements)

Re,

oK. Merci c'est bon JCGL. Car dans mon fichier la feuil5 est devenu la 12 et la 4, 13.
J'ai du donc modifier le code en conséquence, autant pour moi.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
705
TooFatBoy
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
441
sylvanu
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
246
mikeduff
M
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
248
nabilexcel2007
N
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
628
KRUG WOO
K
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
746
candido57
C
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
490
snoopy07
S
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
286
CortoXls
C
  • Résolu(e)
XL 2021 Combiner plusieurs macros en 1 seule fonction
2 3 4
Réponses
58
Affichages
3 K
Nicolas JACQUIN
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
834
AtTheOne
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
617
Piment
P
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
696
Nounours4173
N
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
598
oguruma
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
880
marie3107
M
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
650
piga25
P
  • Question Question
Microsoft 365 VBA insert photos
Réponses
12
Affichages
921
PHV62
P
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
540
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…