extraire une formule

[Xxaann]

Bonjour,

Dans une cellule j'ai '=(32+15)*37
En fait, c'est un fichier de commandes, 32 et 15 correspondent à deux cdes différentes pour un même client.
Je souhaiterai extraire c'est deux données, pour ensuite faire deux lignes distinctes.

Merci

 

[JBOBO]

Re : extraire une formule

Bonjour,

Si la cellule en question est en D3, alors en E3 :

=CNUM(STXT(D3;3;CHERCHE("+";D3;1)-3))

et en F3 :

=CNUM(STXT(D3;CHERCHE("+";D3;1)+1;CHERCHE(")";D3;1)-CHERCHE("+";D3;1)-1))

 

[Xxaann]

Re : extraire une formule

Merci JBOBO,

Ca marche bien ta formule par contre j'ai fais une erreur dans ma question...
C'est bien une formule il n'y a pas de ' dans la cellule.
Donc ta formule ne fonctionne pas...

Une autre solution pour m'aider.

Merci
fichier en pj

 

[piga25]

Re : extraire une formule

Bonjour,

Avec des formules personnalisées :
Pour récupérer la première partie de l'addition

Function AjoutéÀ(ByVal R As Range) As String
On Error Resume Next
AjoutéÀ = Split(Split(R.Formula, "+")(0), "=(")(1)
If Err Then AjoutéÀ = ""
End Function

et pour récupérer la seconde partie de l'addition et a mettre dans la formule :

=SUBSTITUE(AjoutéB(D3);GAUCHE(AjoutéB(D3);3);"";1)

Function AjoutéB(ByVal R As Range) As String
On Error Resume Next
AjoutéB = Split(Split(R.Formula, ")*")(0), "=(")(1)
If Err Then AjoutéB = ""
End Function

 

[Xxaann]

Re : extraire une formule

Merci piga25,

Pour la première partie (formule personnalisée) ça fonctionne nickel.
Par contre la formule pour la 2ème partie ne va pas.=> si je mets 321 comme premier chiffre, la formule me donnera +26

 

[piga25]

Re : extraire une formule

Bonjour

Dans la formule a la place du 3 qui normalement correspond au symbole +, il faut mettre: =trouve(AjoutéB;"+")

 

[Xxaann]

Re : extraire une formule

Jiai modifié la macro de ajoutéB comme ceci:

Function AjoutéB(ByVal R As Range) As String
On Error Resume Next
AjoutéB = Split(Split(R.Formula, ")*")(0), "+")(1)
If Err Then AjoutéB = ""
End Function

Maintenant ca fonctionne très bien.

Grand merci, mais j'essai avec =trouve(AjoutéB;"+")

 

[piga25]

Re : extraire une formule

Ré,
C'est mieux. En effet c'est la seconde limite de split

 

[JCGL]

Re : extraire une formule

Bonjour à tous,
Salut Patrick,

Patrick : ce ne serait pas plutôt

;Trouve("+",AjoutéB(D3)))

A++
A+ à tous

 

[piga25]

Re : extraire une formule

Bonjour
Salut Jean Claude

Oui en effet.
En modifiant la seconde formule personnalisée on évite Celles-ci a rallonge.

 

[JBOBO]

Re : extraire une formule

re,

Dans ce cas, tu peux faire un copier/coller de ta colonne dans une colonne adjacente et ensuite tu selectionnes tes donnees, tu fais Remplacer et tu remplaces le = par '= et tu fais remplacer tout. tu auras alors la formule sous format texte et tu appliques ensuite les 2 formules de mon post précedent.

 

[piga25]

Re : extraire une formule

Bonjour,

Juste avec une seule fonction personnalisée qui traite l'ensemble des cas :

Function Isoler(ByVal Cellule As Range, Caractère_avant, Caractère_après As String)
On Error Resume Next
Isoler = Split(Split(Cellule.Formula, Caractère_après)(0), Caractère_avant)(1)
If Err Then Isoler = ""
End Function