Bords d'un groupe de cellules fusionnées arrondis
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
-
Bonjour delta70 et Vaucluse,
Je propose de remplacer l'instruction :
Set depart = ActiveCell
par
Set depart = ActiveCell.MergeArea
Cela doit fonctionner.
A tester -
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
