Ecrire en gras un résultat sous condition

Question

Bonjour,

Dans un tableau Excel j'aimerai pouvoir faire la somme d'une plage de cellules normalement et si celles-ci sont toutes en gras, alors écrire la somme en gras.

Exemple : Si 12,14,18 en normale: 44 en normale ; Si 12 normale, 14 en gras, 18 en gras : 44 en normale ; Si 12,14,et 18 en gras : 44 en gras.

En vous remerciant.

Patrick

Answer 1

Merci Daniel, Il n'y a pas d'urgence. Pour le moment je le fait manuellement, c'est pour automatiser la manipe.

Bon dimanche,

Patrick

Answer 2

Ca ne fonctionne pas. La fonction ne peut pas mettre la cellule en gras. Plus contraignant, puisqu'il faut indiquer la plage (dans l'exemple A1:A9) et la cellule où se fait la somme (A10) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range, teste As Boolean
If Intersect(Target, [A1:A9]) Is Nothing Then Exit Sub
For Each C In [A1:A9]
If IsNumeric(C.Value) And C.Value <> "" And C.Font.Bold = False Then
[A10].Font.Bold = False
Exit Sub
End If
Next C
[A10].Font.Bold = True
End Sub

(à mettre dans le module de la feuille).

Daniel

Answer 3

Dans ce cas, le résultat sera donné par la fonction. Un changement de valeur provoquera un recalcul de la fonction. Un changement normal => gras ou gras => normal ne provoquera pas de changement.

Je t'envoie une réponse dès que je peux.

Daniel

Answer 4

Bonjour Daniel, Merci.

Dans une de tes solutions en réponse à guynemer95 du 19 aout 2017 , tu as proposé cette solution :

Function SommeGras(Plage As Range) As Double

Dim C As Range

For Each C In Plage

If C.Font.Bold = True And IsNumeric(C.Value) Then

SommeGras = SommeGras + C.Value

End If

Next C

End Function

Pourrait-elle être adaptée avec une ligne en plus la rendant automatique pour répondre à mon besoin ?

Merci

Patrick

Answer 5

Bonjour,

A ma connaissance, ça ne peut être fait qu'avec une macro, et encore, ça ne sera pas automatique : une mise en gras d'une cellule ne provoquera pas un changement du format du total. Tu devras lancer la macro manuellement.

Daniel