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
MichD
Bonjour, Dans un module standard, copie la fonction personnalisée suivante : '---------------------- Function LeSplit(Rg As Range, Position As Long) Dim X As Variant If Rg <> "" Then X = Split(Rg, " ") LeSplit = X(Position - 1) End If End Function '---------------------- En supposant que la chaîne de caractères est en A1 Tu saisis la formule suivante : Le "2" représente le mot que tu veux extraire. =LeSplit(A1;2) MichD
Bonjour,
Dans un module standard, copie la fonction personnalisée suivante :
'----------------------
Function LeSplit(Rg As Range, Position As Long)
Dim X As Variant
If Rg <> "" Then
X = Split(Rg, " ")
LeSplit = X(Position - 1)
End If
End Function
'----------------------
En supposant que la chaîne de caractères est en A1
Tu saisis la formule suivante :
Le "2" représente le mot que tu veux extraire.
=LeSplit(A1;2)
Bonjour, Dans un module standard, copie la fonction personnalisée suivante : '---------------------- Function LeSplit(Rg As Range, Position As Long) Dim X As Variant If Rg <> "" Then X = Split(Rg, " ") LeSplit = X(Position - 1) End If End Function '---------------------- En supposant que la chaîne de caractères est en A1 Tu saisis la formule suivante : Le "2" représente le mot que tu veux extraire. =LeSplit(A1;2) MichD
Brat'ac
MichD avait écrit le 22/03/2020 :
Bonjour, Dans un module standard, copie la fonction personnalisée suivante : '---------------------- Function LeSplit(Rg As Range, Position As Long) Dim X As Variant If Rg <> "" Then X = Split(Rg, " ") LeSplit = X(Position - 1) End If End Function '---------------------- En supposant que la chaîne de caractères est en A1 Tu saisis la formule suivante : Le "2" représente le mot que tu veux extraire. =LeSplit(A1;2) MichD
Super ! Merci beaucoup.
MichD avait écrit le 22/03/2020 :
Bonjour,
Dans un module standard, copie la fonction personnalisée suivante :
'----------------------
Function LeSplit(Rg As Range, Position As Long)
Dim X As Variant
If Rg <> "" Then
X = Split(Rg, " ")
LeSplit = X(Position - 1)
End If
End Function
'----------------------
En supposant que la chaîne de caractères est en A1
Tu saisis la formule suivante :
Le "2" représente le mot que tu veux extraire.
=LeSplit(A1;2)
Bonjour, Dans un module standard, copie la fonction personnalisée suivante : '---------------------- Function LeSplit(Rg As Range, Position As Long) Dim X As Variant If Rg <> "" Then X = Split(Rg, " ") LeSplit = X(Position - 1) End If End Function '---------------------- En supposant que la chaîne de caractères est en A1 Tu saisis la formule suivante : Le "2" représente le mot que tu veux extraire. =LeSplit(A1;2) MichD
