Discussion :

[Zarath]

Bonjour,

Je réalise actuellement un fichier Excel permettant d'automatiser un planning de cours pour une association sportive.

J'ai sur une même feuille un tableau indiquant les professeurs en activités et leurs disponibilités sur 13 créneaux horaires pour chacun des jours de la semaine et parallèlement un planning que je cherche à remplir en sélectionnant pour chaque créneau horaire un professeur disponible sur ce créneau.

J'ai donc écrit le code suivant sous VBA :

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
Sub Macroaffectation()
 
    If Cells(76, 3) <> "Pas de cours" Then
 
Dim t(6 To 55)
Dim professeur As String
j = 0
For i = 6 To 55
    If Cells(i, 31) = "Oui" Then
        j = j + 1
        t(j) = Cells(i, 2)
    End If
    Next i
Randomize
professeur = t(Int(j * Rnd) + 1)
Cells(76, 3).Value = professeur
 
End If
 
End Sub

Mon idée est de tout d'abord vérifier s'il y a bien cours sur le créneau horaire choisi. Si c'est le cas, je regarde dans la colonne 31 qui correspond à mon premier créneau horaire, quelles sont les lignes où l'on a un oui c'est à dire les lignes où le professeur est disponible et répond aux différents critères (niveau...) pour assurer le cours. Ma variable t(j) me permet de récupérer le nom du professeur en colonne 2.
Enfin je sélectionne un professeur au hasard que j'affecte au créneau horaire que j'ai initialement choisi.

Lorsque je lance la macro j'ai pour erreur "L'indice n'appartient pas à la sélection" alors même que ma macro est affectée à la feuille sur laquelle j'ai toutes ces données.

Sauriez-vous d'où peut provenir le problème ?

Je vous remercie d'avance pour votre aide et vous souhaite un bon dimanche !

[Marc-L]

Bonjour,

ce message indique un index hors bornes, tout dépend donc de la ligne déclenchant l'erreur …

Suivre le code en mode pas à pas via la touche F8 tout en vérifiant le contenu des variables dans la fenêtre Variables locales …

[SfJ5Rpw8]

bonjour,

Utiliser un objet Cells sans préciser la feuille concernée c'est aller vers les ennuis un jour ou l'autre ......


sinon tu as oublié de nous dire sur qu'elle ligne à lieu l'erreur ... je dirais en ligne 11 ou tu essais d’accéder à t(1) ...

[Marc-L]

Exact ! Erreur de conception, la variable j ne devant pas être initialisée à zéro …

[Zarath]

Bonjour Marc-L et bbil,

Merci pour vos réponses. L'erreur a lieu lors du passage de la ligne t(j) = Cells(i,2) à la ligne End If.

Donc si je comprends bien, il me faut supprimer la ligne j = 0 ?

Merci beaucoup pour votre aide.

[SfJ5Rpw8]

non pas forcément ...

il te faut réfléchir à pourquoi tu as déclaré que ton tableau t .. pouvait avoir les index 6 à 55

Code :

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

Dim t(6 To 55)

et utiliser un index qui soit dans cette plage , ou modifier la plage ...

[Zarath]

bbil, merci pour ta réponse.

Le problème venait bien de là, mon index devant aller de 1 à 50 et pas de 6 à 55.

Encore merci à vous deux et bonne soirée !