Microsoft 365 Addition des nombres dans une cellule avec du texte

R@chid

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2020

• #2

Bonjour,
pourrais-tu nous préciser ta version d'Excel ?

 

Vote positif 0 Vote négatif

D

Dreyz

XLDnaute Nouveau

• 16 Décembre 2020

• #3

Bonjour,
J'utilise la suite office 365. J'ai édité le poste.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2020

• #4

Re,
ok, en B1 :

VB:

=SOMME(FILTRE.XML("<a><b>"&SUBSTITUE(A1;" ";"</b><b>")&"</b></a>";"//b"))

@ tirer vers le bas


Cordialement

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 16 Décembre 2020

• #5

Bonjour à tous,

En utilisant Données/convertir, on peut sortir quelques résultats.

JHA

 

Pièces jointes

• Classeur Dreyz.xlsx

  182.9 KB · Affichages: 18

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 16 Décembre 2020

• #6

Bonjour Dreyz, le fil,



avec cette fonction personnalisée :

VB:

Option Explicit

Function Total(chn$) As Integer
  Dim s0, s1$, p%, k%, i As Byte
  s0 = Split(chn, ",")
  For i = 0 To UBound(s0)
    s1 = Trim$(s0(i)): p = InStrRev(s1, " ")
    k = k + Val(Mid$(s1, p + 1))
  Next i
  Total = k
End Function

soan

 

Pièces jointes

• Exo Dreyz.xlsm

  14.7 KB · Affichages: 8

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2020

• #7

Bonsoir le fil, JHA, Nicolas, R@chid, soan

Dreyz à dit:

Bonjour à tous,
Je précise que je suis essentiellement sous google sheet, ayant testé une formule type (je débute sur les tableurs, j'avais trouvé cela sur le net)
Nicolas.

Cliquez pour agrandir...

Alors Google Sheets ou Office 365
Car Google Sheets parle mal le VBA 😉

Si au final, c'est Office 365, alors une autre façon de faire
(mais ce plus vraiment dans la sphère "débutant" * )
Test OK sur les exemples du 1er premier message.

VB:

Function SOMMECELL(vCell As String, Optional vP = "[^\d\+]") As Double
On Error GoTo O_ut
tmp = Replace(vCell, " x ", " + ")
    With CreateObject("vbscript.regexp")
    .Pattern = vP: .Global = -1:: SOMMECELL = Evaluate(.Replace(tmp, ""))
    End With
Exit Function
O_ut:
SOMMECELL = 0
End Function

Mode d'emploi
=SOMMECELL(A1)

* :NB: Dans ce cas, privilégie la formule de R@chid, parce qu'une formule c'est plus simple quand on débute avec Excel. 😉

 

Vote positif 0 Vote négatif

D

Dreyz

XLDnaute Nouveau

• 16 Décembre 2020

• #8

Super, merci à tous, vos solutions ont résolu mon problème.
Encore merci.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2020

• #9

Re

J'oubliais les MACistes 😉
Donc une version qui fonctionnera sur les Mac. 😉

VB:

Function SOMMECELL2(R As Range, Optional Sep As String = "x") As Double
Dim t As Variant, k&: t = Split(R, Sep)
For k = LBound(t) To UBound(t) Step 1: SOMMECELL2 = SOMMECELL2 + Val(t(k)): Next
End Function

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2020

• #10

Re

=>Dreyz
Tu n'as pas répondu à la question dans le message#7
Google Sheets en priorité ou Excel 365?

 

Vote positif 0 Vote négatif

D

Dreyz

XLDnaute Nouveau

• 16 Décembre 2020

• #11

Staple1600 à dit:

Re

=>Dreyz
Tu n'as pas répondu à la question dans le message#7
Google Sheets en priorité ou Excel 365?

Cliquez pour agrandir...

Dans l'idéal, google sheet

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2020

• #12

Bonjour @ tous,
j'ai pas fait attention que tu es sous GoogleSheet, j'ai vu "Autre" c'est pour cela j'ai demandé une précision.
Sous GoogleSheet, en B1 :

VB:

=SUM(SPLIT(A1;" "))

@ tirer vers le bas

Sinon, ma première formule fonctionne je pense sous Excel 2013, 2016 et 2019, si quelqu'un peut faire un test et me tenir informé, je voudrais juste être sûr que FILTRE.XLM() est disponible sous ces versions.


Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2020

• #13

Re

C'est bien ce qu'il me semblait. 😉
Sous réserve de vérification, les solutions à base de VBA publiées dans le fil ne devraient pas fonctionner avec Google Sheets.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2020

• #14

Re,

=>R@chid

Test OK sur Excel 2013
Mais où vas-tu chercher ces formules?
Dans la 4ième dimension ?

En tout cas, chapeau bas pour cette formule du 3ième type !!!!
😱

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 16 Décembre 2020

• #15

R@chid à dit:

je voudrais juste être sûr que FILTRE.XLM() est disponible sous ces versions.

Cliquez pour agrandir...

Voir ICI ce que dit Krosoft. 😉

 

Vote positif 0 Vote négatif