Discussion :

[jojo86]

Bonjour,

Voila, j'arrive à créer un trait par VBA, mais je n'arrive pas à le supprimer car je n'ai pas sont nom.
Connaissez vous un moyen de le supprimer?

Voici le code que j'utilise pour le créer, (issu de l'enregistreur de macro donc je pense qu'il y à des truques en trop).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub AjouterLigne ()
    ActiveSheet.Shapes.AddLine(429.75, 66, 546.75, 66).Select
    Selection.ShapeRange.Flip msoFlipVertical
    Selection.ShapeRange.Line.Weight = 1.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
    Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
    Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadNone
End Sub

Je pense qu'il faut donner un nom à la ligne lors de son ajout pour pouvoir la supprimer au besoin.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub AjouterLigne ()
    ActiveSheet.Shapes.AddLine(429.75, 66, 546.75, 66).Select
selection.name="LeNomDuTrait"

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.Shapes("LeNomDuTrait").Select
    Selection.Delete

[Roms un]

Bonjour,

Sur une feuille Excel chaque forme à un numéro qui lui correspond. Par exemple si tu as 5 formes sur ta feuille et que ton trait est la 3éme forme à avoir été construite tu peux écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.Shapes(3).Select
    Selection.Delete

Cdt,

[jojo86]

Nickel merci beaucoup.