Macro format nombre

Bonjour à toutes et à tous,

J'aimerai ajouter dans ma macro, une fonction: Le format d'un nombre change en fonction de sa longueur.

Quelqu'un peut-il m'aider pour savoir si je suis sur la bonne piste ?

Le but etant si la longueur du chiffre est égale à 1 alors le format #0

Si la longueur du chiffre est égale à 4 alors le format #.###

Si la longueur du nombre est égale à 7 alors le formation #,###.###

Merci.

Cordialement,

Marion

    
Sub
 If IsNumeric(v(i, 6)) And Len(v(i, 6)) = 1 Then 
                myVal = Format(v(i, 6), "#0") 
            Else
                myVal = v(i, 6)
If IsNumeric(v(i, 6)) And Len(v(i, 6)) = 4 Then 
                myVal = Format(v(i, 6), "#.###") 
            Else
                myVal = v(i, 6)
If If IsNumeric(v(i, 6)) And Len(v(i, 6)) = 7 Then 
                myVal = Format(v(i, 6), "#,###.###") 
            Else
                myVal = v(i, 6)
            End If

PS: Ceci n'est qu'un bout de ma macro.

Bonjour

V étant un tableau a deux dimensions... il n'est pas possible (à ma connaissance) formater l'emplacement d'une case mémoire d'un tableau...ou d'une variable... mais si tu travail sur une cellule de ta feuille a priori oui...

Fred