Copier coller avec critères de recherche

[cg1980]

Bonjour,
j'ai un ptit problème sur une macro.
Voici ce que je veux faire_
1) copier la plage F:AW sur la ligne correspondant à la date en B2 (14.07.2011) dans cet exemple. (ligne6)
2)coller une ligne en dessous (ligne7)
3)copier collage valeur sur la ligne correpsondant au 14.07.2011 (ligne7) pour éliminer les formules

J'arrive à le faire mais uniquement pour la colonne F. comment dois-faire pour faire l'opération sur la zone F:AW.(j'avais pensé avec un for i=F to AW mais j'arrive pas.
merci
voici mon code
Sub test()
dA = Sheets("Feuil1").Range("b2")
Set rt = Sheets("Feuil1").Columns(1).Find(dA, , xlFormulas, xlWhole)
If Not rt Is Nothing Then
Range("f" & rt.Row).Copy
Range("f" & rt.Row + 1).Select
ActiveSheet.Paste
Range("f" & rt.Row).Value = Range("f" & rt.Row).Value
End If
End Sub

 

[Victor21]

Re : Copier coller avec critères de recherche

Bonsoir, cg1980

Essaie :

Range(Cells(rt.Row, 6), Cells(rt.Row, 49)).Copy
Range(Cells(rt.Row + 1, 6), Cells(rt.Row + 1, 49)).PasteSpecial Paste:=xlPasteAll

Non testé

 

[Grand Chaman Excel]

Re : Copier coller avec critères de recherche

Bonjour,

En faisant une légère modification à ton code :

Sub test()
dA = Sheets("Feuil1").Range("b2")

Set rt = Sheets("Feuil1").Columns(1).Find(dA, , xlFormulas, xlWhole)
If Not rt Is Nothing Then 'cond

Range("f" & rt.Row & ":AW" & rt.Row).Copy
Range("f" & rt.Row + 1).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

End If

End Sub

A+