XL 2010 MFC Afficher evolution par rapport a semaine - 1

J

JHA

XLDnaute Barbatruc

• 13 Mars 2017

• #2

Bonjour à tous,

A essayer

JHA

 

Pièces jointes

• Ex.xlsx

  73.4 KB · Affichages: 41

Vote positif 0 Vote négatif

N

Niouf

XLDnaute Occasionnel

• 13 Mars 2017

• #3

Merci 🙂

Mais je ne peux pas rajouter de colonne sur le fichier d'origine, d'ou mon idee de MFC : Voir fichier 🙂

 

Pièces jointes

• Ex2.xlsx

  75.6 KB · Affichages: 34

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Mars 2017

• #4

Bonjour à tous,

A adapter

JHA

 

Pièces jointes

• Ex2.xlsx

  72.4 KB · Affichages: 37

Vote positif 0 Vote négatif

N

Niouf

XLDnaute Occasionnel

• 14 Mars 2017

• #5

Salut,

Alors sauf erreur de ma part ... Ca ne fonctionne pas .
J'ai une evolution positive que ca passé de 44 a 45 ok, mais positive aussi quand je passe de 25 a 20 ... et continue quand je passe de 12.2 a 11.6 .
J'ai essaye de bricoler ta regle mais en vain ^^

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Mars 2017

• #6

Bonjour à tous,

Effectivement, cela parait délicat avec le jeu d'icones.
Il te reste le coloriage des celllules ou la colonne sup comme proposé au #2

JHA

 

Pièces jointes

• Ex2.xlsx

  73.6 KB · Affichages: 29

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2017

• #7

Bonjour Niouf, JHA,

Voyez le fichier joint et la MFC à 3 conditions sur A:B.

La condition pour la croissance :

Code:

=ARRONDI(-(""&$A1);3)<ARRONDI(-(""&$B1);3)

La petite gymnastique -(""&$A1) élimine les cellules vides.

A+

 

Pièces jointes

• Ex(1).xlsx

  76.2 KB · Affichages: 38

Dernière édition: 14 Mars 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mars 2017

• #8

Re,

Fichier (2) avec une formule plus simple :

Code:

=ARRONDI((""&$A1)-(""&$B1);3)>0

A+

 

Pièces jointes

• Ex(2).xlsx

  76.2 KB · Affichages: 33

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mars 2017

• #9

Bonjour Niouf, JHA, le forum,

Une solution VBA avec cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range
Set r = Intersect(Target.EntireRow, [A:B], Me.UsedRange.EntireRow)
If r Is Nothing Then Exit Sub
For Each r In r.Rows 'en cas d'entrées multiples (copier-coller)
  Set c = r.Cells(1)
  If IsNumeric(CStr(c)) And IsNumeric(CStr(c(1, 2))) Then
    Select Case Round(c - c(1, 2), 3)
      Case Is < 0: c.NumberFormat = "[Red] - * 0.0%": If Not c.Font.Bold Then c.Font.Bold = True
      Case Is = 0: c.NumberFormat = " = * 0.0%": If c.Font.Bold Then c.Font.Bold = False
      Case Is > 0: c.NumberFormat = "[Blue] + * 0.0%": If c.Font.Bold Then c.Font.Bold = False
    End Select
  Else
    If r.Row > 1 Then c.NumberFormat = "0.0%": c.Font.Bold = False 'RAZ
  End If
Next
End Sub

Des formats Nombre personnalisés sont créés en colonne A.

Fichier .xlsm joint.

Pour tester j'ai copié le tableau A2:B54 sur 5300 lignes.

Chez moi sur Win 10 - Excel 2013 la macro s'exécute en 1,9 seconde.

Edit : j'ai ajouté des tests sur c.Font.Bold pour gagner du temps.

A+

 

Pièces jointes

• Ex VBA(1).xlsm

  83.4 KB · Affichages: 31

Dernière édition: 15 Mars 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mars 2017

• #10

Re,

On peut utiliser d'autres formats personnalisés, fichier (2).

A+

 

Pièces jointes

• Ex VBA(2).xlsm

  83.5 KB · Affichages: 29

Vote positif 0 Vote négatif