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

J

JHA

XLDnaute Barbatruc

• 19 Avril 2022

• #2

Bonjour à tous

Tu peux essayer la fonction formuletexte()

JHA

 

Dernière édition: 19 Avril 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Avril 2022

• #3

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

Vote positif 0 Vote négatif

J

juju91

XLDnaute Junior

• 20 Avril 2022

• #4

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

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Avril 2022

• #5

Bonjour juju91,

juju91 à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

J

juju91

XLDnaute Junior

• 20 Avril 2022

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Avril 2022

• #7

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 ?

 

Vote positif 0 Vote négatif

J

juju91

XLDnaute Junior

• 20 Avril 2022

• #8

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

 

Vote positif 0 Vote négatif