Discussion :

[guerzan22]

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

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
 
sub test
nouvel_eleve 50
end sub 
Sub nouvel_eleve(nb_eleves  as long)
 
MsgBox nb_eleves
 
End Sub

[guerzan22]

Merci beaucoup pour votre réponse. Je ne souhaite pas appeler une procédure à partir d'une autre mais seulement récupérer la valeur de la variable nb_eleves. Je l'ai donc déclarée en premier pour pouvoir l'utiliser dans toutes les procédures.

[eriiic]

Bonjour,

Tes 2 procédures sont dans le même module ?
Si non déclare Public nb_eleves As Integer dans un module standard avant les procédures, et nb_eleves ne doit pas être déclaré ailleurs.

eric