Bonjour,
Voici une fonction qui permet d'extraire une chaine dans une cellule comportant une liste de valeurs avec un séparateur :
Elle permet d'utiliser la fonction "split" des macros Excel dans une formule.
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
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"
Partager