VB pour supprimer les styles

[panda]

Bonjour
J'ai eu ce problème il y a des années avec excel 2003 et j'avais trouvé une réponse avec une macro qui supprimait tous les styles.
Je suis à présent avec xl2010 (et on vient de m'envoyer un classeur horrible que je dois remplir et je me retrouve avec ce message "Nombre de formats de cellules trop élevé".
Quelle malédiction ! J'ai essayé de retrouver la macro que j'avais eue :

Sub SupprimerLesStyles()

Dim Styl As Style

'On Error Resume Next

For Each Styl In ThisWorkbook.Styles
Styl.Delete
Next Styl

End Sub

Mais .... à l'éxecution de celle ci il me met un message ERREUR 1004 "erreur définie par l'appli. ou l'objet"
Je suis niveau 0 en VB ...

Si quelqu'un peut m'aider à sortir de ce cauchemar ...

Merci

 

[DevThomy]

Re : VB pour supprimer les styles

Bonjour.
Je ne comprends pas très bien votre explication. Un fichier joint pour soutenir votre question si possible.
Merci, cordialement

 

[JCGL]

Re : VB pour supprimer les styles

Bonjour à tous,

Peux-tu essayer :

Sub SupprimerLesStyles()
Dim i As Long
    For i = 1 To ActiveWorkbook.Styles.Count
        ActiveWorkbook.Styles(i).Delete
    Next
End Sub

A+ à tous