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
Daniel.j
Oui avec cette macro de Chris V Sub bordArr() 'ChrisV
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
Daniel
-- FAQ MPFE http://dj.joss.free.fr/faq.htm
"Jaloulou" a écrit dans le message de news: 4b121a32$0$956$
Bonjour à tous Existe t'il un moyen de faire des coins arrondis sur un tableau excel ? MSExcel 2003 sous WinXP Home Merci à tous et bonne journée
Oui
avec cette macro de Chris V
Sub bordArr() 'ChrisV
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
Daniel
--
FAQ MPFE
http://dj.joss.free.fr/faq.htm
"Jaloulou" <NOPUBjacnel59@wanadooNOPUB.fr> a écrit dans le message de news:
4b121a32$0$956$ba4acef3@news.orange.fr...
Bonjour à tous
Existe t'il un moyen de faire des coins arrondis sur un tableau excel ?
MSExcel 2003 sous WinXP Home
Merci à tous et bonne journée
Oui avec cette macro de Chris V Sub bordArr() 'ChrisV
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
Daniel
-- FAQ MPFE http://dj.joss.free.fr/faq.htm
"Jaloulou" a écrit dans le message de news: 4b121a32$0$956$
Bonjour à tous Existe t'il un moyen de faire des coins arrondis sur un tableau excel ? MSExcel 2003 sous WinXP Home Merci à tous et bonne journée
Sam
Bonjour, on peut modifier l'arrondi en rajoutant une ligne Selection.ShapeRange.Adjustments(1) = 0.4
pour 0 on a un carré, pour 0.5 on a un rond Cordialement Michel dit "Sam"
"Daniel.j" a écrit dans le message de news: %
Oui avec cette macro de Chris V Sub bordArr() 'ChrisV
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
Daniel
-- FAQ MPFE http://dj.joss.free.fr/faq.htm
"Jaloulou" a écrit dans le message de news: 4b121a32$0$956$
Bonjour à tous Existe t'il un moyen de faire des coins arrondis sur un tableau excel ? MSExcel 2003 sous WinXP Home Merci à tous et bonne journée
Bonjour,
on peut modifier l'arrondi en rajoutant une ligne
Selection.ShapeRange.Adjustments(1) = 0.4
pour 0 on a un carré, pour 0.5 on a un rond
Cordialement
Michel dit "Sam"
"Daniel.j" <dj@free.fr> a écrit dans le message de news:
%23jz3u5McKHA.5472@TK2MSFTNGP02.phx.gbl...
Oui
avec cette macro de Chris V
Sub bordArr() 'ChrisV
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
Daniel
--
FAQ MPFE
http://dj.joss.free.fr/faq.htm
"Jaloulou" <NOPUBjacnel59@wanadooNOPUB.fr> a écrit dans le message de
news: 4b121a32$0$956$ba4acef3@news.orange.fr...
Bonjour à tous
Existe t'il un moyen de faire des coins arrondis sur un tableau excel ?
MSExcel 2003 sous WinXP Home
Merci à tous et bonne journée
Bonjour, on peut modifier l'arrondi en rajoutant une ligne Selection.ShapeRange.Adjustments(1) = 0.4
pour 0 on a un carré, pour 0.5 on a un rond Cordialement Michel dit "Sam"
"Daniel.j" a écrit dans le message de news: %
Oui avec cette macro de Chris V Sub bordArr() 'ChrisV
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
Daniel
-- FAQ MPFE http://dj.joss.free.fr/faq.htm
"Jaloulou" a écrit dans le message de news: 4b121a32$0$956$
Bonjour à tous Existe t'il un moyen de faire des coins arrondis sur un tableau excel ? MSExcel 2003 sous WinXP Home Merci à tous et bonne journée
jean
Avec mes excuses Ceci est un essai de connexion
"Jaloulou" a écrit dans le message de news:4b121a32$0$956$
Bonjour à tous Existe t'il un moyen de faire des coins arrondis sur un tableau excel ? MSExcel 2003 sous WinXP Home Merci à tous et bonne journée
Avec mes excuses
Ceci est un essai de connexion
"Jaloulou" <NOPUBjacnel59@wanadooNOPUB.fr> a écrit dans le message de
news:4b121a32$0$956$ba4acef3@news.orange.fr...
Bonjour à tous
Existe t'il un moyen de faire des coins arrondis sur un tableau excel ?
MSExcel 2003 sous WinXP Home
Merci à tous et bonne journée
