Message erreur - Sub ou Function non définie

Bonjour,

Petit souci avec la macro suivante :

Sub Macro1()
'
' Macro1 Macro
'
Dim txt As String
Dim NomCOLLAB As String

txt = InputBox("Entrez votre chaine de caractere ?", , , 200, 200)
MsgBox txt
NomCOLLAB = STXT(txt, 10, 3)
MsgBox NomCOLLAB

End Sub

J'ai une erreur de compilation avec le message suivant Sub ou Function non définie.

J'ai cherché un peu sur les forums et je comprends pas bien mon erreur.

En vous remerciant par avance pour vos réponses.

Boss92 mais pas d'excel

Bonjour

Essaie comme ça :

Sub Macro1()

    Dim txt As String
    Dim NomCOLLAB As String
    txt = InputBox("Entrez votre chaine de caractere ?", , , 200, 200)
    MsgBox txt
    NomCOLLAB = Mid(txt, 10, 3)
    MsgBox NomCOLLAB
End Sub

Bye !

Bonjour,

Tu utilise une fonction EXCEL (STXT) qui est en VBA MID

Remplace par cette ligne

NomCOLLAB = Mid(txt, 10, 3)

Edit: Bonjour Gmb, Snif, pas assez rapide

Merci à vous deux pour ce retour.

En vous souhaitant une bonne journée.

Boss92.