Extraire les deux premières lettres des mots

[jakadam]

Bonsoir,

Je souhaiterai extraire d'une colonne les deux premières lettres de chaque mot qu'elle contient et le "Collé" dans la colonne suivante. Exemple:

Black Irridium = BlIr
Aged Turquoise Blue = AgTuBl
Black = Bl

Si vous avez une idée, ou un lien parce que le sujet à déjà été traité 4 milliards de fois...

J.

[jfontaine]

Bonjour,

Avec une formule je ne vois comment faire cela simplement

Ci joint une fonction perso à mettre dans un module VBA

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Debutmot(Rg As Range, nbLettre) As String
 
Dim str() As String
Dim i As Integer
Dim strRetour As String
 
str = Split(Rg.Value, " ")
 
For i = 0 To UBound(str)
    strRetour = strRetour & Left(str(i), nbLettre)
Next i
 
Debutmot = strRetour
 
End Function

A utiliser comme suit

Code :

=Debutmot(A14;2)

[Philippe JOCHMANS]

Bonjour

Un exemple avec une fonction à mettre dans un module

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function ExtractLettre(strPhrase As String) As String
    ' déclaration
    Dim tabMot() As String
    Dim i As Integer
 
    ' affectation
    tabMot = Split(strPhrase, " ")
 
    ' bouclage sur les mots
    For i = 0 To UBound(tabMot)
        tabMot(i) = Left(tabMot(i), 2)
    Next i
 
    ' récupération
    ExtractLettre = Join(tabMot)
 
End Function

Ensuite dans la colonne que tu souhaites ex à mettre en B1

Code :

=ExtractLettre(A1)

Philippe

Edit : grillé par jérôme