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

[libellule85]

Bonsoir le forum,

En E5 j'ai la formule suivante

=NBVAL(D5:D15)&SI(NBVAL(D5:D15)<=1;" Cellule Renseignée";" Cellules Renseignées")

et j'aimerais si c'est possible que seulement le résultat (chiffre) soit en gras et en rouge. Est ce possible par macro ?
Merci beaucoup pour votre aide

 

[Hulk]

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

Bonsoir,

Essaie ce 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 !

 

[libellule85]

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.

 

[DoubleZero]

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 🙂

 

[libellule85]

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

Bonjour DoubleZero,

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

 

[libellule85]

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

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

 

[DoubleZero]

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

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 🙂

 

[libellule85]

[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

 

[DoubleZero]

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

Re-bonjour,

Si tu mets cette ligne en commentaire :

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 🙂

 

[libellule85]

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

Re,

Merci