Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fdecourt
Bonjour,
Une première solution par macro :
Function Extraire_droite_derniere_espace() Dim leMot As String leMot = "il pleut" leMot = StrReverse(leMot) If InStr(1, leMot, " ") = 0 Then leMot = "PAS D'ESPACE" Else leMot = StrReverse(Left(leMot, InStr(1, leMot, " ") - 1)) End Function
Et avec une fonction (silkyroad.developpez.com), à valider par CTRL + MAJ + ENTER :
Function Extraire_droite_derniere_espace()
Dim leMot As String
leMot = "il pleut"
leMot = StrReverse(leMot)
If InStr(1, leMot, " ") = 0 Then leMot = "PAS D'ESPACE" Else leMot
= StrReverse(Left(leMot, InStr(1, leMot, " ") - 1))
End Function
Et avec une fonction (silkyroad.developpez.com), à valider par CTRL +
MAJ + ENTER :
Function Extraire_droite_derniere_espace() Dim leMot As String leMot = "il pleut" leMot = StrReverse(leMot) If InStr(1, leMot, " ") = 0 Then leMot = "PAS D'ESPACE" Else leMot = StrReverse(Left(leMot, InStr(1, leMot, " ") - 1)) End Function
Et avec une fonction (silkyroad.developpez.com), à valider par CTRL + MAJ + ENTER :
Tu pourrais utiliser une fonction personnalisée. En supposant que ta chaîne soit en A1 :
Function partie(chaine As Range) ch = RTrim(chaine) For i = Len(ch) To 1 Step -1 If Mid(ch, i, 1) = " " Then Exit For Else t = t & Mid(ch, i, 1) Next i partie = StrReverse(t) End Function
Si ma mémoire est bonne, StrReverse est disponible depuis la version 2000.
Serge
"Ely" a écrit dans le message de news:
Bonjour,
Je voudrais extraire tous les caractères à droite du dernier espace dans la cellule.
Merci de me dépanner
Ely
Bonjour,
Tu pourrais utiliser une fonction personnalisée.
En supposant que ta chaîne soit en A1 :
Function partie(chaine As Range)
ch = RTrim(chaine)
For i = Len(ch) To 1 Step -1
If Mid(ch, i, 1) = " " Then Exit For Else t = t & Mid(ch, i, 1)
Next i
partie = StrReverse(t)
End Function
Si ma mémoire est bonne, StrReverse est disponible depuis la version 2000.
Serge
"Ely" <Ely@discussions.microsoft.com> a écrit dans le message de news:
F9C93956-F0E9-4471-9040-EACABE2F2655@microsoft.com...
Bonjour,
Je voudrais extraire tous les caractères à droite du dernier espace dans
la
cellule.
Tu pourrais utiliser une fonction personnalisée. En supposant que ta chaîne soit en A1 :
Function partie(chaine As Range) ch = RTrim(chaine) For i = Len(ch) To 1 Step -1 If Mid(ch, i, 1) = " " Then Exit For Else t = t & Mid(ch, i, 1) Next i partie = StrReverse(t) End Function
Si ma mémoire est bonne, StrReverse est disponible depuis la version 2000.
Serge
"Ely" a écrit dans le message de news:
Bonjour,
Je voudrais extraire tous les caractères à droite du dernier espace dans la cellule.
Merci de me dépanner
Ely
Caetera
> Je voudrais extraire tous les caractères à droite du dernier espace dans la cellule.