afficher le contenu de la barre de formule dans une cellule

R@chid

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2013

• #2

Re : afficher le contenu de la barre de formule dans une cellule

Bonjour,
Voir ça te convient..
@ + +

 

Pièces jointes

• kinel.xlsm

  10.2 KB · Affichages: 57

Dernière édition: 21 Août 2013

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 21 Août 2013

• #3

Re : afficher le contenu de la barre de formule dans une cellule

bonjour R@chid

merci pour cette réponse
ce n'est pas tout à fait ce que je cherche
en fait je voudrai retrouver les possibilités de modification comme dans la barre de formule

le pourquoi :

sur certaines cellules de ma feuille le doubleclic est affecté à une autre macro
le seul moyen de modifier leur contenu est donc l'utilisation de la barre de formule
je voudrai donc l'intégrer à ma feuille pour plus de facilité d'usage et aussi pour ne plus afficher cette barre d'origine sur ma feuille

Kinel

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 21 Août 2013

• #4

Re : afficher le contenu de la barre de formule dans une cellule

Bonjour à tous,

Si tu te places dans la cellule et que tu fais F2, tu peux modifier ta formule directement dans la cellule...

Cordialement

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 21 Août 2013

• #5

Re : afficher le contenu de la barre de formule dans une cellule

bonjour mécano41

bien vu !
merci

kinel

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 21 Août 2013

• #6

Re : afficher le contenu de la barre de formule dans une cellule

Re

j'ai essayé ça mais sans grand succès

Application.SendKeys "%{F2}"

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Août 2013

• #7

Re : afficher le contenu de la barre de formule dans une cellule

Bonjour, le Fil, le Forum,

Une suggestion avec ce code, lequel affiche la (les) formule(s) en commentaire(s).

Code:

Sub Formule_dans_commentaire()
    On Error Resume Next
    For Each c In Cells.SpecialCells(xlCellTypeFormulas)
        If Not c.Comment Is Nothing Then c.Comment.Delete
        With c
            .AddComment c.Formula
            .Comment.Visible = False
            .Comment.Shape.TextFrame.AutoSize = True
        End With
    Next
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif