Discussion :

[nuriel2]

Bonjour,

Je souhaite, pour diverses raisons, decouper une formule et l'ecrire dans plusieurs cellules. Mon probleme est de recomposer la formule et de l'evaluer. Par exemple, j'ecris dans les cellules A1, A2, A3 les caracteres 5, *, 5. La cellule A4 contiendrait alors la formule obtenue par concatenation: 5*5, tandis que A5 contiendrait son evaluation:25. Avez une idee de la fonction a utiliser pour obtenir le resultat dans A5 ?

D'avance merci.

Nuriel

[Plateforme3]

Bonjour
Par une macro, il y a possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
    Case "$A$1", "$A$2", "$A$3"
        Worksheets("Feuil2").Range("A5").FormulaR1C1 = "=" & Range("A1") & Range("A2") & Range("A3")
End Select
End Sub

A mettre dans le VB de ta feuille
Slts

[nuriel2]

Merci pour cette indication. Dommage qu'il n'y ait pas de solution avec une formule directement ecrite dans la feuille. Je posterai une solution pour l'execution de la macro si j'en trouve une simple.

Merci.

Nuriel

[ullan]

Bonjour,

Sur le site de Laurent Longre, télécharge les macros complémentaires MOREFUNC

Parmi les 59 macros proposées il y a la fonction EVAL qui fait de que tu demandes.
Il te suffuira d'écrire =EVAL(A4) dans une cellule pour obtenir le résultat.

[cafeine]

Hello,

dans le meme genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Evalue(ByVal str As String)
    Evalue = Evaluate(str)
End Function

[nuriel2]

Merci pour ces reponses. EVAL() serait parfait dans mon cas, si ce n'est que le fichier ne peut etre envoye a des utilisateurs n'ayant pas installe les macros.

Je vais donc utiliser la procedure modifiee de Plateforme3.

Merci

Nuriel