Discussion :

[spidercalc]

Bonjour,

Je débute en VB.

Après divers recherches sur internet et dans les faq de Microsoft,
je me viens vers afin de trouver une solution à mes problèmes.

Je souhaite avoir une formule qui génére une référence alpha numérique de 6
caractére formaté comme ça XXX-XXX.

Donc j'ai utilisé ce code.

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
 
Function refalea()
 
    Randomize
 
    carac = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    lettre_aleatoire = ""
 
    For i = 1 To 6
        nombre_aléatoire = Int(Len(carac) * Rnd) + 1
        lettre_aleatoire = lettre_aleatoire & Mid(carac, nombre_aleatoire, 1)
        If i = 3 Then lettre_aleatoire = lettre_aleatoire & "-"
    Next
 
 
End Function

Lors ce que je le test une boite de dialogue m'indique

"Erreur d'execution 5 :

Argument ou Appel de procédure incorrect."

Ai je fait une erreur dans le code ?,

Vous remerciant par avance de votre aide
cordialement

[unparia]

Bonjour
Un peu d'attention à ce que l'on écrit et tout ira mieux
nombre_aleatoire est une variable inconnue.

Au passage : travailler en Option Explicit n'est pas un luxe et t'aurait fait découvrir immédiatement ton erreur.

[spidercalc]

Bonjour
Un peu d'attention à ce que l'on écrit et tout ira mieux
nombre_aleatoire est une variable inconnue.

Au passage : travailler en Option Explicit n'est pas un luxe et t'aurait fait découvrir immédiatement ton erreur.

Merci de ta réponse, effectivement cela fonctionne mieux, je ne connait pas l'option "Explicit" je debute encore en VB
cordialement

Merci pour ces réponses

Cela fonctionne quand je lui demande de l'afficher dans une boite de dialogue
mais lorsque je veux l'utiliser comme une fonction la cellule m'affiche
ça m'affiche #NOM? je suppose que la fonction n'est donc pas reconnue
comment faire pour qu'elle le soit ?

cordialement

[unparia]

mais lorsque je veux l'utiliser comme une fonction la cellule m'affiche
ça m'affiche #NOM? je suppose que la fonction n'est donc pas reconnue
comment faire pour qu'elle le soit ?

est une autre question : celle de la création d'une fonction personnalisée.
Si la difficulté objet de la présente discussion a été résolue --->> fermeture par tag RESOLU de la présente discussion.
Si tu as une autre difficulté --->> autre discussion.
J'y tiens personnellement. Il en va de la cohérence générale.

[jerome.vaussenat]

Salut,

Pour que ta fonction puisse renvoyer un résultat, il faut que dans ton code, tu la renseignes.

Dans ton cas cela donne l'instruction suivant à ajouter à la fin de ton code :

Code :

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

1
2
3
    ...
    refalea = nombre_aléatoire
end sub

[kiki29]

Salut, à lire la FAQ et aussi ici entre autres.

[a_diard]

tu as 2 variables

nombre_aléatoire que tu renseigne

nombre_aleatoire qui est vide

Mid(carac, nombre_aleatoire, 1)

l'erreur est juste.

bonne journée.