Bords d'un groupe de cellules fusionnées arrondis

Résolu/Fermé
Utilisateur anonyme - 23 janv. 2014 à 15:51
 Utilisateur anonyme - 23 janv. 2014 à 18:18
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
A voir également:

2 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
23 janv. 2014 à 16:41
Bonjour delta70 et Vaucluse,

Je propose de remplacer l'instruction :
Set depart = ActiveCell
par
Set depart = ActiveCell.MergeArea

Cela doit fonctionner.
A tester
1
Utilisateur anonyme
23 janv. 2014 à 18:18
Merci bien pilas
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 395
23 janv. 2014 à 16:28
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
0
Utilisateur anonyme
23 janv. 2014 à 18:18
Merci bien Vaucluse
0