Modification de cellule VBA

[biloute91]

Bonjour

j'ai trouvé dans ce forum une macro me permettant d'indiquer et de conserver les modifications d'un tableau.

Dim RgCible As Range
Dim OldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)

Dim WksRapport As Worksheet
Dim Li As Long

Set WksRapport = Worksheets(2)


If Not Intersect(RgCible, Target) Is Nothing Then
With WksRapport
Li = .Range("D65536").End(xlUp).Row + 1
.Cells(Li, 1) = Target.Address
.Cells(Li, 2) = OldValue
.Cells(Li, 3) = Target.Value
.Cells(Li, 4) = Now
End With
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RgCible = Range("Version_RG")
If Not Intersect(RgCible, Target) Is Nothing Then OldValue = Target.Value
End Sub

La restitution se fait sous la forme suivante :
adresse cellule valeur initiale valeur modifiée date et heure
$A$2 11 13 22/08/2006 10:04


Mon probleme est de pouvoir indiquer le contenu de la cellule qui précède celle qui a été modifiée, donc non pas $A$2 mais le contenu de A1

Merci pour votre aide car je suis plus que novice en la matiere

 

[matthieu33]

Re : Modification de cellule VBA

Bonjour biloute91,

Peux-tu essayer ceci ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RgCible = Range("Version_RG")
If Not Intersect(RgCible, Target) Is Nothing Then OldValue = Cells(Target.Row-1,Target.Column)
End Sub

Si cela ne fonctionne pas comme tu veux, pourras-tu me donner la référence de Version_RG ?

Merci

 

[biloute91]

Re : Modification de cellule VBA

Merci,

mais cela ne correspond pas tout à fait à ce que je souhaite.
Je joins un fichier pour être plus clair.
Si je souhaite modifier une cellule de la colonne Version RG, dans l'onglet rapport il apparait la reference de la cellule modifiée, l'ancienne valeur ,la nouvelle valeur de la cellule et la date de modification.
Dans l'exemple, j'ai modifié la cellule B2 mais je souhaite que ce soit le contenu de la cellule A2 qui apparaisse dans le rapport (ie RG1) et non $B$2.

Ta formule , m'indique l'intitulé de la colonne.

J'espere que mes explications sont claires

 

[biloute91]

Re : Modification de cellule VBA

avec le fichier c'est mieux

 

[skoobi]

Re : Modification de cellule VBA

Bonsoir le fil,

je souhaite que ce soit le contenu de la cellule A2 qui apparaisse dans le rapport (ie RG1) et non $B$2.

Dans ce cas il faut modifier cette cellule et pas la version RG car sinon le rapport te donnera la même valeur pour ancienne valeur et valeur modifié non? 😕

A moins que tu comptes modifier les 2 cellules dans ce cas il faut préciser....

 

[matthieu33]

Re : Modification de cellule VBA

Bonsoir Biloute91,

J'ai apporté la correction.
J'espère que cela correspond à ta demande.

.Cells(Li, 1) = Target.Offset(0, -1).Value

à la place de :

.Cells(Li, 1) = Target.Address

 

[biloute91]

Re : Modification de cellule VBA

Bonjour Matthieu33,

merci beaucoup, cela correspond bien à ce que je souhaitait

@+