Renvoyer la première lettre de plusieurs mots dans la même cellule

Bonjour,

J'ai encore une autre question.

J'ai dans une colonne plusieurs nom de pays. Parfois 1 ou 2. Toujours séparés par un / et sans espace.

Exemple :

Je souhaiterais une formule qui puisse me renvoyer automatiquement les 2 lettres dans la colonne C mais dans l'ordre aphabetique.

Exemple : Italie/France = IF mais comme le F va avant le I ça donne : FI

Et si c'est possible de rajouter un espace entre les 2 lettres pour que ça donne F I ce serait encore mieux !

J'ai mis un exemple si vous souhaitez essayer.

Merci d'avance à vous.

Bonjour,

Avec une formule VBA, dans un module nous collons cette formule :

Public Function GetFirstLetters(Source As Excel.Range) As String
    If Source.Value > vbNullString Then
        Dim TabSource As Variant
        TabSource = Split(Source, "/", , vbTextCompare)

        Dim item As Long
        For item = 0 To UBound(TabSource)
            Dim tempString As String
            tempString = tempString & Left$(TabSource(item), 1) & Space(1)
        Next
    End If
    GetFirstLetters = Trim(tempString)
End Function

Et pour l'appel dans la cellule E1 par exemple : =GetFirstLetters($A1) à recopier vers le bas

Merci beaucoup mais malheureusement je n'utilise pas le langage VBA. Je cherche plutôt une solution avec une formule à insérer dans les colonnes C.

Si c'est trop difficile de les mettre dans l'ordre alphabétique et de laisser un espace on peut simplifier. L'essentiel c'est surtout d'extraire la première lettre des mots.

Merci

bonjour OLGone67, Jean_Paul,

en formules :

=JOINDRE.TEXTE(" ";;TRI(GAUCHE(TEKST.SPLITSEN(A1;"/");1);;;1))

Edit : Salut JFL, je vois que https://nl.excel-translator.de/translator/ n'a pas bien fait son boulot

Bonjour à tous !

Et aussi :

=JOINDRE.TEXTE(" ";;TRIER(GAUCHE(FRACTIONNER.TEXTE(A1;;"/"))))

(Sourire taquin à BsAlv )

Cela fonctionne parfaitement merci beaucoup !