je viens de creer une macro qui detecte l'ensemble de cellules modifiées dans un fichier " test1" afin de faire la correspondance avec un autre fichier " test2" pour changer la valeur d'un parametre suite au chngement de test 1

mon souci et de comment je peux recupérer les cellues modifiées de "test1"

j'ai commencé par le code ci-aprés :
la manipulation de ce code est quasi-correcte saul le seul probleme :
si la cellule est vide ,aprés le remplissage il recupere les coordonnées de la cellule : le cas souhaité
si la cellule est rempli deja , juste un click sur cette cellule permet de recuperer ses coordonées : la ou il est le probleme


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("AE:AE"), Range(Target.Address)) Is Nothing Then
 
Call change
 
End If
End Sub
 
 
 
Sub change()
 
Set dep = ActiveWorkbook
Dim y As Long
Dim nom As String
 
M = dep.Worksheets("link").Range("M" & Rows.Count).End(xlUp).Row + 1
 
y = ActiveCell.Row
 
If ThisWorkbook.Worksheets("base").Range("AE" & y) <> "" Then
 
'*****************
nom = Range("S" & y).Value
dep.Worksheets("link").Cells(M, 13) = nom
dep.Worksheets("link").Cells(M, 14) = Range("D" & y).Value
 
End If
 
'*****************
End Sub