Modifier une formule en texte en formule

[Didou1]

Bonjour,

J'ai besoin d'aide

Il ma falu pour aller plus vite décomposé ma formule en texte, faire mes modifications puis la rasemblé avec CONCATERNER

Maintenant il faut que je la remette en formule.

En vba j'ai trouvé cela en sélectionnant la case AK3 il me remet en AL3 la formule.
Comme j'ai beaucoup de lignes à modifier
je voudrais savoir s'il est possible de faire toutes les lignes de la colonne AK vers la colonne AL

les lignes sont de 3 à 373 s'il faut donner des adresses exactes

Sub x()
Dim s As String
s = [Ak3]
[AL3].FormulaLocal = s

End Sub

 

[A4L9]

Re : Modifier une formule en texte en formule

Bonjour,


a essayer en AL3

=INDIRECT(AK3)

puis étirer vers le bas pour dupliquer la formule. (double cliquer dans le coin bas gauche de la cellule pour la dupliquer automatiquement)

Cdt,

 

[Jack2]

Re : Modifier une formule en texte en formule

Bonjour Didou1,

En l'absence de fichier avec données (non confidentielles), on peut essayer :

Sub x()
Dim s As String
Dim i as Integer
For i = 3 to 373
s = [Ak3]
[AL3].FormulaLocal = s
Next i
End Sub

A+ Jack2

 

[Didou1]

Re : Modifier une formule en texte en formule

Bonjour,

Je ne comprend pas =INDIRECT EN AL3
en AK3 formule avec CONCATENER

 

[Didou1]

Re : Modifier une formule en texte en formule

Bonsoir Jack2,

Il ne remplie que AL3

J'ai tester avec ou sans sélection d'une ou des cellule de 3 à 373

 

[Jack2]

Re : Modifier une formule en texte en formule

Bonjour tout le monde,

Mille excuses, j'ai oublié d'incrémenter et de simplifier :

Sub x()
Dim i As Integer
For i = 3 To 373
Range("AL" & i).FormulaLocal = Range("Ak" & i).Formula
Next i
End Sub

Pas besoin de passer par une chaîne (s)

A+ Jack2

 

[A4L9]

Re : Modifier une formule en texte en formule

bonsoir,

pardon pour mon erreur, INDIRECT renvoie une adresse et non pas une formule...

La formule EVAL du pack MOREFUNC permet cependant de tester une formule écrite en texte, mais cela nécessite son installation, et comme le Vba permet de s'en passer

bonne soirée à tous

 

[Didou1]

Re : Modifier une formule en texte en formule

Re,

La fonction ne fonctioné pas
Par azare j'ai ajouté à la fin

Range("AL" & i).FormulaLocal = Range("Ak" & i).FormulaLocal
Mais il recopie la formule

 

[Jack2]

Re : Modifier une formule en texte en formule

Bonsoir Didou1,

Le mieux c'est peut-être de poster un fichier sans données confidentielles que je vois ce que tu cherches à faire. (Aller en mode avancé, puis cliquer sur l’agrafe et envoyer).

A+ Jack2

 

[Didou1]

Re : Modifier une formule en texte en formule

Re,

Et voila le fichier en jaune ce que cherche à faire

 

[Didou1]

Re : Modifier une formule en texte en formule

Et voila trouvé

Sub Z()
Dim s As String
Dim i As Integer
For i = 3 To 373
s = Range("Ak" & i)
Range("Al" & i).FormulaLocal = s
Next i
End Sub

 

[Jack2]

Re : Modifier une formule en texte en formule

Bonjour Didou1,

Content que tu aies trouvé. La formulation simplifiée de ce que tu cherchais est :

Sub Y()
Dim i As Integer
For i = 3 To 373
Range("Al" & i).FormulaLocal = Range("Ak" & i).Text
Next i
End Sub

A+ Jack2