Bonjour à tous.

Je suis débutant en programmation. J'essaie de récupérer la valeur de la variable nb_eleves dans la seconde sub. Chaque procédure se déclenche en cliquant sur deux boutons. Je n'obtiens pas la bonne valeur dans la MsgBox. Je suis dans l'impasse depuis qq heures après avoir consulté les tutoriaux et les forums. Merci d'avance pour votre aide.

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
27
28
29
30
31
32
33
34
35
36
Dim nb_eleves As Integer
 
Sub Ajout_eleves()
 
Dim liste_eleves() As String
Dim nom As String
Dim prenom As String
Dim eleve As String
Dim Cname As String
 
nb_eleves = WorksheetFunction.CountA(Range("A:A")) - 1
 
ReDim liste_eleves(nb_eleves, 3)
 
    For i = 1 To nb_eleves
    nom = Cells(i + 1, 1).Value
    liste_eleves(i, 1) = nom
    prenom = Cells(i + 1, 2).Value
    liste_eleves(i, 2) = prenom
    eleve = nom + " " + prenom
    Sheets.Add(, ActiveSheet).Name = eleve
    Sheets(eleve).Range("A1").Value = nom
    Sheets(eleve).Range("B1").Value = prenom
    Cname = Worksheets(eleve).CodeName
    liste_eleves(i, 3) = Cname
    Call competences.copie_competences(eleve)
    Call competences.EcrireCode(Cname)
    Next
 
End Sub
 
Sub nouvel_eleve()
 
    MsgBox nb_eleves
 
End Sub