copier/coller

  • Initiateur de la discussion redfox
  • Date de début
R

redfox

Guest
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.
 
S

STéphane

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
302 292
Messages
2 002 297
Membres
215 543
dernier inscrit
fred936