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

juju91

XLDnaute Nouveau
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
 

Pièces jointes

  • COPIER FORMULE MEME CELLULE FEUILLE DIFFEENTE.xlsm
    20 KB · Affichages: 8

job75

XLDnaute Barbatruc
Bonsoir juju91, JHA,

Apparemment vous voulez du double-clic alors le code de la feuille "ORIG" :
VB:
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+
 

Pièces jointes

  • COPIER FORMULE MEME CELLULE FEUILLE DIFFEENTE(1).xlsm
    21.6 KB · Affichages: 6

juju91

XLDnaute Nouveau
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
 

Pièces jointes

  • COPIER FORMULE MEME CELLULE FEUILLE DIFFEENTE V2.xlsm
    40.9 KB · Affichages: 4

juju91

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bon alors :
VB:
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

XLDnaute Nouveau
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
 

Discussions similaires