4 adresses parmi d'autres :

http://perso.wanadoo.fr/frederic.sigonneau/office/Nb2Words.zip
http://longre.free.fr/pages/telecharge/#Morefun    (fonction NUMTEXTE)
http://www.fundp.ac.be/~jmlamber/
http://www.cybercable.tm.fr/~pnoss/Chiffre_Lettre.bas

(extrait de la FAQ : http://dj.joss.free.fr/faq.htm#nblettre )

Et pour ceux qui besoin de voir pour croire :

je veux pouvoir faire des calculs avec des ha a et ca ?
Il suffit de mettre dans format cellule -Onglet nombre : personnalisé
[<100]#0"ca";[<10000]#0"a"#0"ca";#0"ha"#0"a"#0"ca"

cependant, pour gérer les nombres négatifs - 15ha 53a 60ca par exemple, je vous conseille la petite macro suivante :
Private Sub HaACa()
On Error Resume Next
For Each c In Selection
If c.Value >= 0 Then
c.NumberFormat = "[<100]#0"" ca"";[<10000]#0"" a""#0"" ca"";#0"" ha""#0"" a""#0"" ca"""
ElseIf c.Value < 0 Then
c.NumberFormat = "[>-100]#0"" ca"";[>-10000]#0"" a""#0"" ca"";#0"" ha""#0"" a""#0"" ca"""
Else
MsgBox "madré diou - pas possible !"
End If
Next c
End Sub

Je souhaite afficher mes chiffres à 3 éléments : 7,61 ->7.61, 15,31->15,3 , 101,28->100 ?

[<10]0,00;[<100]0,0;0
(sur une idée de Pierre Fauconnier - merci à lui)

Je  souhaite saisir des chiffres et que cela s'affiche soit en kilos, soit en Tonnes :

Format Personnalisé : [>1000]# " T";0" Kg"

Attention, après le # il y a un espace (symbole du séparateur de milliers) , laissons également un espace dans la chaîne de caractères " T" de façon à ce que le T ne soit pas collé au chiffre.

Je  souhaite saisir des numéros de téléphone sous la forme xx-xx-xx-xx-xx

Format Personnalisé : 00"-"00"-"00"-"00"-"00

J'ai une variable que j'appelle b et je veux faire la somme des Cellules J1 à Jb. Comment le traduire en code?
 MsgBox Application.Sum(Range("j1:j" & b))

J'ai une macro qui copie de grande plage de cellule et Excel 2000 envoie une fenêtre demendant si l'information contenu dans le presse-papier doit être conservé ou non, il y a t'il moyen d'empècher l'apparition de cette fenêtre et de prendre l'option non par défaut?
Application.CutCopyMode = False

J'ai une liste Nom, Prénom et je recherche un moyen pour inverser la police
soit ex: A1= Nom Prénom   A2= Nom Prénom  avec police inversée à l'impression  pour signature

un peu  tirée par les cheveux :
l'orientation du texte dans la cellule variant de -90 à +90, si tu appliques en la cellule A1 le +90, dans la cellule A2 le - 90

en Vba, cela donne :
Sub InversePolice()
Dim c As Range
For Each c In Range("a1:iv1")
c.Orientation = 90
c.Offset(1, 0).Orientation = -90
If IsEmpty(c) Then End
Next c
End Sub

Comment mettre un message dans la barre d'état d'Excel

Application.StatusBar = "Bonjour..."

Je souhaite empêché l'impression d'une feuille particulière du classeur

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = Sheets("NomFeuille").Name Then Cancel = True
End Sub

Calcul sur les heures négatives :

Le plus simple est d'utiliser le calendrier 1904 (Menu Outils-Options onglet Calcul) de façon à éviter l'apparition des ######. Néanmoins, même les ##### sont capables de calculs :
           

calendrier 1904 (Mac)                                 calendrier 1900 (PC)

Cas typique du Compte financier (dos), une des solutions sous Novell 3-4-5 est de taper en ligne de commande Dos :

Ces instructions peuvent être mises dans un fichier BAT

Si le PING nom_de_serveur fonctionne, tapez à la console du serveur :
LOAD ISERVER pour charger le module Interbase Serveur