Renvoie de formule dans textbox (pas du resultat de cette formule)

[Evelynetfrancois]

bonjour forum
ma question est dans le titre en fait ..

Est il possible de renvoyer la formule de l'activecell dans une textbox(pas son résultat)
Et l'inverse et t'il possible d'écrire une formule dans une textbox est l’envoyer dans l’activecell ?

MERCI d'avance pour toutes vos sujétions
trés bonne journée à tous
E et F

ps: je ne suis pas du tout dans l'urgence

 

[Dranreb]

Re : Renvoie de formule dans textbox (pas du resultat de cette formule)

Bonjour
Ce n'est pas une réponse mais:
L'objet Range possède 4 propriétés String qui peuvent être échangées en lecture/écriture avec des TextBox:
Formula : en notation A1 native
FormulaLocal : en notation A1 locale (française)
FormulaR1C1 : en notation R1C1
FormulaR1C1Local : en notation L1C1


Salut Job75.

 

[job75]

Re : Renvoie de formule dans textbox (pas du resultat de cette formule)

Bonjour Evelyneetfrancois,

Un exemple ci-joint avec dans le code de l'USF :

Private Sub CommandButton1_Click()
ActiveCell = ""
On Error Resume Next
ActiveCell.FormulaLocal = TextBox1.Text
If Not ActiveCell.HasFormula Then
  MsgBox "Formule erronée..."
  ActiveCell = ""
  TextBox1.SetFocus
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1 = ActiveCell.FormulaLocal
End Sub

Edit : salut Bernard, pas rafraîchi.

A+

 

[Evelynetfrancois]

Re : Renvoie de formule dans textbox (pas du resultat de cette formule)

MERCI dranreb merci job75
1000 merci pour le fichier joint , c est EXACTEMENT ce que j'esperais , super !!!!
bonne soirée à vous
au plaisir de vous lire encore et encore
E et F