Hauteur de rectangleRésolu

Question

Bonjour,



Je veux encadrer un certains nombre de cellules avec un rectangle.
seulement, le nombre de mecs cellules bouge, et je dois dimensionner ce
rectangle.

Je recupere le hauteur de mes cellules (hauteurtotale obtenue en
prenant le rowheight de chaque cellule , et ensuite, pour dimensioner
mon rectangle, je fais:



ActiveSheet.Shapes("Rectangle 1").Select

    Selection.ShapeRange.ScaleHeight hauteurtotale, msoFalse, msoScaleFromTopLeft 



Seul PB, le "hauteurtotale" qui correspond &#224; mes cellule ne donne pas
la bonne hauteur de rectagle....ca ne dois pas &#234;tre la m&#234;me facon de
mesurer.



Pourriez vous me dire comment dimensionner mon rectangle svp ?



merci

neophenix83 · Accepted Answer

Je prefere placer un rectangle....

ca donne un effet de relief fort agr&#233;able visuellement.



sinon, j'ai fais ca: 

ActiveSheet.Shapes("Rectangle 1").Select

    Selection.ShapeRange.LockAspectRatio = msoFalse

    Selection.ShapeRange.Height = hauteurtotale

    Selection.ShapeRange.Width = largeurtotale

    Selection.ShapeRange.Rotation = 0#



Ca a l'air de pas trop mal marcher....



Voil&#224;.

Merci &#224; vous.

jpleroisse · Answer

Bonjour,
Pourquoi ne pas untiliser les foctions d'encadrement de cellules d'Excel. Tu te places sur la cellules que tu veux encadrer et tu lance cette macro.Tu peux alors redimentionner les cellules encadr&#233;es, l'encadrement suivra.Si tu veux un cadre plus &#233;pais, remplace tous les xlMedium par xlThick, et plus fin par xlThin..

Sub EncadrerCellule()
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
 
End Sub

jpleroisse

Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Hauteur de rectangle

2 réponses

Discussions similaires