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
A voir également:
- Bords d'un groupe de cellules fusionnées arrondis
- Comment créer un groupe whatsapp - Guide
- Sous groupe whatsapp - Accueil - WhatsApp
- Formule excel pour additionner plusieurs cellules - Guide
- Créer un groupe facebook - Guide
- Verrouiller cellules excel - Guide
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
Je propose de remplacer l'instruction :
Set depart = ActiveCell
par
Set depart = ActiveCell.MergeArea
Cela doit fonctionner.
A tester
Utilisateur anonyme
Merci bien pilas
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
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