fopy12
Habitué
salut le forum,
avec ce code, je veux copier et coller des données de la feuille 1 à la feuille 2 si les cellules de la colone 1 contient 1050.
et je veux mettre un lien entre ces deux feuilles de façon à ce que si il ya une modif dans une des feuilles, l'autre en tienne compte
a votre avis, qu'est ce qui cloche sur ce code? Merci
avec ce code, je veux copier et coller des données de la feuille 1 à la feuille 2 si les cellules de la colone 1 contient 1050.
et je veux mettre un lien entre ces deux feuilles de façon à ce que si il ya une modif dans une des feuilles, l'autre en tienne compte
a votre avis, qu'est ce qui cloche sur ce code? Merci
Code:
Sub testlinktrue()
'Pour le site 1050, copier et coller dans feuille Finistère sud
Dim i As Integer
Dim j As Integer
Dim x As Worksheet
Dim y As Worksheet
Sheets("Feuil1").Range("A1:L1").Copy
ActiveSheet.Paste Destination:=Worksheets("Feuil2").Range("A1:L1")
Set x = Worksheets("Feuil1")
Set y = Worksheets("Feuil2")
j = 2
For i = 3 To 10000
If x.Cells(i, 1).Text = "1050" Then
x.Range(x.Cells(i, 1), x.Cells(i, 11)).Copy
y.Range(y.Cells(j, 1), y.Cells(j, 11)).Activate
ActiveSheet.Paste link:=True
j = j + 1
End If
Next
Application.CutCopyMode = False
End Sub