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'
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
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