me revoilà avec un problème. Je n'arrive pas à trouver de solutions pour
afficher uniquement dans une cellule ou un groupe de cellules, les formules
que j'emploie et garder dans d'autres cellules les résultats. Ni (ctrl+ ")
ni Outil /options / ne me sont d'un secours.
Je désire avoir dans A3 le résultat de la formule
A1*A2 = 24 (elle me donne le résultat)
et dans A4
l'affichage de la formule utilisée de l'opération faite en A3.
Un grand merci à qui peut m'aider.
Autre suggestion : A la saisie, afficher la formule (si il y en a une) dans le commentaire de la cellule dans laquelle elle est contenue
A mettre dans le module de la feuille et valide (à adapter) pour la plage A1:A10 :
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub With zz .ClearComments If .HasFormula = True Then .AddComment .Comment.Text Text:=.FormulaLocal .Comment.Shape.TextFrame.AutoSize = True With .Comment.Shape.OLEFormat.Object.Font .Name = "ArialNarrow" .Size = 6 .Color = vbRed End With End If End With End Sub
AV
Autre suggestion : A la saisie, afficher la formule (si il y en a une) dans le
commentaire de la cellule dans laquelle elle est contenue
A mettre dans le module de la feuille et valide (à adapter) pour la plage A1:A10
:
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub
With zz
.ClearComments
If .HasFormula = True Then
.AddComment
.Comment.Text Text:=.FormulaLocal
.Comment.Shape.TextFrame.AutoSize = True
With .Comment.Shape.OLEFormat.Object.Font
.Name = "ArialNarrow"
.Size = 6
.Color = vbRed
End With
End If
End With
End Sub
Autre suggestion : A la saisie, afficher la formule (si il y en a une) dans le commentaire de la cellule dans laquelle elle est contenue
A mettre dans le module de la feuille et valide (à adapter) pour la plage A1:A10 :
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub With zz .ClearComments If .HasFormula = True Then .AddComment .Comment.Text Text:=.FormulaLocal .Comment.Shape.TextFrame.AutoSize = True With .Comment.Shape.OLEFormat.Object.Font .Name = "ArialNarrow" .Size = 6 .Color = vbRed End With End If End With End Sub
AV
Nadia.b
Bonjour Grand V parmi les Grands "V" comme d'habitude, je n'y suis pas arrivée du premier coup. Je les ai d'abord mises dans la feuil1, puis dans un module et par la suite dans thisworkbook, mais je n'y arrive pas. J'ai même corriger [A1:A10] en [C1:C10], car ce sont une partie des cellules que j'utilise pour ces tests. Mais n'y aurait-il pas moyen d'adapter la manière de michdenis pour que les cellules de la colonne D affiche les formules contenues dans les cellules de la colonne C ? Merci à toi pour ton aide. Nadia
"AV" a écrit dans le message de news:
Autre suggestion : A la saisie, afficher la formule (si il y en a une) dans le
commentaire de la cellule dans laquelle elle est contenue
A mettre dans le module de la feuille et valide (à adapter) pour la plage A1:A10
:
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub With zz .ClearComments If .HasFormula = True Then .AddComment .Comment.Text Text:=.FormulaLocal .Comment.Shape.TextFrame.AutoSize = True With .Comment.Shape.OLEFormat.Object.Font .Name = "ArialNarrow" .Size = 6 .Color = vbRed End With End If End With End Sub
AV
Bonjour Grand V parmi les Grands "V"
comme d'habitude, je n'y suis pas arrivée du premier coup.
Je les ai d'abord mises dans la feuil1, puis dans un module et par la suite
dans thisworkbook, mais je n'y arrive pas.
J'ai même corriger [A1:A10] en [C1:C10], car ce sont une partie des cellules
que j'utilise pour ces tests.
Mais n'y aurait-il pas moyen d'adapter la manière de michdenis pour que les
cellules de la colonne D affiche les formules contenues dans les cellules de
la colonne C ?
Merci à toi pour ton aide.
Nadia
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:eMQUjwiKGHA.3728@tk2msftngp13.phx.gbl...
Autre suggestion : A la saisie, afficher la formule (si il y en a une)
dans le
commentaire de la cellule dans laquelle elle est contenue
A mettre dans le module de la feuille et valide (à adapter) pour la plage
A1:A10
:
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub
With zz
.ClearComments
If .HasFormula = True Then
.AddComment
.Comment.Text Text:=.FormulaLocal
.Comment.Shape.TextFrame.AutoSize = True
With .Comment.Shape.OLEFormat.Object.Font
.Name = "ArialNarrow"
.Size = 6
.Color = vbRed
End With
End If
End With
End Sub
Bonjour Grand V parmi les Grands "V" comme d'habitude, je n'y suis pas arrivée du premier coup. Je les ai d'abord mises dans la feuil1, puis dans un module et par la suite dans thisworkbook, mais je n'y arrive pas. J'ai même corriger [A1:A10] en [C1:C10], car ce sont une partie des cellules que j'utilise pour ces tests. Mais n'y aurait-il pas moyen d'adapter la manière de michdenis pour que les cellules de la colonne D affiche les formules contenues dans les cellules de la colonne C ? Merci à toi pour ton aide. Nadia
"AV" a écrit dans le message de news:
Autre suggestion : A la saisie, afficher la formule (si il y en a une) dans le
commentaire de la cellule dans laquelle elle est contenue
A mettre dans le module de la feuille et valide (à adapter) pour la plage A1:A10
:
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub With zz .ClearComments If .HasFormula = True Then .AddComment .Comment.Text Text:=.FormulaLocal .Comment.Shape.TextFrame.AutoSize = True With .Comment.Shape.OLEFormat.Object.Font .Name = "ArialNarrow" .Size = 6 .Color = vbRed End With End If End With End Sub
AV
JB
Bonjour,
http://cjoint.com/?cfosVQQtV2
Dans un module alt+F11 puis Insertion/module
Function AfficheFormule(c) AfficheFormule = c.Formula End Function
Dans le tableur: ¯ficheFormule(A3)
Cordialement JB
Bonjour,
http://cjoint.com/?cfosVQQtV2
Dans un module alt+F11 puis Insertion/module
Function AfficheFormule(c)
AfficheFormule = c.Formula
End Function
Function AfficheFormule(c) AfficheFormule = c.Formula End Function
Dans le tableur: ¯ficheFormule(A3)
Cordialement JB
Nadia.b
Cher JB, Merci pour le fichier. Ce système me convient très bien. J'ai mes résultats sur les lignes ou les colonnes, et les formules qui s'affichent à côté. Merci à toi et je profite aussi pour remercier les autres intervenants pour m'avoir donné un coup de main. A bientôt Nadia
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?cfosVQQtV2
Dans un module alt+F11 puis Insertion/module
Function AfficheFormule(c) AfficheFormule = c.Formula End Function
Dans le tableur: ¯ficheFormule(A3)
Cordialement JB
Cher JB,
Merci pour le fichier. Ce système me convient très bien.
J'ai mes résultats sur les lignes ou les colonnes, et les formules qui
s'affichent à côté.
Merci à toi et je profite aussi pour remercier les autres intervenants pour
m'avoir donné un coup de main.
A bientôt
Nadia
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:1139145553.054014.84080@g14g2000cwa.googlegroups.com...
Bonjour,
http://cjoint.com/?cfosVQQtV2
Dans un module alt+F11 puis Insertion/module
Function AfficheFormule(c)
AfficheFormule = c.Formula
End Function
Cher JB, Merci pour le fichier. Ce système me convient très bien. J'ai mes résultats sur les lignes ou les colonnes, et les formules qui s'affichent à côté. Merci à toi et je profite aussi pour remercier les autres intervenants pour m'avoir donné un coup de main. A bientôt Nadia
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?cfosVQQtV2
Dans un module alt+F11 puis Insertion/module
Function AfficheFormule(c) AfficheFormule = c.Formula End Function
Dans le tableur: ¯ficheFormule(A3)
Cordialement JB
AV
| Je les ai d'abord mises dans la feuil1, puis dans un module et par la suite | dans thisworkbook, mais je n'y arrive pas. | J'ai même corriger [A1:A10] en [C1:C10], car ce sont une partie des cellules | que j'utilise pour ces tests.
http://cjoint.com/?cfpjQ4pgus
AV
| Je les ai d'abord mises dans la feuil1, puis dans un module et par la suite
| dans thisworkbook, mais je n'y arrive pas.
| J'ai même corriger [A1:A10] en [C1:C10], car ce sont une partie des cellules
| que j'utilise pour ces tests.
| Je les ai d'abord mises dans la feuil1, puis dans un module et par la suite | dans thisworkbook, mais je n'y arrive pas. | J'ai même corriger [A1:A10] en [C1:C10], car ce sont une partie des cellules | que j'utilise pour ces tests.
http://cjoint.com/?cfpjQ4pgus
AV
Modeste
Bonsour® JB :
Comme cerise sur le gateau et pour plus d'exhaustivité dans les formulations US ou locale, A1 ou R1C1, matricielle
eventuellement assistance à la traduction pour VBA
http://cjoint.com/?cfqsF3AHYv
;o)))
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsour® JB :
Comme cerise sur le gateau et pour plus d'exhaustivité dans les formulations
US ou locale,
A1 ou R1C1,
matricielle
eventuellement assistance à la traduction pour VBA
http://cjoint.com/?cfqsF3AHYv
;o)))
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
