Aide sur nouvelle Fonction

guitarde

XLDnaute Junior
Bonjour,

J'ai créé une nouvelle fonction qui permet de convertir nos périodes comptable en quarts.

ex.:
200512 afficher '2005 Q4'
200601 afficher '2006 Q1'

Code:
Public Function Quarter(vPeriod) As String
Quarter = Left(vPeriod, 4) & ' Q' & WorksheetFunction.Ceiling((Right(vPeriod, 2) / 4), 1)
End Function

Ca fonctionne bien =Quarter(A1) me donnera le bon résultat en A2 si le code est dans le fichier courant.

Que dois-je faire pour que cette fonction fonctionne dans tous les fichiers ?

Merci
Eric
 

guitarde

XLDnaute Junior
Merci Pascal mais ca ne semble pas fonctionner.

J'ai mis dans personal.xls
La fonction quarterp, la variable avec le p aussi et le résultat de la formule est #NAME?

Ceci fonctionne '=PERSONAL.XLS!quarterp(V11)'
Elle apparait dans la liste des fonctions.

J'ai également essayé dans un fichier Addin, dans ce cas quartera et j'obtiens encore #NAME?

Ca fonctionne seulement si le code est dans le même fichier pour le moment ???

Eric

Message édité par: guitarde, à: 25/01/2006 17:32
 

guitarde

XLDnaute Junior
Pascal,

Dans ma version d'excel, les macro personelles sont dans Personal.xls.
Version 2000 en anglais (9.0.3821 SR1 - Canada/USA)

Je ne crois pas que ce fichier (perso ou personal) ait un statut différent des autres de toute facon, ca particularité est qu'il s'ouvre automatiquement au démarrage d'Excel.

Salutations
Eric
 

guitarde

XLDnaute Junior
Après avoir taponné avec le fichier Personal et le Addin. Ca fonctionne avec le Addin mais pas avec Personal.xls.

Je ne sais trop pourquoi mais je vais utiliser l'Addin.

Petit détail: je dois diviser les mois par 3 et non par 4...

Merci Pascal.

Eric

Message édité par: guitarde, à: 25/01/2006 19:12
 

Statistiques des forums

Discussions
312 220
Messages
2 086 381
Membres
103 199
dernier inscrit
ATS1