echanger une d un fichier sur un autre

[laure]

bonjour a tous,
je voudrais remplacer une ligne d un fichier par une autre d un autre fichier lors qu une cellule est identique dans les deux fichiers.

merci

 

[Francis]

Bonjour Laure,

Ceci pourrais-t-il t'être utile :

Dim val1, val2

Sub remplace()
Sheets("Feuil1").Select
val1 = Range("A1")
Sheets("Feuil1").Select
val2 = Range("A1")
If val1 = val2 Then
Sheets("feuil1").Select
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("feuil3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub


Francis

 

[laure]

merci, beaucoup je verai demain, mais ca me serai utile je pense