Coloriage de Carte Départements

Bonjour,

J'essaie de changer les couleurs de coloriage de la carte en PJ mais en vain..

Comment faire?

Je souhaiterais que les départements

sélectionnés seulement ( ceux répondant au critère " oui" ) soit d'une couleur ( bleu foncé) et le reste (répondant au critère "non") en gris. C

Merci

Bonjour Lauram,

• Il serait bon de préciser où se trouve l'information "sélectionnés seulement"
• il serait tout aussi intéressant de savoir quelle carte colorier

A+

Hello,

j'ai modifié le code de coloriage :

1 - Pour faire directement le test du Oui ou du Non pour colorier les départements ( Attention dans le classeur le Oui à un espace à la fin).

2 - Ne pas faire de sélection mais directement utiliser la forme

3 - Au lieu d'utiliser un schéma de couleur directement utiliser une valeur RGB :

Private Sub CommandButton1_Click()
ligne = 3
For n = 1 To 96 'ActiveSheet.Shapes.Count - 2
  y = n
  If n = 20 Then y = "20A"
  If n = 21 Then y = "20B"
  If IsNumeric(n) And n > 21 Then y = n - 1
  'Debug.Print n, Sheets("Départements").Cells(ligne + 1, 4)
  If Sheets("Départements").Cells(ligne + 1, 4) = "Oui " Then
     ActiveSheet.Shapes("Dpt" & y).Fill.ForeColor.RGB = RGB(25, 25, 255) ' bleu foncé
  Else
     ActiveSheet.Shapes("Dpt" & y).Fill.ForeColor.RGB = RGB(100, 100, 100) 'gris foncé
  End If
  ligne = ligne + 1
Next n
ComboBox1.Text = ""
[A1].Select
End Sub

Par contre il y a un mystère : l'ille et Vilaine 35(d'ailleurs mal orthographié dans les départements) devrait être en bleu.

Le Gers 32 est en bleu alors qu'il devrait être en gris.

La Somme 80 est en bleu alors qu"elle devrait être en gris.

Le Vaucluse (84) est en gris alors qu'il devrait être en bleu.

Pourtant on voit bien 12 départements en bleu pour 12 Oui.

Ami calmant, J.P

Bon ben finalement il y avait une grosse erreur dans le numérotage des départements si bien que j'ai modifié la boucle pour utiliser la colonne B qui donne le numéro de département :

Private Sub CommandButton1_Click()
ligne = 3
For n = 1 To 96 'ActiveSheet.Shapes.Count - 2
 ' Debug.Print ligne, n, Sheets("Départements").Cells(ligne + 1, 4), Sheets("Départements").Cells(ligne + 1, 2)
  y = Sheets("Départements").Cells(ligne, 2)
  If y = "2A" Then y = "20A"
  If y = "2B" Then y = "20B"
  If Left(y, 1) = "0" Then y = Right(y, 1)
  If Sheets("Départements").Cells(ligne, 4) = "Oui " Then
     ActiveSheet.Shapes("Dpt" & CStr(y)).Fill.ForeColor.RGB = RGB(25, 25, 255) ' bleu foncé
  Else
     ActiveSheet.Shapes("Dpt" & CStr(y)).Fill.ForeColor.RGB = RGB(180, 180, 180) ' gris moyen
  End If
  ligne = ligne + 1

Next n
ComboBox1.Text = ""
[A1].Select
End Sub

Bonjour,

Autre petite erreur concernant la corse:

2A = Corse du sud et 2B = Haute Corse, mais l'attribution aux cartes est inversé.

Cdlt

Bonjour à tous,

DU coup vous pourriez m'envoyer le fichier corrigé avec les bonnes coulerus vp?

Hello,

En pièce jointe un classeur qui donne les couleurs demandées avec comme correction :

1 - île et Vilaine -> Ille et Vilaine

2 - Implantation de la Haute Corse et de la Corse du sud.

Ami calmant, J.P

@jurassic pork

Merci bcp bcp!!

Comment as-tu modifié les couleurs?

Par ailleurs, penses-tu qu'il soit possible de faire apparaitre le nom des départements sélectionnés sur la carte ( en automatisé)?

et enfin de colorier les différentes régions ?

Merci

Hello,

voici une nouvelle version avec une autre carte et un autre code :

Ami calmant, J.P

Bonjour les amis;

j'ai à nouveau un bug avec la carte. J'ai sélectionné en tout 28 départements dans l'onglet Départements mais seulement 12 se colorient dans la carte .

Je crois à part ça qu'il y a un bug dans la macro car quand j'ouvre le fichier le message d''erreur suivant s'affiche : "Impossible de sortir du mode création, la commande 'commandButton1 ' ne peut être crée".

Pouvez-vous m'aider à colorier les bons départements+ à débuguer VBA?

Hello,

j'ai moi cela fonctionne, mais j'utilise un fichier xlsm :

Pourquoi ton fichier est dans un zip et en plus c'est un xls qui est un ancien format (Excel 2003) alors que d'après ton profil tu es en Excel 2021 ?

En plus on dirait que les "shapes" des départements ont été déplacées, ils ne s'imbriquent plus exactement.

En pièce jointe le classeur qui fonctionne chez moi.

Ami calmant, J.P