Recupérer une lettre sur deux

[jihem]

Bonjour a tous ,
Dans une feuille en c3, c4, c5, c6..etc jusqu’à c101 il y a des noms sans espaces ; par exemple en c3 : leboisdudomainedelarche et en c4 : routenationale115 je souhaiterai pouvoir récupérer en D3 : lbiddmieeace soit la première lettre, la 3eme, le 5eme, la 7eme etc ... et en D4 : rueainl15.
Je recherche donc la formule a mon problème. Si vous avez une idée.
Merci de vos réponses
Jiheme

 

[gilbert_RGI]

Re : Recupérer une lettre sur deux

Bonjour

une fonction perso

Function untodeux(cell As Range)
lg = Len(cell)
For lt = 1 To lg Step 2
lettre = Mid(cell, lt, 1)
lv = lv + lettre
Next
untodeux = lv
End Function

 

[jihem]

Re : Recupérer une lettre sur deux

Superbe !!! j’exagère encore si je vous demande s'il y aurait la possibilité de mettre la dernière lettre de la série obtenue en majuscule? exemple : lbiddmieeacE.
sinon bravo et merci
jihem

 

[gilbert_RGI]

Re : Recupérer une lettre sur deux

Comme ceci ????

 

[jihem]

Re : Recupérer une lettre sur deux

"çafonctionnenickel" donne "çfntonncE" et c'est exactement ce qu'il me fallait !
;-))
Clap-clap !!!
bravo et merci bien !