michel.dupont
XLDnaute Occasionnel
Bonjour
j'ai un fichier excell 2010 avec de nombreux boutons macro...je souhaite supprimer tous les boutons par macro mais sur certaines feuilles seulement...
voici mon code mais qui ne fonctionne pas car il supprime tous les boutons sauf sur la page ou le bouton de cette macro est placé
Sub Del_Objets()
Dim Ws As Worksheet
For Each Ws In Sheets
If Ws.Name <> "parametres" And Ws.Name <> "tableau" And Ws.Name <> "mois" And Ws.Name <> "nv 1" And Ws.Name <> "tri" Then
Ws.DrawingObjects.Delete
End If
Next Ws
End Sub
merci de votre aide
Michel
j'ai un fichier excell 2010 avec de nombreux boutons macro...je souhaite supprimer tous les boutons par macro mais sur certaines feuilles seulement...
voici mon code mais qui ne fonctionne pas car il supprime tous les boutons sauf sur la page ou le bouton de cette macro est placé
Sub Del_Objets()
Dim Ws As Worksheet
For Each Ws In Sheets
If Ws.Name <> "parametres" And Ws.Name <> "tableau" And Ws.Name <> "mois" And Ws.Name <> "nv 1" And Ws.Name <> "tri" Then
Ws.DrawingObjects.Delete
End If
Next Ws
End Sub
merci de votre aide
Michel