Cellule à bord rond ?

[hydrialis]

Comment réaliser des tableaux avec des cellules dont les bords seraient 'ronds' ?
MERCI

 

[Gérard DEZAMIS]

Bonsoir Hydrialis
Pas de Bonjour ...
Un merci qui est hurlé...
Bon ...
Faux départ !
La lecture de la charte s'impose
En attendant
de nos 'voisins' S.Garneau & JPSabatier

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

Bonne nuit

@+GD