Barre de progression avec Webdings

P

pierre57

XLDnaute Nouveau

• 27 Décembre 2010

• #2

Re : Barre de progression avec Webdings

Bonjour,

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

 

Pièces jointes

• progression avec Webdings_graphe.xls

  18.5 KB · Affichages: 122

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 27 Décembre 2010

• #3

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

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 27 Décembre 2010

• #4

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 ?

@+

 

Vote positif 0 Vote négatif

P

pierre57

XLDnaute Nouveau

• 27 Décembre 2010

• #5

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

 

Vote positif 0 Vote négatif

P

pierre57

XLDnaute Nouveau

• 27 Décembre 2010

• #6

Re : Barre de progression avec Webdings

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 27 Décembre 2010

• #7

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

 

Pièces jointes

• progression avec Webdings_graphe.zip

  9.8 KB · Affichages: 45

Vote positif 0 Vote négatif

P

pierre57

XLDnaute Nouveau

• 27 Décembre 2010

• #8

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 ??

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 27 Décembre 2010

• #9

Re : Barre de progression avec Webdings

Bonsoir,

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

 

Vote positif 0 Vote négatif

P

pierre57

XLDnaute Nouveau

• 27 Décembre 2010

• #10

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.

 

Vote positif 0 Vote négatif

P

pierre57

XLDnaute Nouveau

• 27 Décembre 2010

• #11

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

 

Pièces jointes

• progression avec Webdings_graphe v2.xls

  30 KB · Affichages: 70

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 27 Décembre 2010

• #12

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.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 27 Décembre 2010

• #13

Re : Barre de progression avec Webdings

Bonsoir

Pour mon plaisir

 

Pièces jointes

• progression avec Webdings_graphe V001.xls

  41.5 KB · Affichages: 85

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 27 Décembre 2010

• #14

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 27 Décembre 2010

• #15

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

VB:

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

 

Vote positif 0 Vote négatif