Création d'une fonction

Bonjour le Forum,

J'essaye de créer ma propre petite fonction mais j'obtiens toujours une erreur de compilation.

en excel, j'écris dans la cellule A2 la formule :
=stxt(texte(A1;"0000000000");8;1)

si en A1, il y a le chiffre 106
en A2, la formule me donne "1"

J'essaye d'en faire une fonction personalisée :

Function CV(chiff1)
CV = stxt(texte(chiff1, "0000000000"), 8, 1)
End Function

et dans la cellule A2, j'écris la formule =cv(a1)

Lors de l'exécution, j'obtiens une message d'erreur : "Erreur de compilation: Sub ou Fonction non définie" et le mot "texte" est sélectionné dans VB.

Ne connaissant pas encore grand chose à la création de fonctions personnalisés, pourriez-vous m'indiquer le bonne marche à suivre pour créer cette formule ?

En vous remerçiant grandement.
Carl

En vb les noms des fonction sont différents de ceux utilisés dans les feuilles de calcul.
par exemple
stx = mid en vb
Aide toi de l'aide vb pour trouver la bonne réponse

Ah ok!

Merci sousou, je vais voir ça!

Bonjour

si tu lances l'enregistreur de macro et que tu entres ta formule, lorsque tu va voir le code généré en vba tu trouves

ActiveCell.FormulaR1C1 = "=MID(TEXT(R[-3]C,""00000000""),8,1)"

Le vba est en ANGLAIS alors que nous utilisons XL en français

Eric

Bonjour

Ma proposition

Private Function CV(nombre)
CV = Mid(Format(nombre, "0000000000"), 8, 1)
End Function

Salut
Hervé

Super!!!

Ca marche à perfection
j'ai compris le principe...grâce à vous

Merci Hervé, Eric et Sousous