Jauges avec aiguille Excel

[descamps16]

Bonjour,

Je reviens vers vous pour la réalisation d'un projet qui dépasse mon domaine de compétence. Grâce à vous j'ai déjà appris beaucoup de choses et je vous en remercie.

Dans ce projet il s'agit de modéliser l'activité d'un établissement avec des jauges. Les jauges écrites en VBA sont des jauges que j'ai trouvé sur un autre site et que j'essaie d'adapter à ma situation. En entrant une valeur sur le CA par exemple j'aimerai qu'elle m'indique où j'en suis à un instant donné par rapport à mon seuil de rentabilité.
Seulement je n’arrive pas à lier les jauges avec ma base de donnée.

Plus que pratiques, ces jauges sont surtout d'ordre esthétiques afin de rendre plus agréable la lecture de mon tableaux de bord.

J'ai mis un fichier en pièce-jointe pour expliquer plus précisément mon problème.

Merci

Vincent

 

[nat54]

Re : Jauges avec aiguille Excel

Bonjour,

J'ai ce classeur-exemple toujours bien utile.

Peut-être que cela te donnera des pistes.

 

[pierrejean]

Re : Jauges avec aiguille Excel

Bonjour descamp16

Salut nat

un 1er pas:
dans le module de la feuille Jauges mettre ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$21" Then
   AjusterAiguille Target.Value
End If
End Sub

Sachant que l'aiguille indiquera le mini à -100 et le maxi a +100

A ajuster si besoin:

Const Max As Double = 100
Const Min As Double = Max * -1

 

[descamps16]

Re : Jauges avec aiguille Excel

Bonjour Nat,
Quel travail!!!! Il y à beaucoup d'astuces c'est super!!!

Concernant la jauge, merci PierreJean effectivement c'est même plus qu’un premier pas!!! Je continue de travailler dessus.

Merci pour vos réponses

Vincent

 

[nat54]

Re : Jauges avec aiguille Excel

Re le fil,

Je précise que le fichier n'est pas de moi (il vient peut-être même de XLD...), je le garde sous la main quand j'en ai besoin.

 

[descamps16]

Re : Jauges avec aiguille Excel

Concernant la jauge : Elle n'accepte que les nombre( dans le choix de la valeur) mais pas les formules. Que faut-il mettre en lieu et place de "TargetValue"?

Merci

Vincent

 

[pierrejean]

Re : Jauges avec aiguille Excel

Re

La jauge n'accepte pas les formules mais peut-etre le resultat d'une formule ( pour peu que ce resultat soit un nombre )
Ma boule de Cristal est inoperante quant à savoir ce que tu veux que la jauge indique !!!

 

[descamps16]

Re : Jauges avec aiguille Excel

En fait le principe de ma jauge c'est qu'il faut rentrer une donnée pour que la jauge monte (dans le rectangle jaune). Cependant j'aimerai que dans cette case jaune ça m'affiche le résultat d'une formule qui se trouve plus bas (écart). Ainsi mettre dans mon carré jaune une formule ou =cellule

Merci

Vincent

 

[descamps16]

Re : Jauges avec aiguille Excel

Quand j'affiche le résultat d'une formule dans cette case jaune la jaune reste inerte.

Merci

Amicalement Vincent

 

[descamps16]

Re : Jauges avec aiguille Excel

Pardonnez-moi j'ai oublié de remettre un fichier explicatif

Le voici :

 

[pierrejean]

Re : Jauges avec aiguille Excel

Re

Oui effectivement lorsqu'il y a une formule dans la case Excel ne voit pas le changement de valeur
Il faut dans ce cas faire en sorte que Target.Address = "*$*$*" soit l'adresse de la cellule qui aboutit à l'ecart
voir cellules en vert

 

[pierrejean]

Re : Jauges avec aiguille Excel

Re

Voila avec ton fichier

 

[ROGER2327]

Re : Jauges avec aiguille Excel

Bonjour à tous

Il me semble qu'on peut remplacer​

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$48" Or Target.Address = "$D$48" Then
   AjusterAiguille Range("E21")
End If
End Sub

par​

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E21").Precedents) Is Nothing Then
   AjusterAiguille Range("E21")
End If
End Sub

ce qui évite de devoir chercher (et éventuellement modifier) de quoi dépend E21.

À vérifier...​

ROGER2327
#6084

Jeudi 26 Gidouille 139 (Sainte Goulache, odalisque - fête Suprême Quarte)
22 Messidor An CCXX, 6,6300h - cumin
2012-W28-2T15:54:43Z

 

[pierrejean]

Re : Jauges avec aiguille Excel

Re

J'aurais appris 2 choses aujourdhui
1) Qu'est-ce-que Precedents (grace à F1 qui a bien voulu fonctionner sur Excel 2010)
2) L'infini prudence de notre ami ROGER avec son A verifier (comme s'il ne l'avait pas fait selon son excellente habitude !! )
Merci donc ROGER

 

[ROGER2327]

Re : Jauges avec aiguille Excel

Re...

Re

J'aurais appris 2 choses aujourdhui
1) Qu'est-ce-que Precedents (grace à F1 qui a bien voulu fonctionner sur Excel 2010)
2) L'infini prudence de notre ami ROGER avec son A verifier (comme s'il ne l'avait pas fait selon son excellente habitude !! )
Merci donc ROGER

1. Il n'y a pas d'âge pour apprendre, heureusement pour nous !
2. Perdu, mon cher ! Pour une fois je n'ai pas testé ! (Mais il est vrai que c'est extrêmement rare.)

Bonne soirée à vous et à tous.



ROGER2327
#6086

Jeudi 26 Gidouille 139 (Sainte Goulache, odalisque - fête Suprême Quarte)
22 Messidor An CCXX, 6,7630h - cumin
2012-W28-2T16:13:53Z