Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel cellules aux coins arrondis

cellules aux coins arrondis

3 réponses
Avatar
JM
Bonjour,
J'aimerais savoir s'il est possible d'arrondir les coins
d'une cellule avant impression. Sommes-nous condamn=E9s aux
angles droits ?
Merci de vos r=E9ponses
JM
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour JM,

sur une plage sélectionnée...

Sub bordArr()
Dim p1 As Single, p2 As Single, p3 As Single, p4 As Single
Set aC = ActiveCell
With Selection
p1 = .Height
p2 = .Width
p3 = .Top
p4 = .Left
End With
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
p4, p3, p2, p1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
aC.Select
End Sub

Bof... :-7


ChrisV


"JM" a écrit dans le message de news:
f5ba01c3f247$b0cc6190$
Bonjour,
J'aimerais savoir s'il est possible d'arrondir les coins
d'une cellule avant impression. Sommes-nous condamnés aux
angles droits ?
Merci de vos réponses
JM
Avatar
-----Message d'origine-----

Merci ChrisV

J'ai fait le test sur une plage sélectionnée.
Pblème à la ligne Set aC = ActiveCell
aC référence d'objets incorrecte (que je saisisse une ou
plusieurs cellules).
Comment faire pour arrondir un seul coin ?




Bonjour JM,

sur une plage sélectionnée...

Sub bordArr()
Dim p1 As Single, p2 As Single, p3 As Single, p4 As Single
Set aC = ActiveCell
With Selection
p1 = .Height
p2 = .Width
p3 = .Top
p4 = .Left
End With
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
p4, p3, p2, p1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
aC.Select
End Sub

Bof... :-7


ChrisV


"JM" a écrit dans le
message de news:

f5ba01c3f247$b0cc6190$
Bonjour,
J'aimerais savoir s'il est possible d'arrondir les coins
d'une cellule avant impression. Sommes-nous condamnés aux
angles droits ?
Merci de vos réponses
JM


.



Avatar
ChrisV
Re,

aC référence d'objets incorrecte


???

Y'a cas virer la ligne... !

Sub bordArr()
Dim p1 As Single, p2 As Single, p3 As Single, p4 As Single
With Selection
p1 = .Height
p2 = .Width
p3 = .Top
p4 = .Left
End With
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
p4, p3, p2, p1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
End Sub


ChrisV


a écrit dans le message de news:
f50401c3f25d$023c4350$

-----Message d'origine-----

Merci ChrisV

J'ai fait le test sur une plage sélectionnée.
Pblème à la ligne Set aC = ActiveCell
aC référence d'objets incorrecte (que je saisisse une ou
plusieurs cellules).
Comment faire pour arrondir un seul coin ?




Bonjour JM,

sur une plage sélectionnée...

Sub bordArr()
Dim p1 As Single, p2 As Single, p3 As Single, p4 As Single
Set aC = ActiveCell
With Selection
p1 = .Height
p2 = .Width
p3 = .Top
p4 = .Left
End With
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
p4, p3, p2, p1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
aC.Select
End Sub

Bof... :-7


ChrisV


"JM" a écrit dans le
message de news:

f5ba01c3f247$b0cc6190$
Bonjour,
J'aimerais savoir s'il est possible d'arrondir les coins
d'une cellule avant impression. Sommes-nous condamnés aux
angles droits ?
Merci de vos réponses
JM


.