aide sur macro

[gh4]

Bonjour
j'essaie d'enlever toutes les boites a cocher d'une feuille avec cette macro,
mais celle ci ne fonctionne pas.
Pouvez vous m'éclairer SVP

Sub Macro1()
Dim Sh As Shape
For Each Sh In Worksheets("offr-dev-fact").Shapes
If Sh.Type = CheckBox Then Sh.Delete
Next
End Sub

d'avance merci

 

[Guest]

Re : aide sur macro

Bonour Gh4, le Forum,

Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
    If [COLOR=blue]Left(Sh.Name, 9) = "Check Box"[/COLOR] Then Sh.Delete
Next
End Sub

A bientôt

 

[gh4]

Re : aide sur macro

merci bcp pour ton aide je galere dessus depuis 2 jours
car si j'execute la macro pas a pas par f8 elle beug alors que si je la lance depuis la feuil excel elle fonctionne je sais vraiment pas pourquoi
as tu une idée pour cela
en tout cas encore mille merci

 

[Guest]

Re : aide sur macro

re bonjour GH4,

La macro du précédent post agit sur la feuille active.
Quel message d'erreur tu obtiens?

A bientôt (je m'absente quelques temps)