aide concernant un code VBA "Worksheet_Change"
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é :D
si la cellule est rempli deja , juste un click sur cette cellule permet de recuperer ses coordonées : la ou il est le probleme :calim2:
Code:
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 |
