Bords d'un groupe de cellules fusionnées arrondis Résolu/Fermé

Question

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

Vaucluse · Answer

Bonjour 
pour ma part, je ne vois que la solution de l^lacer l'"adresse à traiter dans la macro sur la ligne Set depart

 Set depart = Range("F10:H10")

je peux aussi utiliser 
 Set depart = Range("INDIRECT(A1)")

en plaçant dans A1 l'adresse complète des cellules fusionnées à traiter 
(Par ex F10:10).

Mais ce n'est qu'un piètre astuce, il y a surement mieux et les chefs VBA sur ce formule vont s'empresser de nous trouver ça

Crdlmnt

pilas31 · Answer

Bonjour delta70 et Vaucluse,

Je propose de remplacer l'instruction :
Set depart = ActiveCell 
par 
Set depart = ActiveCell.MergeArea 
 
Cela doit fonctionner.
A tester

Bords d'un groupe de cellules fusionnées arrondis

2 réponses

Discussions similaires