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

Signaler
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
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

2 réponses

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
581
Bonjour delta70 et Vaucluse,

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

Cela doit fonctionner.
A tester
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60900 internautes nous ont dit merci ce mois-ci

Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Merci bien pilas
Messages postés
25307
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
23 septembre 2020
5 483
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
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
Merci bien Vaucluse