Somme complexe
Bonjour,
Je souhaite faire une somme sur des cellules contenant plusieurs valeurs délimités par des / comme ci-dessous et obtenir la somme totale de chaque critères (A5)
A1 : 149/64/30
A2 : 128/13/57
A3 : 93/24/38
A4 : 131/8/48
A5 : 501/109/173
Auriez-vous une idée de comment m'y prendre ? j'arrive à traiter la première série de valeurs par une fonction STXT mais la seconde n'est pas stable car pas le même nombre de caractères et meme numéro de départ...
Avez-vous des idées la dessus ?
Cordialement.
Ch@p'
Bonjour,
Une méthode : décomposer en 3 colonne, faire la somme et recomposer le résultat:
B1 : =GAUCHE(A1;TROUVE("/";A1)-1)*1
C1 : =STXT(A1;NBCAR(B1)+2;TROUVE("/";A1;NBCAR(B1)+2)-NBCAR(B1)-2)*1
D1: =STXT(A1;TROUVE("/";A1;NBCAR(B1)+2)+1;99)*1
Tirer B1:D1 jusqu'en B4:D4
B5 : =SOMME(B1:B4) à tirer jusqu'en D5
A5 : =B5 & "/" & C5 & "/" & D5
Bonjour le forum,
Pour la 1ère partie :
=SOMMEPROD(--GAUCHE(A1:A4;CHERCHE("/";A1:A4;1)-1))A adapter pour les deux autres.
Le mieux serait de faire une fonction personnalisée.
Et donc, sans colonne supplémentaire :
=SOMMEPROD(--GAUCHE(A1:A4;CHERCHE("/";A1:A4;1)-1))&"/"&SOMMEPROD(--(STXT(STXT(A1:A4;CHERCHE("/";A1:A4;1)+1;10);1;CHERCHE("/";STXT(A1:A4;CHERCHE("/";A1:A4;1)+1;10);1)-1)))&"/"&SOMMEPROD(--(STXT(STXT(A1:A4;CHERCHE("/";A1:A4;1)+1;10);CHERCHE("/";STXT(A1:A4;CHERCHE("/";A1:A4;1)+1;10);1)+1;10)))
Steelson a écrit :Le mieux serait de faire une fonction personnalisée.
génial ça !
Comment ça fonctionne la création de fonction personnalisés ?
Cordialement.
Ch@p'
Pardon pour le dérangement.
Ch@p1Ch@p0 a écrit :Steelson a écrit :Le mieux serait de faire une fonction personnalisée.
génial ça !
Comment ça fonctionne la création de fonction personnalisés ?
Cordialement.
Ch@p'
Il s'agit d'une macro. Voir fichier joint.
Function SommeSlash(cels As Range)
Dim valeurs(2)
Dim cel As Range
valeurs(0) = 0
valeurs(1) = 0
valeurs(2) = 0
For Each cel In cels
valeurs(0) = valeurs(0) + Split(cel.Value, "/")(0)
valeurs(1) = valeurs(1) + Split(cel.Value, "/")(1)
valeurs(2) = valeurs(2) + Split(cel.Value, "/")(2)
Next
SommeSlash = valeurs(0) & "/" & valeurs(1) & "/" & valeurs(2)
End Function