Barre de progression avec Webdings

[marcelio]

Bonjour,

J'utilise la police Webdings pour créer une barre de progression avec des pourcentages.
J'ai chercher sur le forum mais j'ai pas trouver la solution
Mon problème c'est que je n’arrive pas à faire apparaître les barres de progression à partir de 4,80%.
Auriez-vous une solution à mon problème.
et je ne peux pas augmenter la largeur de ma colonne

Merci d'avance
Marcelio

 

[pierre57]

Re : Barre de progression avec Webdings

Bonjour,

Pourquoi ne pas utiliser un graphique, qui sera plus précis ? voir PJ
Cordialement

 

[marcelio]

Re : Barre de progression avec Webdings

Bonjour pierre57,

Bonne idée le graphique
Je travaille de la ligne 1 à 130
mais si un pourcentage est à 0 alors la ligne est masquée automatiquement.
Cela fonctionne t'il correctement avait un graphique
Merci de ton aide

Marcelio

 

[exene]

Re : Barre de progression avec Webdings

Bonjour,

Je vais peut être dire une bétise mais ton exemple tu multiplie la valeur de ta cellule par 20, en augmentant le coéfficient le résultat ne serait il pas plus proche de ce que tu souhaites ?

@+

 

[pierre57]

Re : Barre de progression avec Webdings

Pour répondre à Marcelio, si un % = 0, le graphique n'affichera rien en effet.
Pour répondre à exene, il faut trouver le compromis entre le facteur multiplicatif (ici = à 20) et la taille de caractére Webdings car il y a la contrainte de la largeur de la colonne.
Le graphique me paraissait plus précis et simple.
Cordialement

 

[pierre57]

Re : Barre de progression avec Webdings

MArcelio, si tu masques des lignes, cela fonctionne également. Essaie sur le fichier que je t'ai envoyé

 

[marcelio]

Re : Barre de progression avec Webdings

Pierre57,

Cela fonctionne bien dans mon tableau, sauf que si j'ai seulement 2 ligne de % cela bogue
Joint fichier

 

[pierre57]

Re : Barre de progression avec Webdings

je vois. Il y a un petit pb de positionnement des barres d'histogramme quand on masque les lignes. Je ne sais pas comment résoudre ce pb ??

 

[marcelio]

Re : Barre de progression avec Webdings

Bonsoir,

Et dans les options du graphique il n'y aurais pas un petit réglage à faire.
Merci

 

[pierre57]

Re : Barre de progression avec Webdings

je n'ai pas trouvé dans les propriétés du graphique, désolé. Ou éventuellement adapter ta macro. Je n'ai pas de solution à te proposer.

 

[pierre57]

Re : Barre de progression avec Webdings

Proposition: Pourquoii effacer les lignes à 0%. Si tu les gardes, tu auras toutes tes valeurs, zéros compris mais sans histogramme ==> cf. PJ

 

[Si...]

Re : Barre de progression avec Webdings

Salut

Les lignes étant affichées,
dans, format de la zone de graphique
Propriétés, Ne pas déplacer...

mais il faudra continuer à chercher pour avoir quelque chose de présentable.

 

[Banzai64]

Re : Barre de progression avec Webdings

Bonsoir

Pour mon plaisir

 

[marcelio]

Re : Barre de progression avec Webdings

Bonsoir Banzai64,

J'ai testé votre idée dans mon fichier mais je n'y suis pas arriver à bien le faire fonctionner
pourriez vous SVP me préparer le code que je puisse l'insérer après.
Les barres en colonnes "F"
et de la ligne 10 à 130

Merci beaucoup

Marcelio

 

[Banzai64]

Re : Barre de progression avec Webdings

Bonsoir

Voici le code modifié
Ne pas oublier de modifier la colonne ou se situe le résultat à évaluer

Private Sub Worksheet_Calculate()
Dim Sh As Shape
Dim I As Long

  For Each Sh In ActiveSheet.Shapes
    If Sh.Name Like "Rectangle *" Then
    ' On vire toutes les Shapes Rectangle dans la colonne F (6) de la ligne 10 à 130
      If Sh.TopLeftCell.Row > 9 And Sh.TopLeftCell.Row < 131 And Sh.TopLeftCell.Column = 6 Then
        Sh.Delete
      End If
    End If
  Next Sh
  ' Refait toutes les "Barres de progression"
  For I = 10 To 130
  ' Ici il faut marquer la colonne ou se situe le % que l'on veut visualiser
    If Cells(I, "G") > 0 And Rows(I).Hidden = False Then
    ' Les "Barres" dans la colonne F
      With Cells(I, "F")
        ' Ne pas oublier de modifier la colonne du calcul ici c'est Cells(I, "G")
        ' Pour des barres plus fines modifier la valeur soustraite à .Height
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top + 2, (4 * .Width * Cells(I, "G")), .Height - 4).Fill.ForeColor.SchemeColor = 8
      End With
    End If
  Next I
End Sub

Bonne nuit