XL 2021 Extraire de mots d'une cellule

Staple1600 à dit:

Bonjour

Une solution avec une fonction VBA personnalisée

Code:

Function TROISCAR(s As String) As String
Dim v
For Each v In Split(s, " ")
TROISCAR = TROISCAR & " " & Left(v, 3)
Next v
TROISCAR = Mid(TROISCAR, 2)
End Function

Regarde la pièce jointe 1180041

Cliquez pour agrandir...

Staple1600 à dit:

Re

Celle-ci devrait mieux correspondre au besoin

Code:

Function TROISCAR(s As String) As String
Dim v
For Each v In Split(s, " ")
If Len(v) > 3 Then
TROISCAR = TROISCAR & " " & v
End If
Next v
TROISCAR = Mid(TROISCAR, 2)
End Function

PS: Tu avais lu l'EDITION de mon premier message ?

Cliquez pour agrandir...

djidji59430 à dit:

Bonjour à tous,

a formule
=FILTRE(SI(NBCAR(FRACTIONNER.TEXTE(I6;" "))>3;FRACTIONNER.TEXTE(I6;" "));SI(NBCAR(FRACTIONNER.TEXTE(I6;" "))>3;FRACTIONNER.TEXTE(I6;" "))<>FAUX)

Crdlmt

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour @djidji59430

Chouette formule !

je me permets d'ajouter ceci
=JOINDRE.TEXTE(" ";VRAI;FILTRE(SI(NBCAR(FRACTIONNER.TEXTE(A1;" "))>3;FRACTIONNER.TEXTE(A1;" "));SI(NBCAR(FRACTIONNER.TEXTE(A1;" "))>3;FRACTIONNER.TEXTE(A1;" "))<>FAUX))

@thval
la formule ne fonctionne qu'avec Office 365

Pour la solution par macro, il suffit de recopier la formule vers le bas
(comme sur la copie d'écran du message#2)
La formule est au départ en B1

NB: Le code VBA doit être au préalable copié dans un module standard.
(Depuis Excel ALT+F11 -> Insertion/Module )

Cliquez pour agrandir...

thval à dit:

Ok
Ou dois je mettre cela pour que cela fonctionne pour toutes les cellules de B1 à B1000 par exemple ?
Merci

Cliquez pour agrandir...