Formater seulement le résultat en chiffre d'une formule

Hulk

XLDnaute Barbatruc

• 24 Février 2012

• #2

Re : Formater seulement le résultat en chiffre d'une formule

Bonsoir,

Essaie ce code..

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Application.WorksheetFunction.CountA(Range("D5:D15")) > 1 Then
        Cells(5, 5).Value = Application.WorksheetFunction.CountA(Range("D5:D15")) & " Cellules Renseignées"
    Else
        Cells(5, 5).Value = Application.WorksheetFunction.CountA(Range("D5:D15")) & " Cellule Renseignée"
    End If
    
    Cells(5, 5).Characters(Start:=1, Length:=2).Font.ColorIndex = 3 'Rouge
    Cells(5, 5).Characters(Start:=3, Length:=Len(Cells(5, 5))).Font.ColorIndex = 1 'Noir
              
End Sub

Il y aura plus la formule en E5, mais est remplacée par le If et le CountA.

Sur ce bonne nuit à tous !

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 24 Février 2012

• #3

Re : Formater seulement le résultat en chiffre d'une formule

Bonjour Hulk, le forum,

Je te remercie pour ta réponse, mais j'ai une erreur La méthode "Value" de l'objet "Range" a échoué et quand je ferme le débogage celà plante Excel.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Février 2012

• #4

Re : Formater seulement le résultat en chiffre d'une formule

Bonjour, libellule85, Hulk, le Forum,

Une suggestion dans le fichier joint, valable des unités aux dizaines.

A bientôt 🙂

 

Pièces jointes

• 00 - libellule85 - Chiffre colorer.xls

  36 KB · Affichages: 51

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 24 Février 2012

• #5

Re : Formater seulement le résultat en chiffre d'une formule

Bonjour DoubleZero,

Merci beaucoup pour ta réponse.
Bonne journée

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 24 Février 2012

• #6

Re : Formater seulement le résultat en chiffre d'une formule

re doublezero,

J'ai regardé en détail ta macro, et excuses moi de mon ignorance (je cherche simplement à comprendre) mais où fais-tu référence à la colonne D dans la ligne de code ci-dessous (celle-ci correspond bien à la formule que j'avais ?)

Code:

Range("E5") = "=COUNTA(RC[-1]:R[10]C[-1])&IF(COUNTA(RC[-1]:R[10]C[-1])<=1,"" Cellule Renseignée"","" Cellules Renseignées"")"

D'avance merci pour ta réponse

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Février 2012

• #7

Re : Formater seulement le résultat en chiffre d'une formule

Re-bonjour,

(je cherche simplement à comprendre) mais où fais-tu référence à la colonne D

Cliquez pour agrandir...

Si tu es dans l'ignorance, nous sommes deux 😀 !

En étant sur E5 : décalage d'une colonne vers la gauche (RC[-1]), pour atteindre la colonne D.

A bientôt 🙂

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 24 Février 2012

• #8

[Résolu] : Formater seulement le résultat en chiffre d'une formule

re-bonjour,

Merci beaucoup pour ton explication, je m'endormirais moins "con" ce soir.
Bonne soirée et encore merci

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 24 Février 2012

• #9

Re : Formater seulement le résultat en chiffre d'une formule

Re-bonjour,

Si tu mets cette ligne en commentaire :

Code:

Range("E5").Value = Range("E5").Value

la mise en forme souhaitée n'est plus appliquée mais cela permet de contrôler la formule empruntée.

A bientôt 🙂

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 24 Février 2012

• #10

Re : Formater seulement le résultat en chiffre d'une formule

Re,

Merci

 

Vote positif 0 Vote négatif