Bonjour,

Voici une fonction qui permet d'extraire une chaine dans une cellule comportant une liste de valeurs avec un séparateur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ElementListe(chaine As String, separateur As String, position As Long) As String
'Fonction retournant une chaine provenant d'une liste de valeur avec un séparateur
' - Paramètre 1 : Chaine de caractère contenant la liste des valeurs
' - Paramètre 2 : Chaine ou caractère représentant le séparateur
' - Paramètre 3 : Position de la liste de la valeur à retourner
'@Auteur: Rémi Porcedda
 
' Variables
Dim tableau() As String
 
' Tableau recevant la liste de valeurs
tableau = Split(chaine, separateur)
 
' Retour en fonction de la position demandée
ElementListe = tableau(position - 1)
 
End Function
Elle permet d'utiliser la fonction "split" des macros Excel dans une formule.

Exemple :
La cellule A1 contient la chaine suivante : "valeur1;valeur2;valeur3"
Si la cellule A2 contient la formule "=ElementListe(A1;";";1)" le résultat va être "valeur1"