Aide sur une Marco
Bonjour Mesdames, Messieurs,
J'utilise une macro afin d'afficher sur la carte de France les taux de service d'un transporteur au département.
Elle fonctionnait magnifiquement bien jusqu’à ce jour .... depuis une erreur apparaît au lancement de la macro, j'ai vérifier le code et honnêtement je ne vois pas d'où vient l'erreur.
Si votre œil expert pouvait me secourir ...
D'avance merci.
Cordialement.
Bonjour,
C'est Case 100: def_color = 28 qui pose problème. Si l'on remplace 28 par une autre valeur plus basse que 28, ça fonctionne bien.
ric
Bonjour,
à la fin de la procédure colorer_dept(), si tu changes score en score -1 ?
If score > 0 Then
Sheets("Carte").Shapes.Range(Array(dept)).Fill.ForeColor.RGB = Colorimetre(def_color(score - 1))
End If
Parce que dans la fonction def_color(), tu attribues de 1 à 28, or ton tableau Colorimetre possède des indices qui vont de 0 à 27.
Tu peux d'ailleurs remplacer ta fonction def_color() par :
Function def_color(score As Integer) As Byte
Select Case score
Case 0: def_color = 1
Case 1 To 74: def_color = 2
Case 75 To 100: def_color = score - 72
Case Else: def_color = 0
End Select
End FunctionMerci pour votre aide précieuse comme toujours !!!
Bonjour,
Votre travail est très intéressant.
Pouvez vous me dire comment changer les couleurs qui sur l'exemple vont du jaune au rouge pour avoir d'autre nuance ?
Merci pour votre aide
Patrick
Bonjour,
désolé pour le temps de réponse.
Les couleurs sont modifiables via la macro dans la partie :
Colorimetre = Array(RGB(255, 255, 255), RGB(255, 255, 175), RGB(255, 255, 90), _
RGB(255, 255, 0), RGB(255, 212, 10), RGB(255, 197, 25), _
RGB(255, 183, 16), RGB(255, 165, 50), RGB(255, 149, 40), _
RGB(255, 123, 0), RGB(255, 97, 0), RGB(255, 64, 0), _
RGB(255, 0, 0), RGB(255, 0, 128), RGB(245, 25, 255), _
RGB(220, 65, 255), RGB(204, 102, 255), RGB(191, 128, 255), _
RGB(160, 126, 255), RGB(130, 120, 255), RGB(113, 113, 255), _
RGB(96, 96, 255), RGB(64, 64, 255), RGB(0, 0, 230), _
RGB(0, 0, 128))
Pour connaitre les codes couleurs vous pouvez utiliser la palette de couleur personnalisé.
A disposition si besoin.
Cordialement.