copie d'une bordure de cellule dans une autre cellule

[knaekes]

bonsoir,

je voudrais reproduire la bordure gauche d'une cellule donnée et dessiner la même bordure dans une autre cellule

comment faire?

Sub Macro8()

Cells(64, 81).Borders(xlEdgeLeft).Style = Cells(68, 81).Borders(xlEdgeLeft).Style

End Sub

merci

 

[Hulk]

Re : copie d'une bordure de cellule dans une autre cellule

Slt,

Essaie ceci...

    'Range("CC68").Copy
    'Range("CC64").PasteSpecial Paste:=xlPasteFormats
    'Application.CutCopyMode = False
        
    'OU
    
    Cells(68, 81).Copy
    Cells(64, 81).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

Au fait c'est enregistreur de macro + coup de pinceau de CC68 sur CC64.

À adapter !

 

[DoubleZero]

Re : copie d'une bordure de cellule dans une autre cellule

Bonsoir knaekes, Hulk, le Forum,

Un petit exemple dans le fichier joint.

Seul hic : le type de bordure est invariable.

 

[JNP]

Re : copie d'une bordure de cellule dans une autre cellule

Re Knaekes, salut Hulk, bises 00 🙂,

With Cells(68, 81).Borders(xlEdgeLeft)
    .LineStyle = Cells(64, 81).Borders(xlEdgeLeft).LineStyle
    .ColorIndex = Cells(64, 81).Borders(xlEdgeLeft).ColorIndex
    .TintAndShade = Cells(64, 81).Borders(xlEdgeLeft).TintAndShade
    .Weight = Cells(64, 81).Borders(xlEdgeLeft).Weight
End With

Bonne nuit 😎

 

[knaekes]

Re : copie d'une bordure de cellule dans une autre cellule

Merci pour vos réponses