MFC vs VBA - Dashboard avec icônes personnalisés
Bonjour à tous,
Je cherche depuis plusieurs jours à régler un petit problème purement optique sur un dashboard pour mon entreprise.
Les icônes ou signes références sont édictés par une directive interne que je ne peux pas faire changée.
(Losange, rond, triangle et carré avec différents codes couleurs.
Pourriez-vous m'aider à trouver une solution ? Vos expertises me permettront sans doute à régler ce problème.
Il s'agit de dépasser les MFC afin que je puis personnaliser mon affichage par code VBA.
J'ai joint un fichier afin que vous puissiez mieux comprendre mon besoin.
J'espère y avoir donné suffisamment de détails.
D'avance merci pour l'intérêt porté à ma requête.
Willau
Bonjour,
Code à mettre dans le module de la feuille concernée :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "I6" Then Exit Sub
Application.EnableEvents = False
With Range("I26")
Select Case Target.Value
Case 0
.Value = "u": .Font.Name = "Wingdings": .Font.ColorIndex = 1
Case 1
.Value = "n": .Font.Name = "Wingdings": .Font.ColorIndex = 3
Case 2
.Value = "p": .Font.Name = "Wingdings 3": .Font.ColorIndex = 44
Case 3
.Value = "l": .Font.Name = "Wingdings": .Font.ColorIndex = 43
End Select
End With
Application.EnableEvents = True
End SubSalut Theze
Merci pour la prompte solution.
Je vais essayé ça et te faire un retour.
Cela paraît tellement plus "simple" quand on a une solution sous les yeux
Cordialement
Willau
Magnifique !! ça marche tip top
Petite demande supplémentaire:
Existe-t-il un tableau ou une référence où je peux trouver les "Font.ColorIndex"
Pour le 3 par exemple tu as choisi un vert trop clair.
J'aimerais pouvoir l'adapter. Voire pouvoir adapter moi-même à l'avenir d'autre icônes.
Encore merci !
Willau
Comme dit le proverbe, Vaut mieux 1 qui sait que 100 qui cherchent !
J'adore ce proverbe !
Evidemment, quand une chose fonctionne, on en veut toujours plus...
En début de VBA tu écris:
If Target.Address(0, 0) <> "I6" Then Exit Sub
Comment puis-je faire si j'ai plusieurs cellule qui remplissent le même format:
par ex.: "I29"; "C2"; "A1"
PRECISON : c'est bien le With Range("I26") que je souhaite élargir...
Petite demande supplémentaire:
Existe-t-il un tableau ou une référence où je peux trouver les "Font.ColorIndex"
actives un feuille vierge et exécutes ce code, tu auras les couleurs en colonne A et l'index correspondant en colonne B :
Sub Test()
Dim I As Integer
For I = 1 To 56
Cells(I, 1).Interior.ColorIndex = I
Cells(I, 2).Value = I
Next I
End SubComment puis-je faire si j'ai plusieurs cellule qui remplissent le même format:
par ex.: "I29"; "C2"; "A1"
Avec Intersect() :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1, C2, I29")) Is Nothing Then Exit Sub
Application.EnableEvents = False
With Range("I26")
Select Case Target.Value
Case 0
.Value = "u": .Font.Name = "Wingdings": .Font.ColorIndex = 1
Case 1
.Value = "n": .Font.Name = "Wingdings": .Font.ColorIndex = 3
Case 2
.Value = "p": .Font.Name = "Wingdings 3": .Font.ColorIndex = 44
Case 3
.Value = "l": .Font.Name = "Wingdings": .Font.ColorIndex = 43
End Select
End With
Application.EnableEvents = True
End SubBonjour,
Concernant les colorindex:
Ou encore:
https://docs.microsoft.com/en-us/office/vba/api/Excel.ColorIndex
Maintenant que l'on m'a mis sur la voie... je peaufine :
Est-il possible de déterminer la taille de chaque caractère de police ?
voir la propriété "Font.Size"
bonjour à tous
pour info : ne pas tester Power BI Desktop gratuit !
car alors vous y passeriez vos nuits et vos WE tellement votre patron va en vouloir
c'est de l'Excel survolté et bien plus efficace pour les Dashboards et KPI et analyses (notamment temporelles)
top pour tous les resp de processus et resp qualité, et resp commerciaux et analystes comptables.... bref pour tout le monde
https://www.youtube.com/watch?v=jmTedSuKers
amitiés et bonne année