Discussion :

[CathieGAL]

Bonjour,
j'ai récupéré et adapté une carte sous Excel département/Régions et je souhaite colorer les départements en fonction d'un % de part de marché par Branche professionnelle (ici propreté et Bureaux études techniques).
pouvez-vous m'indiquer comment faire ? je vous joins mon fichier ; je suis débutante en Excel.
merci.

[patricktoulon]

bonjour

1. j'ai telechargé ton fichier initial
2. j'ai absolument viré tout code et tout module
3. j'ai renommé tes shapes bouton avec le texte qu'elle contiennent tout simplement
4. j'ai ajouté un bouton pour tout blanchir
5. j'ai mis un module tout neuf
6. j'y ai codé ces deux macros ci joint
7. j'ai affecté la meme macro au 4 boutons region (couleur) macro:"ColorByRegion"
8. j'ai affecté la macro "Blanco" a la shapes bouton "Tout en blanc" que j'ai ajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Sub ColorByRegion()
    Dim T, region$
    region = Trim(Replace(Application.Caller, "Région", ""))
     With Sheets("Départements"): T = .Range("A3:G" & .Cells(Rows.Count, 1).End(xlUp).Row).Value: End With
    For i = LBound(T) To UBound(T)
        If Trim(T(i, 7)) = region Then
        With Sheets("Carte").Shapes(T(i, 5))
            .Fill.ForeColor.RGB = ThisWorkbook.Colors(T(i, 6))
            .Fill.Visible = msoTrue
            .Fill.Solid
            Debug.Print T(i, 5) & " : " & T(i, 6)
        End With
        End If
    Next
End Sub
'
'
Public Sub Blanco()
    Dim shap
    For Each shap In Sheets("Carte").Shapes
        If shap.Name Like "Freeform*" Then
            shap.Fill.ForeColor.RGB = vbWhite
            'shap.Line.ForeColor.RGB = RGB(100, 100, 100)
        End If
    Next
End Sub

voila pas de dico pas de patacaisse et pas 2300 lignes



et pour le departement 87 qui reste blance l'erreur est dans ton tableau
c'est pas 58 mais 47


et entre nous :
ca aurait été tellement plus simple de nommer les shape de ta carte avec leur N° de departement on aurais eu a n'observer que la correspondance region
et ton tableau aurait été plus simple