Création d'une fonction

[Carl]

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

 

[sousou]

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

 

[Carl]

Ah ok!

Merci sousou, je vais voir ça!

 

[EricS]

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

 

[Hervé]

Bonjour

Ma proposition

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

Salut
Hervé

 

[Carl]

Super!!!

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

Merci Hervé, Eric et Sousous