J'ai un problème sur la fonction suivant basée sur la fonction split.
Voici ma fonction:
Func ExtraireElements(txt,n,separateur)
Dim touselements as Variant
touselements = split(txt,separateur)
ExtraireElements = touselements(n-1)
End Func
Cette fonction me permet de séparer des références:
Exemple:
ExtraireElements(12a21#12a22,1,#) sort 12a21
et ExtraireElements(12a21#12a22,2,#) sort 12a22
Ceci est très interessant mais je ne connais pas forcément à l'avance
le nombre de références à séparer.
Aussi, je voudrais ajouter une ligne de code à ma fonction qui me
permette de sortir le nombre d'élements qu'il ya derrière la variable
variant touselements
J'ai pensé rajouté une ligne de code touselements.count mais celà ne
marche pas. En effet, j'ai texté avec cette fonction mais celà n'a pas
marché.
Func CompteElements(txt,separateur)
Dim touselements as Variant
touselements = split(txt,separateur)
CompteElements = touselements.count
End Func
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
Ardus Petus
Bonjour Beb,
CompteElements = ubound(touselements)
Cordialement, -- AP
"Ben" a écrit dans le message de news:
Bonjour,
J'ai un problème sur la fonction suivant basée sur la fonction split.
Voici ma fonction:
Func ExtraireElements(txt,n,separateur) Dim touselements as Variant touselements = split(txt,separateur) ExtraireElements = touselements(n-1) End Func
Cette fonction me permet de séparer des références: Exemple: ExtraireElements(12a21#12a22,1,#) sort 12a21 et ExtraireElements(12a21#12a22,2,#) sort 12a22
Ceci est très interessant mais je ne connais pas forcément à l'avance le nombre de références à séparer.
Aussi, je voudrais ajouter une ligne de code à ma fonction qui me permette de sortir le nombre d'élements qu'il ya derrière la variable variant touselements
J'ai pensé rajouté une ligne de code touselements.count mais celà ne marche pas. En effet, j'ai texté avec cette fonction mais celà n'a pas marché.
Func CompteElements(txt,separateur) Dim touselements as Variant touselements = split(txt,separateur) CompteElements = touselements.count End Func
Je vous remercie d'avance pour votre aide
Ben
Bonjour Beb,
CompteElements = ubound(touselements)
Cordialement,
--
AP
"Ben" <boudon.benjamin.nospam@free.fr> a écrit dans le message de news:
mn.3bca7d678a8e4584.57450@free.fr...
Bonjour,
J'ai un problème sur la fonction suivant basée sur la fonction split.
Voici ma fonction:
Func ExtraireElements(txt,n,separateur)
Dim touselements as Variant
touselements = split(txt,separateur)
ExtraireElements = touselements(n-1)
End Func
Cette fonction me permet de séparer des références:
Exemple:
ExtraireElements(12a21#12a22,1,#) sort 12a21
et ExtraireElements(12a21#12a22,2,#) sort 12a22
Ceci est très interessant mais je ne connais pas forcément à l'avance le
nombre de références à séparer.
Aussi, je voudrais ajouter une ligne de code à ma fonction qui me permette
de sortir le nombre d'élements qu'il ya derrière la variable variant
touselements
J'ai pensé rajouté une ligne de code touselements.count mais celà ne
marche pas. En effet, j'ai texté avec cette fonction mais celà n'a pas
marché.
Func CompteElements(txt,separateur)
Dim touselements as Variant
touselements = split(txt,separateur)
CompteElements = touselements.count
End Func
J'ai un problème sur la fonction suivant basée sur la fonction split.
Voici ma fonction:
Func ExtraireElements(txt,n,separateur) Dim touselements as Variant touselements = split(txt,separateur) ExtraireElements = touselements(n-1) End Func
Cette fonction me permet de séparer des références: Exemple: ExtraireElements(12a21#12a22,1,#) sort 12a21 et ExtraireElements(12a21#12a22,2,#) sort 12a22
Ceci est très interessant mais je ne connais pas forcément à l'avance le nombre de références à séparer.
Aussi, je voudrais ajouter une ligne de code à ma fonction qui me permette de sortir le nombre d'élements qu'il ya derrière la variable variant touselements
J'ai pensé rajouté une ligne de code touselements.count mais celà ne marche pas. En effet, j'ai texté avec cette fonction mais celà n'a pas marché.
Func CompteElements(txt,separateur) Dim touselements as Variant touselements = split(txt,separateur) CompteElements = touselements.count End Func
