Format des cellules personnalisés [Résolu/Fermé]

Signaler
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
-
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
-
Bonjour,

Je cherche à trouver la liste des formats personnalisés existant dans un classeur.
Mon but est de pouvoir trouvé si ils sont utilisés via une macro.

Pouvez-vous me dire comment trouver cette liste?

Exemple de format:
[Noir]+0;[Rouge]-0;"-";[Bleu]Standard
"+ "0;"- "0;[Blanc]Standard

cordialement


2 réponses

Messages postés
2169
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
22 octobre 2020
295
Bonjour
Ne connaissant pas les limites de votre tableau, j'ai opté pour un tableau de A1 à J10, à adapter à vos besoins.
Essayez ceci,
Sub ListeDesFormats()
    Application.ScreenUpdating = False
    On Error Resume Next
    Liste = ""
    For Each Cel In Range("A1:J10")
        FormatCel = Range(Cel.Address).NumberFormat
        If FormatCel <> "General" Then Liste = Liste & Chr(10) & Cel.Address & Chr(32) & FormatCel
    Next
    MsgBox Liste
End Sub

Cdlt
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour Franchie83

Ton code marche très bien, je vais l'adapter.

Saurais-tu par bonheur récupérer la liste des formats que j'ai crées
dans la boite de dialogue "format personnalisé" du tableur?

Mon but étant de vérifier si tout mes formats sont utilisés dans mes fichiers. Pour pouvoir faire le ménage en supprimant les inutiles.

cordialement
Messages postés
2169
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
22 octobre 2020
295
Bonjour
Désolé, je ne connais pas les commandes pour récupérer le contenu des boîtes de dialogues en question.
Par contre je peux vous suggérer ceci:
- créez une liste de vos formats personnalisés en colonne A d'une autre feuille.
- Puis dans la continuité de la macro précédente, ajoutez un bout de code qui va mettre en surbrillance (ou tout autre moyen de marquage) dans cette colonne, les formats trouvés et enregistrés dans la liste restituée par la macro.
Cdlt
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour Frenchie83
L'idée est bonne
Merci