Coloration Carte région France
bdck
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je ne parviens pas à résoudre mon problème, malgré plusieurs tentatives.
je souhaite colorer ma carte de France par régions (nouvelles cartes) en passant par VBA mais visible mes lignes ne sont pas justes et je ne trouve pas l'erreur.
Ce n'est que la deuxième fois que je manie VBA alors je ne cerne pas toutes les subtilités.
Sub ColorMap()
'Lexique
Dim ShtD As Worksheet
Dim ShtS As Worksheet
Dim Formes As Object
Dim Couleur As Long
Dim Ligne As Long
Dim Colonne As Long
Dim Shapes As Shape
Set ShtS = ThisWorkbook.Sheets("2016")
Set ShtD = ThisWorkbook.Sheets("Données")
Set Formes = Shapes
For Each Shapes In ShtS.Shapes("CarteFrance").GroupItems
If Shapes.Name = ShtD.Cells(Ligne, 1) Then Formes = Shapes("Cells(Ligne,1)")
With Formes
.Fill.Solid
.Fill.Transparency = 0#
.Fill.ForeColor.RGB = CouleurReg(ThisWorkbook.Sheets("Données").Cells(Ligne, 4).Value)
End With
Next
End Sub
Je ne parviens pas à résoudre mon problème, malgré plusieurs tentatives.
je souhaite colorer ma carte de France par régions (nouvelles cartes) en passant par VBA mais visible mes lignes ne sont pas justes et je ne trouve pas l'erreur.
Ce n'est que la deuxième fois que je manie VBA alors je ne cerne pas toutes les subtilités.
Sub ColorMap()
'Lexique
Dim ShtD As Worksheet
Dim ShtS As Worksheet
Dim Formes As Object
Dim Couleur As Long
Dim Ligne As Long
Dim Colonne As Long
Dim Shapes As Shape
Set ShtS = ThisWorkbook.Sheets("2016")
Set ShtD = ThisWorkbook.Sheets("Données")
Set Formes = Shapes
For Each Shapes In ShtS.Shapes("CarteFrance").GroupItems
If Shapes.Name = ShtD.Cells(Ligne, 1) Then Formes = Shapes("Cells(Ligne,1)")
With Formes
.Fill.Solid
.Fill.Transparency = 0#
.Fill.ForeColor.RGB = CouleurReg(ThisWorkbook.Sheets("Données").Cells(Ligne, 4).Value)
End With
Next
End Sub
A voir également:
- Coloration Carte région France
- Carte d'identité - Accueil - Services publics
- Pile carte mere - Guide
- Indicatif region france - Guide
- Changer carte graphique - Guide
- Débloquer carte sim sans code puk - Guide