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

Microsoft 365 Carte de france Dynamique

P

pascaleg80

XLDnaute Nouveau
Bonjour, je souhaite créer une carte de France avec des codes couleurs par département en fonction d'un pourcentage d'atteinte. Quelqu'un peut il m'aider s'il vous plait?
Si je dois résumer, si un département à un %tage d'atteinte d'objectif inf à 80% = Rouge/ entre 80 et 90% (non inclus) = orange et au dela vert/ Si pas de %tage de renseigné, laisser le dép sans couleur.
Ci-joint un fichier pour comprendre ma demande.

Merci par avance et bonne semaine à toutes et tous
 

Pièces jointes

  • Carte de france.xlsx
    10 KB · Affichages: 109
Trier par date Trier par votes

Dudu2

XLDnaute Barbatruc
Bonjour Job75,
Elle est très bien ta solution. L'échelle des couleurs est transposée dans des MFC ce qui la rend originale et ingénieuse avec l'utilisation de DisplayFormat pour récupérer la couleur intégrant l'action des MFC.
D.
 
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
Job, elle n'a peut-être pas réalisé à l'ouverture de ton classeur que tu avais finalisé une solution.
Moi-même, lorsque je t'ai fait la remarque sur la carte, je n'ai pas compris que sur l'autre feuille la carte était colorisée selon les données. En lecture rapide je n'ai pas vu le commentaire en haut. Je cherchais un bouton ou un truc du genre.
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bonjour @Dudu2 , @job75
@job75 je te propose de faire un tout petit ajout a ton modèle c'est la compatibilité avec 2007
c'est pas grand chose mais ca peut servir
VB: 
Option Explicit

Private Sub Worksheet_Activate()
    Dim s As Shape, c As Range
    Application.ScreenUpdating = False
    '---RAZ---
    For Each s In Shapes
        s.Fill.ForeColor.RGB = vbWhite
    Next
    '---Couleur---
    On Error Resume Next
    For Each c In Feuil1.PivotTables(1).TableRange1.Columns(1).Cells
        Set s = Nothing
        Set s = Shapes("FR-" & IIf(IsNumeric(c), Format(c, "00"), c))
        '===============================================================
        'version Excel superieure à 2007
        If Val(Application.Version) > 12 Then
            s.Fill.ForeColor.RGB = c(1, 5).DisplayFormat.Interior.Color
        Else
            ' et pour excel 2007 <<"fonctionne aussi avec les versions superieures>>"
            s.Fill.ForeColor.RGB = GetConditionColor2007(c(1, 5))
        End If
        '=============================================================
    Next
End Sub
Function GetConditionColor2007(cel)
    Select Case True
    Case cel > 94 / 100: GetConditionColor2007 = Feuil1.Range("E:E").FormatConditions(1).Interior.Color
    Case cel >= 88 / 100 And cel < 94 / 100: GetConditionColor2007 = Feuil1.Range("E:E").FormatConditions(2).Interior.Color
    Case cel < 88 / 100 / Abs(cel < 94 / 100): GetConditionColor2007 = Feuil1.Range("E:E").FormatConditions(3).Interior.Color
    End Select
End Function

testé sur 2007 2013 2016 (32 bits)
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour à tous,

@patricktoulon ma solution est intéressante parce qu'elle utilise DisplayFormat.

Si cette propriété n'est pas disponible utiliser les tests qui déterminent les couleurs, fichier (2) :
VB: 
Private Sub Worksheet_Activate()
Dim s As Shape, c As Range, v#
Application.ScreenUpdating = False
'---RAZ---
For Each s In Shapes
    s.Fill.ForeColor.RGB = 16777215
Next
'---Couleur---
On Error Resume Next
For Each c In Feuil1.PivotTables(1).TableRange1.Columns(1).Cells
    Set s = Nothing
    Set s = Shapes("FR-" & IIf(IsNumeric(c), Format(c, "00"), c))
    v = Val(Replace(CStr(c(1, 5)), ",", "."))
    If v > 0 Then s.Fill.ForeColor.RGB = IIf(v < 0.88, 255, IIf(v >= 0.88 And v < 0.94, 49407, 5296274))
Next
End Sub
A+
 

Pièces jointes

  • Carte(2).xlsm
    215.3 KB · Affichages: 13
Vote positif 0 Vote négatif
P

pascaleg80

XLDnaute Nouveau
Bonjour , je reviens vers vous car je suis en train d'utiliser le fichier mais j'ai besoin, s'il vous plait, d'une petite variante: Si le %tage d'un département est vide alors je souhaite ne pas mettre de couleur dedans. Dés que la cellule est renseignée à partir de 0%, on démarre sur une couleur. Ci joint la PJ . Pouvez vous svp m'aider à finaliser? Merci par avance
 

Pièces jointes

  • Carte France Dynamiques C.xlsm
    194.1 KB · Affichages: 10
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Question
XL 2016 Gestion/suivi dynamique du personnel sur une carte de France
Réponses
5
Affichages
2 K
TechnologyNewStore
T
T
  • Question
Microsoft 365 Comment donner des couleurs aux lignes d'une ListView excel VBA
2 3
Réponses
34
Affichages
4 K
TooFatBoy
  • Question
XL 2016 Carte de France à colorier selon les codes postaux
Réponses
5
Affichages
5 K
D.D.
D
P
  • Question
Microsoft 365 suivi budgetaire
Réponses
11
Affichages
3 K
Dudu2
I
  • Question
Besoin d'aide sur modifications Carte france par GPS de Tatiak
Réponses
8
Affichages
2 K
informat
I
S
  • Question
XL 2013 Carte de France - Renvoi auto et coloriage de fond auto
2
Réponses
15
Affichages
3 K
pierrejean
E
  • Question
Carte de France interactive
Réponses
11
Affichages
10 K
stassie
S
Q
  • Question
XL 2019 Optimiser la lecture d'une base de données
Réponses
0
Affichages
925
qalibo30
Q
B
  • Question
Carte de France avec Dpt coloriés en fonction d'un Chiffre d'affaires (plage)
2
Réponses
16
Affichages
3 K
cedric82
C
B
  • Question
Carte de France avec Dpt coloriés en fonction d'un Chiffre d'affaires (plage)
Réponses
11
Affichages
6 K
peyrissat
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…