Fonction totalisateur

[popof]

Bonjour à tous,

je reviens vers vous pour un p'tit problème.

Existe t'il sous excel une fonction "totalisateur".

Explication ligne A1 je rentre une série de nombre (dans la même case) exemple 1;2;3;4;5;6 et la ligne b1 me fait la somme de tous les nombre rentrez en A1 soit pour l'exemple b1= 21.

Voili voilou j'espère avoir bien expliqué le processus.

Cordialement votre
popof

 

[Tibo]

Re : Fonction totalisateur

Salut popof,

Je te propose une solution que mjo a proposé ce matin pour une autre demande :

En A1 : 1;2;3;4;5;6 (séparés par des ; )

en A2 : =SOMMEPROD((STXT(SUBSTITUE(A2;";";"");LIGNE(INDIRECT(1&":"&NBCAR(SUBSTITUE(A2; ";";""))));1))*1)

Félicitations au passage à mjo pour sa très belle formule.

@+

 

[porcinet82]

Re : Fonction totalisateur

Salut,

Juste au cas ou, une petite solution par macro :

Sub test()
Dim i%, tot%
For i = 1 To Len(Cells(1, 1).Value) Step 2
    If InStr(i, Cells(1, 1).Value, ";") <> 0 Then
        tot = tot + Val(Mid(Cells(1, 1).Value, i, InStr(i, Cells(1, 1).Value, ";") - 1))
    Else
        tot = tot + Val(Mid(Cells(1, 1).Value, i, Len(Cells(1, 1).Value)))
    End If
Next i
Cells(2, 1).Value = tot
End Sub

@+

 

[Evelynetfrancois]

Re : Fonction totalisateur

BONJOUR Popof Tibo porcinet82
Une idée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellule As Range
Selection.ClearContents
Range("B1").Value = Range("a1") + Range("B1")
End Sub

E et F

 

[JeanMarie]

Re : Fonction totalisateur

Bonsoir

Une autre possibilité :
1) Sélectionner la cellule B1
2) Cliquer sur le menu Insertion/Nom/Définir, dans la boîte de dialogue
dans le champ du haut "Noms dans le classeur" indiquer "calculTexte" (sans les guillements") et dans le champ "fait référence à", indiquer la formule ci-dessous =EVALUER("="&SUBSTITUE(!A1;";";"+"))
3 ) Saisir dans la cellule B1 la formule =calculTexte, puis valider

@+Jean-Marie