Création de Functions = imbrication de fonctions connues/EXCEL

[Serge Joseph]

Bonjour à tous.
Je suis sur un projet pour lequel votre expertise sur vba me permettre d'y voir clair.
Je souhaite créer des "Functions" qui sont en fait des imbrications de fonctions classiques sur EXCEL.
Par exemple. J'ai récupéré ce morçeau de code avec l'enregistreur de macros

ActiveCell.Select
Selection.FormulaR1C1 = "=CONCATENATE(LEFT(RC[-1],5),MID(RC[-1],6,5),""/"",MID(RC[-1],11,2))"

Comment puis-je créer la fonction et faire varier la référence RC[-1] ? Le fichier EXCEL est en annexe.

 

[Dranreb]

Bonsoir.
Ben vous la transmettez en argument à la Function :

Function Txt10Slh2(ByVal Txt As String) As String
   Txt10Slh2 = Left$(Txt, 10) & "/" & Mid$(Txt, 11, 2)
   End Function

 

[Serge Joseph]

Bonsoir.
Ben vous la transmettez en argument à la Function :

Function Txt10Slh2(ByVal Txt As String) As String
   Txt10Slh2 = Left$(Txt, 10) & "/" & Mid$(Txt, 11, 2)
   End Function

Bonjour et merci de votre réponse.
Je vais ess

Bonsoir.
Ben vous la transmettez en argument à la Function :

Function Txt10Slh2(ByVal Txt As String) As String
   Txt10Slh2 = Left$(Txt, 10) & "/" & Mid$(Txt, 11, 2)
   End Function

 

[Serge Joseph]

Bonsoir
Merci pour votre retour sur ma préoccupation.
J'ai testé sur le classeur joint à ce message et ça marche très bien.

 

[richi2casa]

Function Txt10Slh2(ByVal Txt As String) As String
Txt10Slh2 = Left$(Txt, 10) & "/" & Mid$(Txt, 11, 2)
End Function

Function Txt10Slach2Slach2(ByVal Txt As String) As String
Txt10Slach2Slach2 = Left$(Txt, 10) & "/" & Mid$(Txt, 11, 2) & "/" & Mid$(Txt, 13, 4)
End Function