Cellules contenant des chiffres et du text - Addition

Hello !

J´ai déjà trouvé une formule qui permet d´additionner les valeurs numériques de cellules contenants également du texte.

Par contre, cette formule ne marche plus lorsque la ou les valeurs numériques sont supérieures à deux chiffres.

Ci-joint un cas exemple très simple

Quelqu´un a-t-il une solution ?

Grand merci d´avance !

JW

Bonjour,

Si VBA vous est permis :

Function TotalValeur(ByVal ChaineATraiter As String) As Integer

Dim I As Integer
Dim TabChaine As Variant

         TotalValeur = 0
         TabChaine = Split(ChaineATraiter, " ")
         If UBound(TabChaine) > 0 Then
            For I = LBound(TabChaine) To UBound(TabChaine)
              If IsNumeric(TabChaine(I)) Then
                 TotalValeur = TotalValeur + Val(TabChaine(I))
              End If
            Next I
         End If

End Function

En revanche, ma fonction ne sait pas reconnaitre un chien d'une banane... désolé.

Bonjour Eric,

Merci beaucoup pour votre retour. Ca me semble tout à fait répondre à ma demande.

Par contre, j´aimerais tout de même pousser la réflexion s´il n´y aurait pas un moyen 100% formule qui répondrait au problème. Dans mon cas, ce serait plus adéquat qu´un code VBA.

Si vous avez une piste, je suis preneur :)

Bonne journée

JW

Bonjour à tous,

Une proposition "formule" ?

Hello JFL

Alors là je suis scotché utiliser le XML pour résoudre ca je n´y avais absoluöent pas pensé

Merci beaucoup pour ton aide !!

JW

Bonjour à tous,

Les nouvelles fonctions TEXTE dans les tuyaux (Révision 2203 ?) devraient faciliter encore plus ce type manipulation.

Je vous remercie de ce retour !

bonsoir

expérimentalement et tardivement

Bonjour,
@JFL,
Tu parles des 14 nouvelles fonctions, dont TextSplit, TextAfter et TextBefore ?
Un lien de présentation :
Nouvelles fonctions 365+
Je suis en Insider (current chanel - preview) - Version 2203 (build 15028.20050)
Pas encore ces nouvelles fonctions à ce jour.
Cdlt.

Bonjour à tous,

Jean-Eric a écrit :

@JFL,
Tu parles des 14 nouvelles fonctions, dont TextSplit, TextAfter et TextBefore ?
Un lien de présentation :
Nouvelles fonctions 365+
Je suis en Insider (current chanel - preview) - Version 2203 (build 15028.20050)
Pas encore ces nouvelles fonctions à ce jour.

Absolument ! Je suis impatient de les mettre en pratique !

Je suis étonné qu'elles ne soient pas encore disponibles pour les versions Insider ?!

Le déploiement des mises à jour est une énigme pour moi.....

Cela étant, avec toutes ces évolutions récentes, et majeures, Microsoft apporte un vent de fraicheur énorme. J'adore !

Merci pour le lien !

Re,
Il y a 2 niveaux ppur les insiders.
Current chanel (preview) et Beta chanel.
Le 1er. est généralement stable, sans bug, le second est quelque fois instable.
Il est possible que ces nouvelles fonctions soient intégrées dans Beta chanel.
Il est clair que l'introduction de ces nouvelles fonctions (depuis RechercheX, MatchX, let et maintenant Lambda), modifient et vont modifier l'usage d'Excel pour un grand nombre de personnes.
Bon maintenant, quand on voit encore l'usage de SommeProd ou de Sous.Total (vs. Aggregate) !?
L'utilisation de VBA et de Power Query vont être remis en cause, surtout quand l'utilisateur n'aura pas un grand volume de données à traiter.
Bon weekend.
Cdlt.

Bonjour,

Merci pour le lien !

Unique(sort(texsplit())) donne un résultat de malade ! C'est vrai qu'ils font de belles fonctions maintenant.

La 1ère pour remplacer gauche(cherche()) semble moins révolutionnaire, mais peut-être utile des fois.

TEXTBEFORE() avec la recherche inversée est juste monstrueuse !

Bon sang, plus j'avance dans la vidéo plus c'est excitant. Vais finir par craquer pour 365 😕

Vous pensez que vstack pourra fonctionner sur des tableaux présents dans d'autres fichiers ? J'en doute. Mais ça serait un truc de malade. Cette fonction est déjà incroyable cela dit.

Re,
un lien :
365 - Annonce nouvelles fonctions
Cdlt.

Salut à tous,

Ces nouvelles fonctions sont géniales. Vivement qu´elles arrivent sur nos postes !

En passent, j´ai une question complémentaire de ma question initiales sur ce thread.

Je cherche à additionner les éléments numériques de cellules contenant aussi du texte en utilisant une plage comme référence.

Ca ne semble pas marcher avec la formule utilisant une seule cellule

Voir cas exemple ci-joint

Merci bcppppppp

JW

Bonjour à tous,

Une proposition ?

=LET(
p;FILTRE.XML("<root><node>"&SUBSTITUE(JOINDRE.TEXTE(" + ";1;B3:B4);" ";"</node><node>")&"</node></root>";"//node");
SOMME(SI(ESTNUM(p);p;0))
)

Bonjour,
Pour le fun.
Du let, Joindre.Texte, Sequence et Lambda.
Le fichier est en xlsm car il utilise une fonction Macro Excel 4.0 .
Cdlt.

=λ_EVALUER(
LET(text;B3;chars;E3;
textarr;CODE(STXT(text;SEQUENCE(NBCAR(text));1));
chararr;CODE(STXT(chars;SEQUENCE(NBCAR(chars));1));
JOINDRE.TEXTE("";1;SI(ESTNUM(EQUIV(textarr;chararr;0));CAR(textarr);""))))

Bonjour à tous,

Je suis étonné que personne n'a sorti son PQ !

Crdlmt

Bonjour de nouveau,

DjiDji59430 a écrit :

Je suis étonné que personne n'a sorti son PQ !

Notre ami est exigeant ! Outre une demande un tantinet capillotractée (), il désire du "100% formule" !

Ah mes bons amis,

Malheureusement la fonction LET que j´attendais avec beaucoup d´impatience n´est pas encore arrivée sur mon Excel 365...

Mais j´ai trouvé une solution entre-temps.

Merci beaucoup pour votre aide et à bientôt pour de nouveau cas

Bonne journée

JW