Discussion :

[EtudiantNoobVBA]

Bonjour,

Je suis débutant en VBA et j'ai un problème pour un projet à rendre. J'espère que quelqu'un pourra m'aider.

Je souhaite afficher dans les CheckBox et le Label le contenu de cellules. Actuellement, le contenu des cellules ne s'affiche que lorsque je clique sur les CheBox et le Label. Pourriez vous m'aider?

Voici mes lignes de 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
27
Private Sub Label1_Click()
Dim i As Integer
i = Workbooks("QCM_ClasseurEnseignant").Worksheets("Etudiants").Range("I2").Value
Label1.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("H" & i).Value
End Sub
 
 
Private Sub CheckBox1_Click()
Dim i As Integer
i = Workbooks("QCM_ClasseurEnseignant").Worksheets("Etudiants").Range("I2").Value
CheckBox1.Caption = CheckBox1.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("F" & i).Value
End Sub
 
 
 
Private Sub CheckBox2_Click()
Dim i As Integer
i = Workbooks("QCM_ClasseurEnseignant").Worksheets("Etudiants").Range("I2").Value
CheckBox2.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("G" & i).Value
End Sub
 
 
Private Sub CheckBox3Click()
Dim i As Integer
i = Workbooks("QCM_ClasseurEnseignant").Worksheets("Etudiants").Range("I2").Value
CheckBox3.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("H" & i).Value
End Sub

Merci d'avance!

[jfontaine]

Bonjour,

Actuellement, le contenu des cellules ne s'affiche que lorsque je clique sur les CheBox et le Label. Pourriez vous m'aider?

C'est normal puisque ton code d'alimentation se trouve dans les événements Click de chaque objet

Met ton code dans l'enevement Initialize de la Userform(si tes objets sont sur un userform)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
 
Dim i As Integer
 
i = Workbooks("QCM_ClasseurEnseignant").Worksheets("Etudiants").Range("I2").Value
 
Label1.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("H" & i).Value
CheckBox1.Caption = CheckBox1.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("F" & i).Value
CheckBox2.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("G" & i).Value
CheckBox3.Caption = Workbooks("QCM_ClasseurEnseignant").Worksheets("BanqueQuestions").Range("H" & i).Value
 
End Sub

[EtudiantNoobVBA]

Ah merci beaucoup jfontaine! Après des heures de recherche enfin la solution. J'avai remplacé chaqu Click par Initialize mais du coup il ne se passait rien du tout. Je vais utiliser tes lignes. Maintenant je peux m'attaquer à la suite du projet, et dire que ça va en se compliquant... ^^ Encore merci!

Bon ben mauvaise nouvelle... toujours rien quand j'affiche le UserForm et aucun message d'erreur.... Quelqu'un a une solution?

[jfontaine]

as tu vérifié que tes lignes retourne des données
les cellules H F G de la ligne i ont quelques chose dedans ?