Discussion :

[simohaba]

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

[unparia]

Bonjour
Je ne comprends pas -->>
ton titre parle de l'évènement Worksheet_Change et ton code traite l'évènement Selection_Change.

[simohaba]

unparia

merci pour votre reponse rapide .

oui j'ai trompé l'evenement , j'ai rectifié l'erreur

voici le nouveau code( ca marche pas toujours ) :

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
32
33
34
35
36
37
 
Private Sub Worksheet_Change(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 = dep.Worksheets("base").Range("S" & y - 1).Value
dep.Worksheets("link").Cells(M, 13) = nom
dep.Worksheets("link").Cells(M, 14) = dep.Worksheets("base").Range("D" & y - 1).Value
 
If ThisWorkbook.Worksheets("base").Range("AE" & y - 1).Value = "" Then
dep.Worksheets("link").Cells(M, 13) = ""
dep.Worksheets("link").Cells(M, 14) = ""
End If
 
'End If
 
'*****************
End Sub

[unparia]

Bien ...
Ce code est inutilement lourd, mais ne comporte aucune erreur visible.
Une erreur sera par contre bien évidemment générée si tu modifies la cellule AE1 (puisque y sera alors = 1 et que, donc, y-1 = 0)
J'ai par ailleurs certaines difficultés à comprendre ce que tu exposes et à deviner la difficulté que tu rencontres et cherches à exposer.