Macro permettant de trier les caractère d'une phrase

[manu]

Bonjour à tous,

Je me tourne vers vous pour m'aider à trouver une solution à un poblème qui m'a été posé. Je débute en macro donc je n'ai pas beaucoup de notion.
Je voudrais creer une macro qui puisse extraire d'une phrase entrée dans une cellule les trois premier caractère de chaque mot de cette phrase, c'est à dire:

Pour la phrase: Il fait très beau aujourd'hui

En sortie: Il fai trè bea auj

En espérant trouver réponses à mon problème, je reste ouvert à toutes aides apportées
Merci

 

[manu]

Re : Macro permettant de trier les caractère d'une phrase

J'aurais une autre question, j'ai réussi a choisir la colonne sur laquelle je souhaite appliquer ma macro, mais j'aimerais exclure de cette colonne la première igne c'est à dire garder la première ligne de cette colonne pour un titre. Voici mon code actuel:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t() As String, i As Byte, s As String
If Target.Column <> 4 Or Target.Count > 1 Then Exit Sub
t = Split(Target.Value)
If UBound(t) < 0 Then Exit Sub
For i = 0 To UBound(t)
s = s & Mid(t(i), 1, 3) & " "
Next i
Target.Value = Mid(s, 1, Len(s) - 1)
End Sub

 

[Pierrot93]

Re : Macro permettant de trier les caractère d'une phrase

Re,

modifie le test ainsi :

If Target.Row < 2 Or Target.Column <> 4 Or Target.Count > 1 Then Exit Sub