Discussion :

[bundy_al01]

Bonjour,

j'ai le problème suivant avec ces 2 fonctions :

Dans ma cellule "A5" par exemple, j'ai la formule suivante : (=Toto!C5557) qui retourne la valeur 0.755477

Toto étant un autre onglet dans mon classeur.

Si j'utilise les fonctions suivantes :

left(A5,len(A5)-1), j'obtiens 0.75547

( avec find("!",A5), j'ai #VALUE! )

Comment faire pour que les fonctions "find" et "left" utilisent le texte de la formule de ma cellule de référence ("A5") au lieu d'utiliser sa valeur ?

ie : pour avoir left(A5,len(A5)-1) qui me retournera =Toto!C555

Merci.

[Philippe Tulliez]

Bonjour,
Sauf ignorance ou trou de mémoire de ma part, il n'y a pas de solution autre que de passer par une fonction personnalisée d'excel ou utiliser la formule LIRE.CELLULE (fonction macro 95)
Solution 1 avec la formule LIRE.CELLULE
Si la cellule contenant la formule se trouve en cellule A2 de feuille nommée [Feuil1] se positionner sur une cellule libre de la même ligne (par exemple D2)
Créer un nom à l'aide du gestionnaire des noms par exemple cnFormula et entrer cette formule dans Fait Référence à

Code :

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

=LIRE.CELLULE(41;Feuil1!A2)

Attention de veiller que ce soit bien une référence relative
et confirmer
Ensuite en D2, entrer

Code :

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

=cnFormula

Cette formule nommée renverra la formule se trouvant 3 colonne à gauche et permettra ainsi d'être imbriquée dans des formule de la catégorie Texte comme GAUCHE, DROITE, etc.
A partir de n'importe quelle cellule se trouvant 3 colonnes à droite de la cellule contenant une formule la
Attention que cette formule est considérée comme une macro, il faut donc sauver ce classeur comme tel (xlsm) ou en version 97/2003 (xls)
Solution 2 : Plus souple à utiliser.
Dans un module VBA, entrer ces lignes de code

Code :

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

1
2
3
Function ReadFormula(Cel As Range) As String
 ReadFormula = Cel.Formula
End Function

Depuis n'importe quelle cellule entrer cette formule (pour l'exemple A2)

Code :

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

=ReadFormula(A2)

[bundy_al01]

Merci

[78chris]

Bonjour

Je me permets de squatter ce fil, pardonnez-moi : Philippe ta boîte MP est full et j'ai besoin de te contacter.