copie ligne

[clpegnin]

bonjour,

Dans la macros suivante je compare 2 classeurs selon les element des cellules dans les colonnes i. En cas de valeurs idem je prends la valeur de la cellule i,14 soit z2 du premier classeur que je reporte dans la cellule i,15 du second.Je souhaite remplacer la valeur z2 par la ligne complete?

Sub comparatif()
'Dim i&, z1$, Y As Boolean, c
derligne = Range("i20000").End(xlUp).Row
With Workbooks("prixtest.xls").Sheets(1).Range("i1:i" & derligne)


Workbooks("prixtest2.xls").Activate
derligne = Range("i20000").End(xlUp).Row
For Each o In Workbooks("prixtest2.xls").Sheets(1).Range("i1:i" & derligne)
i = o.Row
z1 = o.Value
z2 = Cells(i, 14).Value
Set c = .Find(z1, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
firstrow = c.Row
Do
Y = True
If (Y) Then

Workbooks("prixtest2.xls").Sheets(2).Cells(firstrow, 15) = z2
End If
Y = False
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Row <> firstrow
firstrow = ""
Else

End If
Next
End With
End Sub
merci d'avance pour votre aide

 

[Spitnolan08]

Re : copie ligne

Bonjour,

Je souhaite remplacer la valeur z2 par la ligne complete?

Pas clair ton histoire...car tu indiques :

soit z2 du premier classeur que je reporte dans la cellule i,15 du second

Si tu recopies une ligne entière tu ne peux pas la recopier en cells(i,15), mais tu remplaces toute la ligne...
A préciser donc.

Cordialement

 

[clpegnin]

Re : copie ligne

Excuse moi je n'ai pas été assez clair.
Je souhaite effectivement copier toute la ligne trouvée dans la feuille 2 du classeur prixtest2;

merci d'avance
amities
claude