Discussion :

[saboun.tebah]

Bonjour à tous,

Je suis débutante en VBA et j'ai codé une macro qui consiste à sélectionner aléatoirement des titres en s'assurant qu'ils soient tous distincts. La macro prend en paramètre le nombre de titres que l'on souhaite avoir dans son PF. Voici mon 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
17
18
19
20
21
22
23
24
25
26
'Etape 1 : Selection aléatoire des titres du portefeuille
Sub Creation_PF(Nb_titres_PF)
    Dim Position As Integer, Nb_Titres_OK As Integer, Titre As Integer
    Dim Pointeur As Integer, test As Boolean
    Position = 1 ' On démarre le tableau à la 1ere ligne
    Nb_Titres_OK = 0 'Pour l'instant aucun titre ditinct
    Do
        Randomize 'Initialisation du générateur aléatoire
        Titre = Int(Rnd() * 50) + 1 'On tire un titre au hasard
        Pointeur = 1
        test = False
        While Pointeur <= Position And test = False ' La variable test nous évite de _
        tous les éléments
            If Numeros_titre(Pointeur) = Titre Then               
 test = True
            End If
            Pointeur = Pointeur + 1
        Wend
        If test = False Then
            Numeros_titre(Position) = Titre
            Nb_Titres_OK = Nb_Titres_OK + 1
            Position = Position + 1
        End If
    Loop While Nb_Titres_OK < Nb_titres_PF
End Sub

Lorsque j'utilise la fonction Debug de VBA, il me signale que la ligne qui pose problème est la ligne 23. VBA me notifie une erreur : "Run-time error '9' : Subscript out of range.
J'ai revu mon code un nombre incalculable de fois mais je ne vois vraiment pas ou est l'erreur.
Pourriez-vous m'aider ?


Merci beaucoup.

[Marc-L]

Bonjour, bonjour !

Rappel pour la prochaine fois : poster dans le bon forum, là où il y a le plus de passage …
Ici c'est le forum des formules de feuilles de calculs !

La ligne n°23 du code présenté correspond à End If donc je ne vois pas de relation !

Suis ton code en mode pas à pas via la touche F8 tout en vérifiant le contenu de la fenêtre des Variables locales,
ton erreur tu trouveras …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[saboun.tebah]

Bonjour Marc L,


Désolée, je suis nouvelle et j'ai du mal encore à repérer les fils de discussions. Je tâcherai à l'avenir de respecter les règles de post.

Oui, alors apparement il a une différence de comptage de lignes entre ma macro vba et mon message
Le problème porte donc sur la ligne 19 "If Numeros_titres(Pointeur) = Titre Then ".


Merci pour votre aide.

[Marc-L]

La ligne n°14 tu veux dire ?!

Vu l'aide du message d'erreur pourtant claire, la variable Pointeur est en dehors des bornes de la soit disant
variable tableau Numeros_titre, soit disant car n'a pas l'air d'avoir été déclarée comme telle !

Bref, c'est simple à vérifier dans la fenêtre des Variables locales ou en insérant un Debug.Print dans le code.

Une débutante devrait placer en tête de module l'instruction Option Explicit …