Comment permuter entre l'affichage des formules et leurs valeurs .
5 réponses
Sylvain
Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur l'enssemble de la
feuille de calul ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur l'enssemble de la
feuille de calul ?
Merci .
Bonjour,
Sub titi()
For Each c In Selection
c.Value = "'" & c.FormulaLocal
Next
End Sub
Sub titi2()
For Each c In Selection
c.Value = Application.Substitute(c, "'", "")
SendKeys "{f2}~"
Next
End Sub
Camille
-----Message d'origine-----
Est-il possible de permuter entre l'affichage des
formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
l'enssemble de la
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur l'enssemble de la
feuille de calul ?
Merci .
Sylvain
Merci pour l'info, est-ce qu'il est possible d'obtenir le même résultat mais en utilisant les fonctions et sans faire de macro ? Le but étant de voir s'afficher dans 2 cellules la valeur et la formule correspondante ? D'avance merci
Bonjour,
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur l'enssemble de la
feuille de calul ?
Merci .
Merci pour l'info,
est-ce qu'il est possible d'obtenir le même résultat mais en utilisant les
fonctions et sans faire de macro ?
Le but étant de voir s'afficher dans 2 cellules la valeur et la formule
correspondante ?
D'avance merci
Bonjour,
Sub titi()
For Each c In Selection
c.Value = "'" & c.FormulaLocal
Next
End Sub
Sub titi2()
For Each c In Selection
c.Value = Application.Substitute(c, "'", "")
SendKeys "{f2}~"
Next
End Sub
Camille
-----Message d'origine-----
Est-il possible de permuter entre l'affichage des
formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
l'enssemble de la
Merci pour l'info, est-ce qu'il est possible d'obtenir le même résultat mais en utilisant les fonctions et sans faire de macro ? Le but étant de voir s'afficher dans 2 cellules la valeur et la formule correspondante ? D'avance merci
Bonjour,
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur l'enssemble de la
feuille de calul ?
Merci .
Ellimac
Pas à ma connaissance. Par contre toujours en macro il est possible de créer la fonction personnalisée affichant la formule d'une cellule :
Public Function F(Cellule) Application.Volatile F = Cellule.FormulaLocal End Function
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
l'enssemble de la
feuille de calul ?
Merci .
.
Pas à ma connaissance. Par contre toujours en macro il est
possible de créer la fonction personnalisée affichant la
formule d'une cellule :
Public Function F(Cellule)
Application.Volatile
F = Cellule.FormulaLocal
End Function
Sub titi()
For Each c In Selection
c.Value = "'" & c.FormulaLocal
Next
End Sub
Sub titi2()
For Each c In Selection
c.Value = Application.Substitute(c, "'", "")
SendKeys "{f2}~"
Next
End Sub
Camille
-----Message d'origine-----
Est-il possible de permuter entre l'affichage des
formules et leurs valeurs
sur une plage de cellules en particulier et non pas
sur
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
l'enssemble de la
feuille de calul ?
Merci .
.
Sylvain
Merci Camille, c'est exactement ce que je voulais faire !
Pas à ma connaissance. Par contre toujours en macro il est possible de créer la fonction personnalisée affichant la formule d'une cellule :
Public Function F(Cellule) Application.Volatile F = Cellule.FormulaLocal End Function
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
l'enssemble de la
feuille de calul ?
Merci .
.
Merci Camille,
c'est exactement ce que je voulais faire !
Pas à ma connaissance. Par contre toujours en macro il est
possible de créer la fonction personnalisée affichant la
formule d'une cellule :
Public Function F(Cellule)
Application.Volatile
F = Cellule.FormulaLocal
End Function
Sub titi()
For Each c In Selection
c.Value = "'" & c.FormulaLocal
Next
End Sub
Sub titi2()
For Each c In Selection
c.Value = Application.Substitute(c, "'", "")
SendKeys "{f2}~"
Next
End Sub
Camille
-----Message d'origine-----
Est-il possible de permuter entre l'affichage des
formules et leurs valeurs
sur une plage de cellules en particulier et non pas
sur
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
l'enssemble de la
feuille de calul ?
Merci .
.
ChrisV
Bonjour Sylvain,
On pourrait aussi avoir les formules correspondantes dans un commentaire associé aux cellules...
Sub zaza() For Each c In Selection If c.HasFormula Then c.AddComment.Text Text:¬tiveCell.FormulaLocal c.Comment.Shape.TextFrame.AutoSize = True End If Next c End Sub
ChrisV
"Sylvain" a écrit dans le message de news:
Merci Camille, c'est exactement ce que je voulais faire !
Pas à ma connaissance. Par contre toujours en macro il est possible de créer la fonction personnalisée affichant la formule d'une cellule :
Public Function F(Cellule) Application.Volatile F = Cellule.FormulaLocal End Function
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
l'enssemble de la
feuille de calul ?
Merci .
.
Bonjour Sylvain,
On pourrait aussi avoir les formules correspondantes dans un commentaire
associé aux cellules...
Sub zaza()
For Each c In Selection
If c.HasFormula Then
c.AddComment.Text Text:¬tiveCell.FormulaLocal
c.Comment.Shape.TextFrame.AutoSize = True
End If
Next c
End Sub
ChrisV
"Sylvain" <Sylvain@discussions.microsoft.com> a écrit dans le message de
news: 1E6B783F-B6F7-4C31-BA5D-8D7E0991BEFB@microsoft.com...
Merci Camille,
c'est exactement ce que je voulais faire !
Pas à ma connaissance. Par contre toujours en macro il est
possible de créer la fonction personnalisée affichant la
formule d'une cellule :
Public Function F(Cellule)
Application.Volatile
F = Cellule.FormulaLocal
End Function
Sub titi()
For Each c In Selection
c.Value = "'" & c.FormulaLocal
Next
End Sub
Sub titi2()
For Each c In Selection
c.Value = Application.Substitute(c, "'", "")
SendKeys "{f2}~"
Next
End Sub
Camille
-----Message d'origine-----
Est-il possible de permuter entre l'affichage des
formules et leurs valeurs
sur une plage de cellules en particulier et non pas
sur
On pourrait aussi avoir les formules correspondantes dans un commentaire associé aux cellules...
Sub zaza() For Each c In Selection If c.HasFormula Then c.AddComment.Text Text:¬tiveCell.FormulaLocal c.Comment.Shape.TextFrame.AutoSize = True End If Next c End Sub
ChrisV
"Sylvain" a écrit dans le message de news:
Merci Camille, c'est exactement ce que je voulais faire !
Pas à ma connaissance. Par contre toujours en macro il est possible de créer la fonction personnalisée affichant la formule d'une cellule :
Public Function F(Cellule) Application.Volatile F = Cellule.FormulaLocal End Function
Sub titi() For Each c In Selection c.Value = "'" & c.FormulaLocal Next End Sub Sub titi2() For Each c In Selection c.Value = Application.Substitute(c, "'", "") SendKeys "{f2}~" Next End Sub
Camille
-----Message d'origine----- Est-il possible de permuter entre l'affichage des formules et leurs valeurs
sur une plage de cellules en particulier et non pas sur
