XL 2019 Récupérer la formule active d'une cellule d'une autre feuille

[juju91]

bonjour à tous,

je souhaiterai récupérer la formule dans la feuille nommé ''ORIG'' la valeur de la cellule sélectionnée sur la feuille1, mais sans passer par un copier formule.
Je suis arrivé a copier la valeur mais pas la formule .
seriez-vous me diriger vers une solution .
Par avance merci .
cdt

 

[JHA]

Bonjour à tous

Tu peux essayer la fonction formuletexte()

JHA

 

[job75]

Bonsoir juju91, JHA,

Apparemment vous voulez du double-clic alors le code de la feuille "ORIG" :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Or Target.Row < 4 Then Exit Sub
Dim i As Variant
Cancel = True
With Sheets("Feuil1") 'nom à adapter
    i = Application.Match(Target, .Columns(1), 0)
    If IsNumeric(i) Then Target(1, 2) = .Cells(i, 2).FormulaR1C1 Else Target(1, 2) = ""
End With
End Sub

Double-clic en colonne A pour copier la formule en "Feuil1".

Les 2 feuilles peuvent être triées et ne sont pas forcément identiques.

A+

 

[juju91]

Bonjour et merci de votre aide .

Juste une petit précision et qui j'ai omis d' expliquer dans mon premier message .
En faite le feuille de destination et de départ ont plusieurs colonne et les formule sont différentes .
je pense que cela complique ma demande désolé.
Mon idée de départ était que si l'opérateur saisie une information et qu'il doive la changer on puisse revenir à la formule d'origine en double cliquant sur le cellule en question.
je me doute que ma demande est ardue, désolé.

Et encore merci de votre temps et vos compétences

Cdt

 

[job75]

Bonjour juju91,

je me doute que ma demande est ardue, désolé.

Elle est surtout pas claire du tout, moi je n'ai rien compris.

A+

 

[juju91]

Désolé
En faite, si je double clique sur la cellule C9 de la feuille 1 il faudrait copier ou récupérer la formule de la même cellule C9 qui est la feuille ORIG .
j'espéré que c'est plus simple comme ça .
encore désolé pour mes explications.

 

[job75]

Bon alors :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Then Exit Sub
Cancel = True
With Target
    .FormulaR1C1 = Sheets("ORIG").Range(.Address).FormulaR1C1
End With
End Sub

Et si les cellules A9 des 2 feuilles ne contiennent pas le même texte ?

 

[juju91]

bonjour Job75
tout d'abord merci de te pencher sur mon problème.
Dans la feuille ''ORIG'' il n'y que des formules aucune pas de modifications.
c'est principe de ce que je souhaitais, avoir toutes les formules dans une feuille pour pourvoir les réutiliser dans une feuille qui elle peut être modifié .
Cdt