Format des cellules personnalisés

Résolu/Fermé
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 - Modifié par Iama le 28/12/2015 à 16:02
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 - 31 déc. 2015 à 09:27
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


A voir également:

2 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
29 déc. 2015 à 11:07
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
0
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
29 déc. 2015 à 16:18
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
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
31 déc. 2015 à 03:03
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
0
Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
31 déc. 2015 à 09:27
Bonjour Frenchie83
L'idée est bonne
Merci
0