Récupérer la première lettre du deuxième mot d'une cellule.

[maval]

Bonsoir

Je suis à la recherche du code vba pour récupérer la première lettre du deuxième mot d'une cellule.
ex: Paul Louis récupération de la lettre "L"

Je vous remercie de votre aide

Cordialement

Max

 

[eriiic]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Bonjour à tous,

en vba:

Function initialesP(nom As String) As String
    Dim decoup, i As Long
    decoup = Split(nom, " ")
    For i = 1 To UBound(decoup)
        initialesP = initialesP & Left(decoup(i), 1)
    Next i
End Function

eric

edit: Ah, un temps de retard sur pierrejean. J'ai toujours du mal à finir dans les temps avec certains ici... ;-)

 

[maval]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Bonjour Eric

Je te remercie peut tu me dire comment utiliser ton code en sachant que le nom et prénom se trouve en colonne "C"

Je te souhaite une bonne journée

@+
Max

 

[JCGL]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Bonjour à tous,

Eric et PJ étant déconnectés :

Si tes données commencent en C1, tu écris où tu veux:

=initialesP(C1)

Et le code dans un module standard

A+ à tous

 

[maval]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Bonjour JC

Je te remercie, mais le problème est que le recherche un code VBA parce que je ne peut pas rentrer une formule dans une cellule?

Bonne journée


@+
Max

 

[JCGL]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Bonjour à tous,

Ce n'est pas une formule mais une fonction.

Joins ton fichier pour la mise en place des codes proposés

A+ à tous

 

[maval]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Re,

Ci joint un fichier exemple

Merci

 

[JCGL]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Bonjour à tous,

Voici ton fichier

A+ à tous

 

[maval]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Re,

Oui je te remercie mais j'ai toujours une fonction dans ma cellule?

@+

 

[JCGL]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Bonjour à tous,

Et cela te pose un problème ?

A+ à tous

 

[eriiic]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Re,

Si ton tableau est déjà créé et que tu veux compléter B tu peux lancer ce code :

Sub traiterC()
    Dim lig As Long
    For lig = 9 To Cells(Rows.Count, "C").End(xlUp).Row
        Cells(lig, "B") = initialesP(Cells(lig, "C"))
    Next lig
End Sub

Sinon soit plus précis dans ta demande.

Oui je te remercie mais j'ai toujours une fonction dans ma cellule?

On ne peut que répondre oui si tu en mets une...

eric

 

[maval]

Re : Récupérer la première lettre du deuxième mot d'une cellule.

Re Eric

Je te remercie beaucoup Nickel

Bonne journée

@+

Max