XL 2016 Recuperer les valeurs d'une somme dans plusieurs cellules [Résolu]

didier09

XLDnaute Occasionnel
Bonsoir le Forum,

Est-il possible de récupérer les valeurs additionnées dans une formule et les insérer séparément dans plusieurs cellules :
Exemple formule en A1 = 12+25+45+83+45
Récupérer chaque valeur séparément C1=12, D1=25, E1=45,....
Le nombre de valeurs peut différer.
Merci de vos retours.

Didier
 

Victor21

XLDnaute Barbatruc
Supporter XLD
Bonsoir, didier09.

Quand les développeurs de Redmond ont mis au point Données, Convertir, (Séparateur = "+") ils savaient déjà que vous en auriez besoin.
Forts, les boys ! :eek:

Edit : Bonsoir à toi aussi, Staple1600. Alors comme ça, on sort la grosse artillerie ?
 

Staple1600

XLDnaute Barbatruc
Bonsoir

En attendant mieux ;)
VB:
Sub Macro1()
Dim t
[B1] = "=FORMULATEXT(A1)": [B1] = Replace([B1].Text, "=", "")
t = Split([B1], "+")
[C1].Resize(, UBound(t) + 1) = t
Columns(2).Delete
End Sub
 

Staple1600

XLDnaute Barbatruc
Bonsoir Victor21

Honte à moi!
J'avais pensé à Données/Convertir mais je n'avais essayé sur une formule
(pensant à tort que cela ne fonctionnait que sur des strings)
Je viens de réparer cet impardonnable oubli.

Je vote donc pour la solution Données/Convertir et je pars en pénitence ;)
 

didier09

XLDnaute Occasionnel
Merci à tous les deux pour vos réponses éclair ⚡.

J'essaie et reviens vers vous.

Didier
 

didier09

XLDnaute Occasionnel
Re,

Super, je connaissais pas cette fonction. C'est top.
Encore merci.
Bonne soirée
Didier
 

Haut Bas