Arrondir les bords d'un groupe de cellules fusionnées

[chindou]

Bonjour,
Je sais qu'on peut arrondir les bords d'une cellule Excel, on utilisant la macro suivante

Sub CelluleArrondie()
Set depart = ActiveCell
r1 = depart.Height
r2 = depart.Width
r3 = depart.Top
r4 = depart.Left
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, r4, r3, r2, r1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
depart.Select
End Sub

Mais Peut-on arrondir les bordures rectangulaires d'un groupe de cellules
fusionnées ?


Merci pour vos aides
Cordialement

 

[Hervé]

Re : Arrondir les bords d'un groupe de cellules fusionnées

salut

as tu essayé :

Set depart = Selection

a plus

 

[Si...]

Re : Arrondir les bords d'un groupe de cellules fusionnées

salut

Bonjour,
Je sais qu'on peut arrondir les bords d'une cellule Excel, on utilisant la macro suivante
...

bien sûr ce ne sont pas les bords d'une cellule qui sont arrondis . La macro ajoute une forme "aux bords arrondis".
Pour une plge de cellules (fusionnées ou pas), comme le propose Hervé,

Sub Bord_Plage()
  With Selection
    ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, .Left, .Top, .Width, .Height).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
  End With
  ActiveCell(0, 0).Select 'pour éliminer la sélection de la forme
End Sub

 

[chindou]

Re : Arrondir les bords d'un groupe de cellules fusionnées

Merci bien Si

 

[chindou]

Re : Arrondir les bords d'un groupe de cellules fusionnées

Merci bien Hervé