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
Frédéric Sigonneau
Bonjour,
Tu pourrais, dans une colonne libre du classeur, utiliser (après l'avoir recopiée dans un module standard de ton classeur) cette fonction personnalisée qui, grossièrement, encapsule la fonction Split de VBA pour renvoyer soit un tableau soit un élément de ce tableau (ici, en utilisant 4000 pour le dernier paramètre tu obtiendras le dernier élément du tableau, cad le dernier mot de ta phrase) :
Function xlSPLIT(Arr, Optional Delim = " ", Optional Elt) Dim cell As Range If IsMissing(Elt) Then xlSPLIT = Split(Arr, Delim) On Error Resume Next Set cell = Application.Caller On Error GoTo 0 If cell Is Nothing Then Exit Function If Application.Caller.Rows.Count > 1 Then _ xlSPLIT = Application.Transpose(xlSPLIT) Else If Elt < 0 Then Elt = 0 ElseIf Elt = 4000 Or Elt > UBound(Split(Arr, Delim)) Then Elt = UBound(Split(Arr, Delim)) End If xlSPLIT = Split(Arr, Delim)(Elt) End If End Function
Ensuite, si tes cellules sont en colonne A, saisis en B1 (par exemple) =xlSplit(A1;;4000) et recopie vers le bas.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, J'ai besoin d'extraire le dernier mot de 4000 cellules Excel, qu'elqu'un saurait comment faire cela? Merci d'avance.
Bonjour,
Tu pourrais, dans une colonne libre du classeur, utiliser (après l'avoir
recopiée dans un module standard de ton classeur) cette fonction personnalisée
qui, grossièrement, encapsule la fonction Split de VBA pour renvoyer soit un
tableau soit un élément de ce tableau (ici, en utilisant 4000 pour le dernier
paramètre tu obtiendras le dernier élément du tableau, cad le dernier mot de ta
phrase) :
Function xlSPLIT(Arr, Optional Delim = " ", Optional Elt)
Dim cell As Range
If IsMissing(Elt) Then
xlSPLIT = Split(Arr, Delim)
On Error Resume Next
Set cell = Application.Caller
On Error GoTo 0
If cell Is Nothing Then Exit Function
If Application.Caller.Rows.Count > 1 Then _
xlSPLIT = Application.Transpose(xlSPLIT)
Else
If Elt < 0 Then
Elt = 0
ElseIf Elt = 4000 Or Elt > UBound(Split(Arr, Delim)) Then
Elt = UBound(Split(Arr, Delim))
End If
xlSPLIT = Split(Arr, Delim)(Elt)
End If
End Function
Ensuite, si tes cellules sont en colonne A, saisis en B1 (par exemple)
=xlSplit(A1;;4000)
et recopie vers le bas.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai besoin d'extraire le dernier mot de 4000 cellules
Excel, qu'elqu'un saurait comment faire cela?
Merci d'avance.
Tu pourrais, dans une colonne libre du classeur, utiliser (après l'avoir recopiée dans un module standard de ton classeur) cette fonction personnalisée qui, grossièrement, encapsule la fonction Split de VBA pour renvoyer soit un tableau soit un élément de ce tableau (ici, en utilisant 4000 pour le dernier paramètre tu obtiendras le dernier élément du tableau, cad le dernier mot de ta phrase) :
Function xlSPLIT(Arr, Optional Delim = " ", Optional Elt) Dim cell As Range If IsMissing(Elt) Then xlSPLIT = Split(Arr, Delim) On Error Resume Next Set cell = Application.Caller On Error GoTo 0 If cell Is Nothing Then Exit Function If Application.Caller.Rows.Count > 1 Then _ xlSPLIT = Application.Transpose(xlSPLIT) Else If Elt < 0 Then Elt = 0 ElseIf Elt = 4000 Or Elt > UBound(Split(Arr, Delim)) Then Elt = UBound(Split(Arr, Delim)) End If xlSPLIT = Split(Arr, Delim)(Elt) End If End Function
Ensuite, si tes cellules sont en colonne A, saisis en B1 (par exemple) =xlSplit(A1;;4000) et recopie vers le bas.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, J'ai besoin d'extraire le dernier mot de 4000 cellules Excel, qu'elqu'un saurait comment faire cela? Merci d'avance.
Jacky
Bonsoir Titx
Une soluce simple si tu peux insérer une colonne(démarrage en A1)
=DROITE(A1;CHERCHE(" ";A1)-1)
et tirer vers le bas
salutations JJ
"Titx" a écrit dans le message news: 12ef901c3f706$9fc7ed10$
Bonjour, J'ai besoin d'extraire le dernier mot de 4000 cellules Excel, qu'elqu'un saurait comment faire cela? Merci d'avance.
Bonsoir Titx
Une soluce simple si tu peux insérer une colonne(démarrage en A1)
=DROITE(A1;CHERCHE(" ";A1)-1)
et tirer vers le bas
salutations
JJ
"Titx" <anonymous@discussions.microsoft.com> a écrit dans le message news:
12ef901c3f706$9fc7ed10$a001280a@phx.gbl...
Bonjour,
J'ai besoin d'extraire le dernier mot de 4000 cellules
Excel, qu'elqu'un saurait comment faire cela?
Merci d'avance.
Une soluce simple si tu peux insérer une colonne(démarrage en A1)
=DROITE(A1;CHERCHE(" ";A1)-1)
et tirer vers le bas
salutations JJ
"Titx" a écrit dans le message news: 12ef901c3f706$9fc7ed10$
Bonjour, J'ai besoin d'extraire le dernier mot de 4000 cellules Excel, qu'elqu'un saurait comment faire cela? Merci d'avance.
Titx
OK ça fonctionne Merci beaucoup!!!
-----Message d'origine----- Bonjour,
Tu pourrais, dans une colonne libre du classeur, utiliser (après l'avoir
recopiée dans un module standard de ton classeur) cette fonction personnalisée
qui, grossièrement, encapsule la fonction Split de VBA pour renvoyer soit un
tableau soit un élément de ce tableau (ici, en utilisant 4000 pour le dernier
paramètre tu obtiendras le dernier élément du tableau, cad le dernier mot de ta
phrase) :
Function xlSPLIT(Arr, Optional Delim = " ", Optional Elt) Dim cell As Range If IsMissing(Elt) Then xlSPLIT = Split(Arr, Delim) On Error Resume Next Set cell = Application.Caller On Error GoTo 0 If cell Is Nothing Then Exit Function If Application.Caller.Rows.Count > 1 Then _ xlSPLIT = Application.Transpose(xlSPLIT) Else If Elt < 0 Then Elt = 0 ElseIf Elt = 4000 Or Elt > UBound(Split(Arr, Delim)) Then
Elt = UBound(Split(Arr, Delim)) End If xlSPLIT = Split(Arr, Delim)(Elt) End If End Function
Ensuite, si tes cellules sont en colonne A, saisis en B1 (par exemple)
=xlSplit(A1;;4000) et recopie vers le bas.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, J'ai besoin d'extraire le dernier mot de 4000 cellules Excel, qu'elqu'un saurait comment faire cela? Merci d'avance.
.
OK ça fonctionne
Merci beaucoup!!!
-----Message d'origine-----
Bonjour,
Tu pourrais, dans une colonne libre du classeur,
utiliser (après l'avoir
recopiée dans un module standard de ton classeur) cette
fonction personnalisée
qui, grossièrement, encapsule la fonction Split de VBA
pour renvoyer soit un
tableau soit un élément de ce tableau (ici, en utilisant
4000 pour le dernier
paramètre tu obtiendras le dernier élément du tableau,
cad le dernier mot de ta
phrase) :
Function xlSPLIT(Arr, Optional Delim = " ", Optional Elt)
Dim cell As Range
If IsMissing(Elt) Then
xlSPLIT = Split(Arr, Delim)
On Error Resume Next
Set cell = Application.Caller
On Error GoTo 0
If cell Is Nothing Then Exit Function
If Application.Caller.Rows.Count > 1 Then _
xlSPLIT = Application.Transpose(xlSPLIT)
Else
If Elt < 0 Then
Elt = 0
ElseIf Elt = 4000 Or Elt > UBound(Split(Arr, Delim))
Then
Elt = UBound(Split(Arr, Delim))
End If
xlSPLIT = Split(Arr, Delim)(Elt)
End If
End Function
Ensuite, si tes cellules sont en colonne A, saisis en B1
(par exemple)
=xlSplit(A1;;4000)
et recopie vers le bas.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai besoin d'extraire le dernier mot de 4000 cellules
Excel, qu'elqu'un saurait comment faire cela?
Merci d'avance.
Tu pourrais, dans une colonne libre du classeur, utiliser (après l'avoir
recopiée dans un module standard de ton classeur) cette fonction personnalisée
qui, grossièrement, encapsule la fonction Split de VBA pour renvoyer soit un
tableau soit un élément de ce tableau (ici, en utilisant 4000 pour le dernier
paramètre tu obtiendras le dernier élément du tableau, cad le dernier mot de ta
phrase) :
Function xlSPLIT(Arr, Optional Delim = " ", Optional Elt) Dim cell As Range If IsMissing(Elt) Then xlSPLIT = Split(Arr, Delim) On Error Resume Next Set cell = Application.Caller On Error GoTo 0 If cell Is Nothing Then Exit Function If Application.Caller.Rows.Count > 1 Then _ xlSPLIT = Application.Transpose(xlSPLIT) Else If Elt < 0 Then Elt = 0 ElseIf Elt = 4000 Or Elt > UBound(Split(Arr, Delim)) Then
Elt = UBound(Split(Arr, Delim)) End If xlSPLIT = Split(Arr, Delim)(Elt) End If End Function
Ensuite, si tes cellules sont en colonne A, saisis en B1 (par exemple)
=xlSplit(A1;;4000) et recopie vers le bas.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, J'ai besoin d'extraire le dernier mot de 4000 cellules Excel, qu'elqu'un saurait comment faire cela? Merci d'avance.
