celulle

Bonsoir,

une petite recherche sur google et........
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/thread/145cd34a0c52588b/8d997ac0d9339ddd?lnk

--
Salutations
JJ

"Bernard SALIEN" <93206310@wanadoo.fr> a écrit dans le message de news:
%237Fixja2GHA.4164@TK2MSFTNGP05.phx.gbl...

Bonsoir,

j'avais récuperé une macro qui permetait d'arrondir les coins des
celulles. Evidament je l'ai perdue. Quelqu'un possede t-il cette macro ou
y a t-il un site pour cela.?Cordialement

Salut Bernard,

Je ne crois pas qu'on puisse réellement arrondir les coins de cellules
mais on peut tricher en y insérant des rectangles sans remplissage
aux coins arrondis. Par exemple, donne 52 comme hauteur de lignes
et 16 comme largeur de colonnes. Sélectionne alors des cellules
adjacentes ou non et appelle cette macro.
Tu pourrais par la suite enlever le quadrillage.

Sub Arrondir_Coins()
For Each C In Selection
L = C.Left
T = C.Top
W = C.Width
H = C.Height
With ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 10, 10,
10, 10)
.Fill.Visible = msoFalse
.Left = L
.Top = T
.Width = W
.Height = H
End With
Next C
End Sub

Serge


"Bernard SALIEN" <93206310@wanadoo.fr> a écrit dans le message de news:
%237Fixja2GHA.4164@TK2MSFTNGP05.phx.gbl...

Bonsoir,

j'avais récuperé une macro qui permetait d'arrondir les coins des
celulles. Evidament je l'ai perdue. Quelqu'un possede t-il cette macro ou
y a t-il un site pour cela.?Cordialement

Plus court :

Sub Arrondir_Coins()
For Each c In Selection
ActiveSheet.Shapes.AddShape _
(msoShapeRoundedRectangle, c.Left, c.Top, c.Width, c.Height) _
.Fill.Visible = msoFalse
Next c
End Sub

Serge