Discussion :

[Crachover]

Bonjour,

J'aimerais transformer une chaîne de caractères comme suite...

• LEBRUN Marc -> LEB M.
• VOLDRICK Valentin -> VOL V.
• ...

Enfin, voilà vous avez compris le principe
Merci d'avance

[patricktoulon]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Dim machaine
machaine = "toto leblageur"
machaine = Left(machaine, 3) & " " & Mid(Split(machaine, " ")(1), 1, 1) & "."
MsgBox machaine
End Sub

si tu la veux en majuscule c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

machaine = UCase(Left(machaine, 3) & " " & Mid(Split(machaine, " ")(1), 1, 1) & ".")

et si tu veux simplement en nom propre (the first lettre en maj)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

machaine = StrConv(Left(machaine, 3) & " " & Mid(Split(machaine, " ")(1), 1, 1) & ".", vbProperCase)

[Crachover]

Bonjour,

Je vais tester, mais déjà un tout grand merci d'avoir pris du temps pour moi
Bon week-end

[Crachover]

Re-bonjour...

Cela fonctionne très bien, mais j'ai un problème avec les exceptions avec particule ou autre...

Exemples :

• VAN DEVELD Cécile -> VAN D. => VAN D C. ou VD C.
• VANDER MALD Olivier -> VAN M. => VANDER M O. ou VM O.
• de PRAMT Cédric -> de P. => de P C. ou deP C.

Problème aussi avec les prénom composés...

Exemples :

• MOREAUX Jean-Pierre -> MOR JP.

Y a-t-il une solution ?

[patricktoulon]

re
bonjour on peut faire face a quelque exeption mais pas toute dans le sens ou exel n'a pas de dictionnaire de nom ou de prenom

exemple

• VAN DEVELD Cécile -> VAN D. => VAN D C. ou VD C.
• VANDER MALD Olivier -> VAN M. => VANDER M O. ou VM O.
• de PRAMT Cédric -> de P. => de P C. ou deP C.

comment veux tu que vba ou meme excel devine quoi est le nom ou le prenom

est ce que le prenom c'est PRAMT Cédric ou le nom est de PRAMT

cela vba excel ne peut pas le deviner IMPOSSIBLE!!

imagine
de PRAMT Jean-paul-> de P. => de P C. ou deP C.
ou meme
saint honoré pierre jean
on fait quoi quand les noms ET!! prenoms sont composés

ta reponse etait dans ta question
il y aura toujours une exeption ou 2 qui passeront a la trappe

d'autant plus que si le nom est composé tu change la regle des 3 caracteres du nom

vba n'a pas encore une fonction "boule de christal" il faudra attendre office 2099 pour ca

[Crachover]

Juste...

J'ai résolu le problème en donnant la possibilité à l'utilisateur de modifier manuellement le champ...

Bon week-end

[patricktoulon]

re
sinon au mieux que je puisse faire

la formule dans une cellule exemple en b1 tu met

=nom_abrégé(A1)

sub de test pour tester une chaine en vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
    MsgBox nom_abrégé("De PRAMT Cédric")
End Sub

la fonction dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function nom_abrégé(t As String)
    Dim texte$
    t = Replace(t, "-", " ")
    tabl = Split(t, " ")
    For i = 0 To UBound(tabl)
        If i = 0 Then
            texte = texte & Mid(tabl(i), 1, 3)
        Else
            texte = texte & IIf(i < UBound(tabl), " ", "") & Left(tabl(i), 1)
        End If
    Next
    nom_abrégé = UCase(texte)
End Function

resultat des formule


mais ne fait pas d'illusion il pourrais y avoir des ratés selon la composition des noms/prenom qui des fois sont en 3 mots

[Crachover]

Super merci