Discussion :

[Debinfo75]

Bonjour à tous,

je sollicite votre aide car je souhaite créer une fonction VBA qui, étant donnée une chaîne de caractères représentant une centaine de noms d'élèves séparés par des points-virgule ( "nom1;nom2;....,nomN;FIN" ), renvoie aléatoirement un des noms de la chaîne.

J'ai ma fonction alea qui renvoie un entier compris entre 2 bornes.
Je sens qu'il faut compter le nombre de noms dans la chaîne (ou le nombre de points-virgule?), puis passer la chaîne en argument, mais je sèche pour la réalisation.

Je vous suis reconnaissant pour toute l'aide que vous voudrez bien m'accorder.

Cordialement.

[tedo01]

Bonjour,

Voici une petite fonction qui prend en paramètre la liste de noms séparés par des points-virgules, et qui renvoie un des noms au hasard :

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
Public Function EleveAleatoire(strInputI As String) As String
Dim tabNoms() As String
Dim lngNombre As Long
Dim lngPos As Long
 
    'Séparation des noms dans un tableau
    tabNoms = Split(strInputI, ";")
 
    'Calcul position du dernier élément (commence à la position 0)
    lngNombre = UBound(tabNoms)
 
    'Choix aléatoire d'un élément du tableau
    lngPos = Int(Rnd * (lngNombre + 1))
    EleveAleatoire = tabNoms(lngPos)
 
End Function

[Debinfo75]

Je vous remercie de votre réponse et vous prie de me pardonner car j'ai été contraint de délaisser le sujet quelque temps.

En fait, je cherche à bâtir une fonction qui compte dans ma liste de noms séparées par des ; le nombre de ; et qui me rend le nom précédent le rang du ; tiré aléatoirement. Je ne comprends pas bien à ce propos le fonctionnement de Left, Right, Mid et InStr.

Je vous remercie par avance des éclaircissements que vous pourrez m'apporter.

Cordialement.

[AlainTech]

Avant de chercher une autre solution, as-tu essayé la proposition de tedo01?

Sinon, pour comprendre les fonctions dont tu parles, un petit coup de F1 sur chacun des mots devrait répondre à tes questions.

[Debinfo75]

Bonjour à tous.

J'ai compris la fonction de Tedo et l'en remercie.

En revanche, elle fonctionne que si je mets ma liste dans une cellule de ma feuille.

Ce que j'ai besoin de faire, c'est de la déclarer au sein du code lui-même puis de l'appeler dans une cellule de ma feuille, son argument étant dans le code.

Cela est-il possible avec une fonction ou faut-il faire une macro?
Cela vient-il du fait de la présence d'accents dans les prénoms?
Cela vient-il de la mauvaise saisie de ma liste, avec les " et les passages à la ligne?

Je vous mets ma fonction en copie et vous remercie à nouveau pour votre aide.
Cordialement

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
18
19
20
21
22
23
24
25
26
Function tosEleves(ByVal liste As String) As String
'
Dim sepNoms() As String
Dim NbreNoms As Long
Dim PosNom As Long
 
Dim eleves As String
 
eleves = "Jean;Jacques;Michel;Robert;Albert;Conrad;Moussa;Capucine;" & _
"Florence;Christophe;Eric;Théophile;Mitia;Anne;Mercedes;Emmanuel;Alain;" & _
"Bernard;Françoise;Didier;Caroline;Aline;Marc;Sylvie;Sylvestre;Norbert;" & _
"Fulgence;Mahault;Marie;Joseph;Luc;Lucas;Gérard;Maurice;Martin;Antoine;" & _
"Guy;Sam;Loic;Philippe;Gaelle;Noel;Isabelle;Christine;Olga;Jérôme;Grégoire;" & _
"Fedor;Thomas;Laurent;Claude;Marie;"
 
 
'Séparation des noms dans un tableau
    sepNoms = Split(etudiants, ";")
 
'Calcul position du dernier élément (commence à la position 0)
    NbreNoms = UBound(sepNoms)
 
'Choix aléatoire d'un élément du tableau
    PosNom = Int(Rnd * (NbreNoms + 1))
    tosEleves = sepNoms(PosNom)
End Function

[patricktoulon]

bonjour

visiblement tu a compris comment scinder une chaîne de caractère

maintenant il me viens une idée qui couterait moins cher en ressource

aurais tu comme on te la conseiller taper sur F1 par hasard

si c'est le cas regarde un peu du coté de "array"

sa pourrais être une bonne chose

si tu ne trouve pas ou comprend pas je te ferais un exemple


au plaisir

[pgz]

Bonsoir

J'ai compris la fonction de Tedo et l'en remercie.

En revanche, elle fonctionne que si je mets ma liste dans une cellule de ma feuille.

Non, je ne crois pas

La fonction de Tedo01, à mon avis, fonctionne à chaque fois que tu l'appelles. La liste des noms est en paramètre, ce qui est le plus souple, mais tu peux aussi en faire une constante si la liste ne change jamais.

Par contre, si tu veux l'appeler d'une cellule, il faudra voir s'il faut, ou pas, lui ajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Volatile

Cordialement,

PGZ