Création Baromètre

job75

XLDnaute Barbatruc

• 27 Janvier 2014

• #2

Re : Création Baromètre

Bonjour matth042,

Pour les baromètres trouver une image de thermomètre sur le web ou créer une image bitmap (fastidieux).

Pour les flèches il existe des formes standard.

Pour les chiffres on peut les mettre dans chaque flèche par une formule de liaison avec une cellule.

Ou les mettre dans une Zone de texte ou une TextBox.

Une macro Worksheet_Change positionnera chaque flèche/TextBox en fonction des valeurs des cellules.

A+

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 27 Janvier 2014

• #3

Re : Création Baromètre

Bonjour, matth042, Gérard 🙂

Pour compléter les pistes de Job75, un lien vers le site de Andy POPE et un fichier didactique de cet expert en graphiques qui devraient vous intéresser :

 

Pièces jointes

• Copie de Thermometers.xls

  379.5 KB · Affichages: 457

Dernière édition: 27 Janvier 2014

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Janvier 2014

• #4

Re : Création Baromètre

Bonsoir à tous,

Un essai en utilisant seulement des formes Excel, les outils de dessin Excel (principalement aligner/distribuer/grouper) et en nommant et numérotant certaines formes utiles au code. Les valeurs des baromètres doivent être comprises entre 0 et 100.

Le code est dans le module de la feuille "Feuil1":

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
  If Intersect(Target, Range("m4:m6")) Is Nothing Then Exit Sub
  For i = 1 To 3
    Barometre i, Range("m4").Offset(i - 1).Value
  Next i
End Sub

Sub Barometre(xnum&, xvaleur!)
Dim GradY1, GradY2, GradH, PosCursY
  GradY1 = Shapes("Haut" & xnum).Top + Shapes("Haut" & xnum).Height / 2
  GradY2 = Shapes("Enbas" & xnum).Top + Shapes("Enbas" & xnum).Height / 2
  GradH = GradY2 - GradY1
  PosCursY = GradY2 - xvaleur / 100# * GradH
  Shapes("Curs" & xnum).Top = PosCursY - Shapes("Curs" & xnum).Height / 2
  Shapes("Pourc" & xnum).TextFrame2.TextRange.Characters.Text = Format(xvaleur, "0.0") & "%"
  Shapes("Pourc" & xnum).Top = Shapes("Curs" & xnum).Top - _
      Shapes("Pourc" & xnum).Height / 2 + Shapes("Curs" & xnum).Height / 2
End Sub

Sub EvenementOn()
  Application.EnableEvents = True
End Sub

Nota: les formes nommées sont:

• Le trait de graduation du haut -> Hautn (avec n =1 ou 2 ou 3 suivant le baromètre)
• Le trait de graduation du bas -> Enbasn (avec n =1 ou 2 ou 3 suivant le baromètre)
• Le curseur -> Cursn (avec n =1 ou 2 ou 3 suivant le baromètre)
• Le rectangle contenant le pourcentage -> Pourcn (avec n =1 ou 2 ou 3 suivant le baromètre)

 

Pièces jointes

• Barometres v1.xlsm

  23 KB · Affichages: 245
• Barometres v1.xlsm

  23 KB · Affichages: 292
• Barometres v1.xlsm

  23 KB · Affichages: 301

Dernière édition: 27 Janvier 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Janvier 2014

• #5

Re : Création Baromètre

Re, salut Patrick, mapomme 🙂

J'ai mis environ 20 minutes pour faire le fichier joint, y compris la recherche sur le web.

Modifiez comme vous voulez la valeur en B4.

A+

 

Pièces jointes

• Thermomètre(1).xls

  86.5 KB · Affichages: 293

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 27 Janvier 2014

• #6

Re : Création Baromètre

Bonsoir à tous,

En examinant le fichier v1, je me suis aperçu que le curseur 3 avait un caractère parasite (scorie des tests). Il a été supprimé dans la v1.a (sélectionner curseur 3, clique droit / modifier le texte puis supprimer le texte). J'en ai profité pour rajouter un bouton de test.

Nota: les objets restent déplaçables voire dimensionnables. Par exemple, si vous désirez inclure le curseur entièrement dans le baromètre, il suffit de sélectionner le curseur 1, puis avec les flèches de direction de le dépalczer vers la gauche. Recommencez la manip. avec les curseurs 2 et 3. Idem pour rapprocher les rectangles contenant les pourcentages.

 

Pièces jointes

• Barometres v1.a.xlsm

  24.2 KB · Affichages: 259

Dernière édition: 27 Janvier 2014

Vote positif 0 Vote négatif

M

matth042

Guest

• 27 Janvier 2014

• #7

Re : Création Baromètre

Wahou, bah merci à tous!!!

Vos explications sont un peu compliquées pour moi mais le résultat est génial!!! Merci beaucoup

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2014

• #8

Re : Création Baromètre

Bonjour le fil,

Je peux quand même me donner un petit peu plus de mal 🙄

A+

 

Pièces jointes

• Thermomètre(2).xls

  87.5 KB · Affichages: 210

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Janvier 2014

• #9

Re : Création Baromètre

Bonjour à tous et toutes 🙂

Pour le fun, avec valeurs négatives.

Cordialement

 

Pièces jointes

• Thermometre.xls

  37.5 KB · Affichages: 205

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2014

• #10

Re : Création Baromètre

Bonjour Efgé,

Superbe ce thermomètre, si c'est bien toi qui l'as construit félicitations.

Bon moi je continue mon petit bonhomme de chemin avec ce fichier (3).

Edit : ajouté une validation de données en B4.

A+

 

Pièces jointes

• Thermomètre(3).xls

  110 KB · Affichages: 264

Dernière édition: 28 Janvier 2014

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Janvier 2014

• #11

Re : Création Baromètre

Re
Avec mes petites mains 😀
C'est pour ça qu'il va de -4 à 4 ce qui correspond à un indicateur interne ;-)
Cordialement

 

Vote positif 0 Vote négatif