VB pour supprimer les styles

panda · 16 Février 2016

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 · 20 Février 2016

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 · 20 Février 2016

Re : VB pour supprimer les styles

Bonjour à tous,

Peux-tu essayer :

VB:

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

A+ à tous

VB pour supprimer les styles

panda

XLDnaute Occasionnel

DevThomy

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Discussions similaires