Format des cellules personnalisés
Résolu
Iama
Messages postés
324
Statut
Membre
-
Iama Messages postés 324 Statut Membre -
Iama Messages postés 324 Statut Membre -
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
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
-
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-
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
-
-
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
