Format cellule personnalisé

[Luc]

Bonjour à Tous et Toutes

Comment peut-on sauvegarder un format de cellule personnalisé pour qu'il soit disponnible dans tous les classeurs (Win 98 et Excell 2000)?

Exemple:+ #.### €;- #.### €

Ca marche évidement en copiant le format avec les 2 classeurs ouverts, mais pour le sauvegarder ???

Merci d'avance

@+ Luc

 

[Dan]

Bonsoir Luc,

A ma connaissance, le format ne peut être sauvegardé que si tu réutilises le classeur dans lequel tu as créé ce format en l'enregistrant sous un autre nom.

@+

Dan

 

[LaurentTBT]

Bonsoir ,à tous.

Voici une petite macro qui crée le format personnalisé demandé par Luc:

Sub FormatPerso()
Dim FormatInitial As String
FormatInitial = Range("A1").NumberFormat
Range("A1").NumberFormat = " + #\.### €;- #\.### €"
Range("A1").NumberFormat = FormatInitial
End Sub

En enregistrant cette macro comme macro complémentaire, il suffit de la faire tourner une fois sous le fichier qui utilise ce format perso pour qu'il apparaisse dans la liste des formats perso. Seul bémol, si la feuille est protégée avec un mot de passe, cela ne fonctionnera pas.

Autre solution: créer un modèle dans lequel ce format à été utilisé, et ouvrir un nouveau classeur en utilisant ce modèle.

Bonne soirée. Laurent.

 

[@+Thierry]

Salut Laurent, Dan, Luc

Moi je fais ceci...

Dans un Personal.xls, (Perso.Xls) j'ai un code par exemple comme ceci

Sub PersoFormat1()
' Touche de raccourci du clavier: Ctrl+Maj+F
Selection.NumberFormat = " + #\.### €;- #\.### €"
End Sub


Et donc CTRL + MAJ + F m'applique le format là où je suis, peut importe le classeur ! (Perso.xls est un classeur qui 's'ouvre en mode caché et est toujours dispo en arrière tâche), On pourrait aussi attribué un custome bouton de la barre d'outil.


Bonne Semaine
Sub PersoFormat1()
' Touche de raccourci du clavier: Ctrl+Maj+F
Selection.NumberFormat = " + #\.### €;- #\.### €"
End Sub

 

[@+Thierry]

lol ma signature !!!

@+Thierry