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

[didier09]

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]

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 ! 😱

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

 

[Staple1600]

Bonsoir

En attendant mieux 😉

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]

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]

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

J'essaie et reviens vers vous.

Didier

 

[Staple1600]

Re

Didier
N'essaies pas la mienne, passes directement à Données/Convertir 😉

 

[didier09]

Re,

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