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
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
A voir également:
- Excel format cellule personnalisé alphanumérique
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
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
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,
Cdlt
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
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
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
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
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
31 déc. 2015 à 09:27
Bonjour Frenchie83
L'idée est bonne
Merci
L'idée est bonne
Merci
29 déc. 2015 à 16:18
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