Mettre une forme sans aucun remplissage

Bonjour,

J'aimerais savoir s'il esiste qui permet d'appliquer la fonction "sans aucun remplissage" sur une forme libre.

Je sais le faire sur une cellule : ActiveCell.Interior.ColorIndex = xlColorIndexNone

mais pour une forme cela ne marche pas....:

Worksheets(carte_active).Shapes("Rectangle 1").Fill.ForeColor.ColorIndex = xlColorIndexNone

Worksheets(carte_active).Shapes("Rectangle 1").Fill.Solid

Merci pour votre aide

Bonjour, bonjour !

En moins de dix secondes via le Générateur de macros !

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/04/2015 par The Noob Simulator
'
    ActiveSheet.Shapes("Rectangle 2").Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.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)
    Range("A1").Select
End Sub

hey merci,

je suis tellement à fond dans la découverte vba que j'en ai oublié l'enregistreur de macro.

Merci pour ce rappel.