Changement de format de cellules

Bonjour à tous,

j'aimerais savoir si mon problème est déjà arrivé à quelqu'un ici et si oui, que faut-il faire pour ne plus que ça arrive.

Mon problème est le suivant. J'ai un fichier qui contient des macros (voir le fichier joint). Quelques fois, lorsque j'ouvre le fichier en question, toutes les cellules qui ne comportaient pas de format spécifique, se retrouvent changer en format comptabilité (Euro). Est-ce qu'il y a une solution. Merci beaucoup de m'aider!

Claude Tremblay

Bonjour,

Ce genre de problèmes peut se produire avec des fichiers échangés avec de nombreuses personnes ...surtout avec une foison de styles qui sont susceptibles de perturber le fichier ...

Dans ce cas, la solution consiste à entreprendre le grand nettoyage des styles ...

Bonjour,

Ci-dessous procédure pour supprimer les styles personnalisés.

Le fichier joint a été nettoyé.

Cdlt.

Option Explicit
Public Sub StylesKill()
Dim styT As Style
Dim intRet As Integer
    For Each styT In ActiveWorkbook.Styles
        ' Cette propriété a la valeur True si le style est un style prédéfini.
        ' Voir aussi TableStyle.Builtin
        If Not styT.BuiltIn Then
            intRet = MsgBox("Delete style : " & styT.Name & "?", vbYesNo)
            If intRet = vbYes Then styT.Delete
        End If
    Next styT
End Sub

Bonjour Jean-Eric

C'est Super sympa de ta part ...!!!

Tu as vraiment le coeur sur la main ...!!!