Recuperer target.address pour utiliser formule calcul

Version imprimable

Bonjour,

Je n'arrive à convertir et/ou récupérer l'adresse d'un target dans une variable pour pouvoir l'utiliser ensuite dans une formul de calcul.

Voici un code très simple que j'ai voulu effectué
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_Change(ByVal Target As Range) Dim TxE As Range, Intersection As Range, o As Variant, p As Variant 'j'ai essayé aussi Range mais type non conforme Set TxE = Range("AD118:AY118") p = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) Target.Offset(-1, 0).Formula = "=" & p &""" 'ci dessous ce que j'ai essayé '* Target.Offset(-1, 0).Formula = "=" & p &"'" End sub
Merci de votre aide

C'est tout bête

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
   Dim TxE As Range, Intersection As Range, o As Variant, p As Variant
 
   Set TxE = Range("AD118:AY118")
   p = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
 
 Application.EnableEvents = False
     Target.Offset(-1, 0).Formula = "=" & p
 Application.EnableEvents = True
 
 
 End Sub

Bonjour,

à quoi peuvent bien servir les lignes n°4 & 6 ?!

Sinon en l'état :

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Row > 1 Then
            Application.EnableEvents = False
                 .Offset(-1).Formula = "=" & .Address(False, False)
            Application.EnableEvents = True
        End If
    End With
End Sub