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

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- - Dernière réponse : delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- 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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
1857
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
12 juillet 2019
524
1
Merci
Bonjour delta70 et Vaucluse,

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

Cela doit fonctionner.
A tester

Dire « Merci » 1

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

CCM 60207 internautes nous ont dit merci ce mois-ci

delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Merci bien pilas
Messages postés
24376
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
13 septembre 2019
4759
0
Merci
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
delta70
Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Merci bien Vaucluse