Discussion :

[ALEX80800]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ALEX80800]

C'est tout bête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour,

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

Sinon en l'état :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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