Problème carte de France (départements)

[anthoYS]

Bonsoir,

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

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

 

[JCGL]

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

 

[JCGL]

Re : Problème carte de France (départements)

Bonjour à tous,

Les feuilles sont renommées mais je n'ai pas le code de Oter_Couleur()

A+ à tous

 

[anthoYS]

Re : Problème carte de France (départements)

Re, JCGL,

Oter_Couleur()

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

 

[JCGL]

Re : Problème carte de France (départements)

Bonjour à tous,

Et comme ça ?

A+ à tous

 

[anthoYS]

Re : Problème carte de France (départements)

Bonjour,

Merci JCGL, c'est oK.

 

[anthoYS]

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 :

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

Dans le code

[COLOR="Yellow"]Private Sub CommandButton2_Click()[/COLOR]
Call Oter_Couleur
Feuil5.ComboBox1.Text = ""
[L3].Select
End Sub

et

ComboBox1

selectionné... 😕

Est-ce due à quoi?

Merci encore et à +!

 

[JCGL]

Re : Problème carte de France (départements)

Bonjour à tous,

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

Tu as du oublier un bout de code ou une feuille...

A+ à tous

 

[anthoYS]

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, @+

 

[JCGL]

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

 

[anthoYS]

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.