copier/coller

[redfox]

je souhaite copier des cellules avec leur cadre (elles sont encardrées par des bordures) et les coller ailleurs.

j'ai donc ce code :

Range(Cells(debut, 1), Cells(debut, 25)).Value = Range(Cells(2, 29), Cells(2, 54)).Value


je veux coller les cellules de (2,25)2,54) à la plage (debut,1)debut,25) avec les bordures.

 

[Marmotte3]

Range("I13")
Selection.Copy Destination:=Range("I14")
Range("I14").Select

Cette commande marche !

Essaye de remplacer Range"..") par cells(..,..)

 

[STéphane]

bonjour

là tu copies tout.
je tente un truc pour copier que les bordures, mais j'arrive pas à le déboguer.

Sub Un_truc_pour_coller_valeurs_et_bordures()
Application.ScreenUpdating = False
debut = 5
Set plage_source = Range(Cells(debut, 1), Cells(debut, 25))
Set plage_cible = Range(Cells(2, 29), Cells(2, 54))
With plage_cible
.Value = plage_source.Value
Dim cl As Range

For j = 1 To plage_cible.Cells.Count

For i = 1 To 4
With .Item(j).Borders(i)
.LineStyle = plage_source.Item(j).Borders(i).LineStyle
.Color = plage_source.Item(j).Borders(i).Color
.Weight = plage_source.Item(j).Borders(i).Weight
End With
Next i
Next j

End With

End Sub

bye
STéphane