Formule total des Cellule

Bonjour,

Si tu ajoutes &" SEANCES" ça devient du texte et tu ne peux plus faire d'opérations dessus.
Enlève-le...
Et si tu y tiens tu peux mettre un format de cellule personnalisé: 0" Séances"

eric

Bonjour,

Excel reconnait dans une cellule, soit des nombres, soit des chaînes de caractères soit des formules.

Dans ton tableau figurent des chaînes de caractères (7 séances par exemple).
Pour faire la somme, il est nécessaire d'avoir uniquement les nombre dans tes cellules : 7, 8 et 9
en F4 tu pourras entrer alors la formule suivante :

+C4+D4+E4
ou
=somme(C4:E4)

A+

pépé

Bonjour,

Tu ne peux pas, dans l'état.

Tu as conçu ton classeur de telle manière que les cellules que tu veux additionner comportent du texte... Arbre+Prairie ne peux pas être égal à 13...

Tu as, dans tes feuilles Musculation etc... des cellules ou les totaux sont expimés comme ceci :
=NB(B1:B13) & " SEANCES"
Du coup, le contenu de tes cellules est du texte et tu ne peux pas les additionner.
Par contre, enlève, dans chacune de ces cellules ton & " SEANCES" pour n'obtenir que :
=NB(A3:A13)
Tu va obtenir un résultat sous forme d'un nombre que tu pourras additionner.
S'il est important pour toi d'avoir "SEANCES" écrit à côté, tu as deux choix :
1- tu inscrit SEANCES dans la cellule de droite
2- Dans la cellule ou tu as ton NB(),
>clic droit/Format de cellule
>catégorie : choix "personnalisée"
>type : 0" SEANCES" (à saisir toi même, attention aux espaces et aux guillemets)
>valider
A refaire pour chacune des cellules totaux de tes trois feuilles, puis, pour obtenir le total en F4 :
=SOMME(C4:E4)
que tu peux également mettre au format personnalisé 0" SEANCES"

Salut le fil,
comme cela
=SUBSTITUE(C4;"SEANCES";"")+SUBSTITUE(D4;"SEANCES";"")+SUBSTITUE(E4;"SEANCES";"") &" SEANCES"

ou peut être avec une fonction personnalisée

Function SommeVal(PlageCellules As Range) As Double
Application.Volatile
Dim M As Variant, i As Integer, K As Range
SommeVal = 0
If Application.CountA(PlageCellules) > 0 Then
For Each K In PlageCellules.Cells
M = Split(K.Text, " ")
For i = 0 To UBound(M)
If IsNumeric(M(i)) Then SommeVal = SommeVal + CDbl(M(i))
Next
Next K
End If
End Function

https://www.cjoint.com/?CBelokyxLeN
la formule en F4 peut être complétée comme ceci

=SI(SommeVal(C4:E4)=0;"";SI(SommeVal(C4:E4)=1;SommeVal(C4:E4)&" Séance";SommeVal(C4:E4)&" Séances"))

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Merci a vous tous c ok j'ai pris l'exemple de Nike-31, encore une fois merci a tous