Transformation d'un texte

[zephir94]

Bonjour à tous,

J'ai encore des proprets à faire sur la manipulation des chaines de caractères !

Je n'arrive pas à transformer :

Bernard DUDU en BD

Merci par avance pour vos aides

 

[tototiti2008]

Re : Transformation d'un texte

Bonjour zephir,

à tester

=GAUCHE(A1;1)&STXT(A1;CHERCHE(" ";A1)+1;1)

 

[JCGL]

Re : Transformation d'un texte

Bonjour à tous,

Sur ce cas précis :

=GAUCHE(A1;1)&STXT(A1;TROUVE(" ";A1;1)+1;1)

Mais quid des noms et prénoms composés...

A+ à tous

 

[zeltron24]

Re : Transformation d'un texte

Bonsoir zephir et tototiti

Un exemple


et
bonsoir jcgl

 

[zephir94]

Re : Transformation d'un texte

Merci à vous tous,

J'ai oublié de préciser en VBA !

 

[tototiti2008]

Re : Transformation d'un texte

Bonjour JC, Bonjour zeltron,
Re,

Mais quid des noms et prénoms composés...

Interdit

J'ai oublié de préciser en VBA !

avec les prénoms composés ?

Edit : avec nom et prénom dans la même cellule ou pas ?

 

[zephir94]

Re : Transformation d'un texte

ils viennent d'un combobox et effectivement je n'y avais pas pensé mais il pourrait y avoir des prénoms composés !

 

[JCGL]

Re : Transformation d'un texte

Bonjour à tous,
Salut Marc
Salut Zeltron,

Et comment est alimentée cette Combo ?
Et si tu déposais un fichier ?

A++
A+ à tous

 

[tototiti2008]

Re : Transformation d'un texte

Re,

un essai

Function Initiales(Nom As String) As String
Dim Tb, Tb1(), i As Long, j As Long
    Initiales = ""
    Tb = Split(Nom, " ")
    ReDim Tb1(LBound(Tb) To UBound(Tb))
    For i = LBound(Tb) To UBound(Tb)
        Tb1(i) = Split(Tb(i), "-")
    Next i
    For i = LBound(Tb1) To UBound(Tb1)
        If IsArray(Tb1(i)) Then
            For j = LBound(Tb1(i)) To UBound(Tb1(i))
                Initiales = Initiales & Left(Tb1(i)(j), 1)
            Next j
        Else
            Initiales = Initiales & Left(Tb1(i), 1)
        End If
    Next i
End Function

 

[JCGL]

Re : Transformation d'un texte

Bonjour à tous,

Pour le plaisir de croiser Marc...

Function Initiale(Cellule)
    X = Split(Cellule)
    For n = 1 To UBound(X)
        Nom = Nom & Left(X(n), 1)
    Next
    Initiale = Trim(Nom)
End Function

A++
A+ à tous

 

[zephir94]

Re : Transformation d'un texte

Merci à vous deux je vais tester

 

[zephir94]

Re : Transformation d'un texte

Après tests.

j'ai testé avec Jean BIDULE
la solution de tototiti2008 marche parfaitement JB
La solution de JCGL je n'ai que la première lettre du Nom B
Un grand merci à vous deux