Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive
dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca
fonctionne pas ?
Il me semble pas que cette fonction soit intégrée dans Excel et de ce fait, ça doit être une nouvelle fonction qui doit être copiée dans un module standard..
Est-ce que le code de cette nouvelle fonction est bien présente dans le VBA de ton fichier (ou modèle ) ??
Au fait, où tu a trouvé cette formule, n'avait-il pas le code qui lui correspondait ? Si jamais, Isabelle a été plus rapide que moi et t'a donné le code correspondant (merci Isabelle ;-)) !!
Salutations Dédé "Aiwa" a écrit dans le message de news:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive
dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca
fonctionne pas ?
Merci à l'avance
Salut Aiwa !
Il me semble pas que cette fonction soit intégrée dans Excel et de ce fait,
ça doit être une nouvelle fonction qui doit être copiée dans un module
standard..
Est-ce que le code de cette nouvelle fonction est bien présente dans le VBA
de ton fichier (ou modèle ) ??
Au fait, où tu a trouvé cette formule, n'avait-il pas le code qui lui
correspondait ?
Si jamais, Isabelle a été plus rapide que moi et t'a donné le code
correspondant (merci Isabelle ;-)) !!
Salutations
Dédé
"Aiwa" <Aiwa@discussions.microsoft.com> a écrit dans le message de
news:EFA2D07E-BE2D-4E36-A129-7B521F1B7880@microsoft.com...
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12
s'écrive
dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais
ca
Il me semble pas que cette fonction soit intégrée dans Excel et de ce fait, ça doit être une nouvelle fonction qui doit être copiée dans un module standard..
Est-ce que le code de cette nouvelle fonction est bien présente dans le VBA de ton fichier (ou modèle ) ??
Au fait, où tu a trouvé cette formule, n'avait-il pas le code qui lui correspondait ? Si jamais, Isabelle a été plus rapide que moi et t'a donné le code correspondant (merci Isabelle ;-)) !!
Salutations Dédé "Aiwa" a écrit dans le message de news:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive
dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca
fonctionne pas ?
Merci à l'avance
Aiwa
Peut-on le faire sans VBA
bonjour Aiwa,
Function LireFormule(cellule As Range) LireFormule = "'" & cellule.Formula End Function
Bonsour®Aiwa, il s'agit d'une fonction personnalisée qu'il faut inclure dans un module standard :
Function LireFormule(Target) Application.Volatile ' pour forcer la re-évaluation If Target.HasArray Then LireFormule = "'{" & Target.FormulaLocal & "}" Else LireFormule = "' " & Target.FormulaLocal End If End Function
la fonction apparait alors parmi les fonctions personnalisées via le bouton fx dans la barre de formule
utilisation : =LireFormule(A1)
@+ wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca fonctionne pas ?
Merci à l'avance
Bonsour®Aiwa,
il s'agit d'une fonction personnalisée qu'il faut inclure dans un module
standard :
Function LireFormule(Target)
Application.Volatile ' pour forcer la re-évaluation
If Target.HasArray Then
LireFormule = "'{" & Target.FormulaLocal & "}"
Else
LireFormule = "' " & Target.FormulaLocal
End If
End Function
la fonction apparait alors parmi les fonctions personnalisées via le bouton
fx dans la barre de formule
utilisation :
=LireFormule(A1)
@+
wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12
s'écrive dans la cellule B20 , j'écrit dans la cellule B20
=LireFormule(A12) mais ca fonctionne pas ?
Bonsour®Aiwa, il s'agit d'une fonction personnalisée qu'il faut inclure dans un module standard :
Function LireFormule(Target) Application.Volatile ' pour forcer la re-évaluation If Target.HasArray Then LireFormule = "'{" & Target.FormulaLocal & "}" Else LireFormule = "' " & Target.FormulaLocal End If End Function
la fonction apparait alors parmi les fonctions personnalisées via le bouton fx dans la barre de formule
utilisation : =LireFormule(A1)
@+ wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca fonctionne pas ?
Merci à l'avance
Aiwa
Merci à vous tous
Bonsour®Aiwa, il s'agit d'une fonction personnalisée qu'il faut inclure dans un module standard :
Function LireFormule(Target) Application.Volatile ' pour forcer la re-évaluation If Target.HasArray Then LireFormule = "'{" & Target.FormulaLocal & "}" Else LireFormule = "' " & Target.FormulaLocal End If End Function
la fonction apparait alors parmi les fonctions personnalisées via le bouton fx dans la barre de formule
utilisation : =LireFormule(A1)
@+ wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca fonctionne pas ?
Merci à l'avance
Merci à vous tous
Bonsour®Aiwa,
il s'agit d'une fonction personnalisée qu'il faut inclure dans un module
standard :
Function LireFormule(Target)
Application.Volatile ' pour forcer la re-évaluation
If Target.HasArray Then
LireFormule = "'{" & Target.FormulaLocal & "}"
Else
LireFormule = "' " & Target.FormulaLocal
End If
End Function
la fonction apparait alors parmi les fonctions personnalisées via le bouton
fx dans la barre de formule
utilisation :
=LireFormule(A1)
@+
wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12
s'écrive dans la cellule B20 , j'écrit dans la cellule B20
=LireFormule(A12) mais ca fonctionne pas ?
Bonsour®Aiwa, il s'agit d'une fonction personnalisée qu'il faut inclure dans un module standard :
Function LireFormule(Target) Application.Volatile ' pour forcer la re-évaluation If Target.HasArray Then LireFormule = "'{" & Target.FormulaLocal & "}" Else LireFormule = "' " & Target.FormulaLocal End If End Function
la fonction apparait alors parmi les fonctions personnalisées via le bouton fx dans la barre de formule
utilisation : =LireFormule(A1)
@+ wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca fonctionne pas ?
Merci à l'avance
Starwing
Bonjour AIWA,
Peut-on le faire sans VBA?
Oui!
Insertion - Nom - Définir : ObtenirFormule Fait référrence à: =LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE();COLONNE()-1))) ' A adapter pour tes besoins.
En A1: la formule suivante: 5*4 te retournes 500 En B1: =ObtenirFormule, cela te retourneras 5*4
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
--
Bonjour AIWA,
Peut-on le faire sans VBA?
Oui!
Insertion - Nom - Définir : ObtenirFormule
Fait référrence à:
=LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE();COLONNE()-1))) ' A adapter pour tes
besoins.
En A1: la formule suivante: 5*4 te retournes 500
En B1: =ObtenirFormule, cela te retourneras 5*4
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
Insertion - Nom - Définir : ObtenirFormule Fait référrence à: =LIRE.CELLULE(6;INDIRECT(ADRESSE(LIGNE();COLONNE()-1))) ' A adapter pour tes besoins.
En A1: la formule suivante: 5*4 te retournes 500 En B1: =ObtenirFormule, cela te retourneras 5*4
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
--
Michel Gaboly
Bonsoir Aiwa
Ce n'est probablement pas LireFormule, mais LIRE.FORMULE(),
qui est une fonction Excel disponible dans les feuilles macros, correponsdant à l'ancien langage (Excel 1 à 4), toujours utilisable, sauf que l'enregistrement auto n'est + disponible dans ce langage, ce qui n'aide pas ceux qui par curiosité voudraient le découvrir.
Rien n'empêche bien sûr d'écrire une Function LireFormule() en VBA, comme l'a fait Isabelle.
Pour tester LIRE.FORMULE() :
Ajoute une feuille macro Excel 4 à ton classeur (raccourci clavier Ctrl + F11).
Entre une formule quelconque en A12. Elle reste visible, car contraire- ment à une feuille de calcul, ce sont les formules et non les valeurs qui sont affichées par défaut dans une feuille macro.
Entre ensuite dans une autre cellule :
=LIRE.FORMULE(A12)
suivi de
=RETOUR()
dans la cellule située juste en-dessous (ou + bas dans la même colonne (les cellules vides sont ignorées).
Exécute ensuite la macro en sélectionnant la cellule contenant LIRE.FORMULE(A12), puis en cliquant sur le triangle bleu de la barre d'outils VBA.
Rien ne se passe apparement, mais si tu affiches les valeurs tu verras que la valeur de la cellule correspond à la formule en A12.
Tu peux également remplacer
=LIRE.FORMULE(A12)
par
=ALERTE(=LIRE.FORMULE(A12))
et la formule aparaîtra dans une fenêtre (ALERTE() équivaut à MsgBox en VBA).
Il existe également des feuilles macros Excel 4 internationales, où le nom des fonctions doit être en anglais, quelle que soit la langue de la version d'Excel. Il faut alors remplacer LIRE.FORMULE() par GET.FORMULA() et ALERTE() par ALERTE().
Voilà :-))
Aiwa wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca fonctionne pas ?
Merci à l'avance
Bonsoir Aiwa
Ce n'est probablement pas LireFormule, mais LIRE.FORMULE(),
qui est une fonction Excel disponible dans les feuilles macros,
correponsdant à l'ancien langage (Excel 1 à 4), toujours utilisable,
sauf que l'enregistrement auto n'est + disponible dans ce langage,
ce qui n'aide pas ceux qui par curiosité voudraient le découvrir.
Rien n'empêche bien sûr d'écrire une Function LireFormule() en VBA,
comme l'a fait Isabelle.
Pour tester LIRE.FORMULE() :
Ajoute une feuille macro Excel 4 à ton classeur (raccourci clavier Ctrl
+ F11).
Entre une formule quelconque en A12. Elle reste visible, car contraire-
ment à une feuille de calcul, ce sont les formules et non les valeurs
qui sont affichées par défaut dans une feuille macro.
Entre ensuite dans une autre cellule :
=LIRE.FORMULE(A12)
suivi de
=RETOUR()
dans la cellule située juste en-dessous (ou + bas dans la même colonne
(les cellules vides sont ignorées).
Exécute ensuite la macro en sélectionnant la cellule contenant
LIRE.FORMULE(A12), puis en cliquant sur le triangle bleu de la barre
d'outils VBA.
Rien ne se passe apparement, mais si tu affiches les valeurs tu verras
que la valeur de la cellule correspond à la formule en A12.
Tu peux également remplacer
=LIRE.FORMULE(A12)
par
=ALERTE(=LIRE.FORMULE(A12))
et la formule aparaîtra dans une fenêtre (ALERTE() équivaut à MsgBox en
VBA).
Il existe également des feuilles macros Excel 4 internationales, où le
nom des fonctions doit être en anglais, quelle que soit la langue de la
version d'Excel. Il faut alors remplacer LIRE.FORMULE() par
GET.FORMULA() et ALERTE() par ALERTE().
Voilà :-))
Aiwa wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive
dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca
fonctionne pas ?
Ce n'est probablement pas LireFormule, mais LIRE.FORMULE(),
qui est une fonction Excel disponible dans les feuilles macros, correponsdant à l'ancien langage (Excel 1 à 4), toujours utilisable, sauf que l'enregistrement auto n'est + disponible dans ce langage, ce qui n'aide pas ceux qui par curiosité voudraient le découvrir.
Rien n'empêche bien sûr d'écrire une Function LireFormule() en VBA, comme l'a fait Isabelle.
Pour tester LIRE.FORMULE() :
Ajoute une feuille macro Excel 4 à ton classeur (raccourci clavier Ctrl + F11).
Entre une formule quelconque en A12. Elle reste visible, car contraire- ment à une feuille de calcul, ce sont les formules et non les valeurs qui sont affichées par défaut dans une feuille macro.
Entre ensuite dans une autre cellule :
=LIRE.FORMULE(A12)
suivi de
=RETOUR()
dans la cellule située juste en-dessous (ou + bas dans la même colonne (les cellules vides sont ignorées).
Exécute ensuite la macro en sélectionnant la cellule contenant LIRE.FORMULE(A12), puis en cliquant sur le triangle bleu de la barre d'outils VBA.
Rien ne se passe apparement, mais si tu affiches les valeurs tu verras que la valeur de la cellule correspond à la formule en A12.
Tu peux également remplacer
=LIRE.FORMULE(A12)
par
=ALERTE(=LIRE.FORMULE(A12))
et la formule aparaîtra dans une fenêtre (ALERTE() équivaut à MsgBox en VBA).
Il existe également des feuilles macros Excel 4 internationales, où le nom des fonctions doit être en anglais, quelle que soit la langue de la version d'Excel. Il faut alors remplacer LIRE.FORMULE() par GET.FORMULA() et ALERTE() par ALERTE().
Voilà :-))
Aiwa wrote:
Bonjour, j'ai trouver cette formule , j'aimerais que la formule A12 s'écrive dans la cellule B20 , j'écrit dans la cellule B20 =LireFormule(A12) mais ca fonctionne pas ?
