Caption de CheckBox et Intitulé

Version imprimable

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:

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!

Bonjour,

Citation:

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:

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

31/05/2013, 13h22
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! :ccool:

Bon ben mauvaise nouvelle... toujours rien quand j'affiche le UserForm et aucun message d'erreur.... Quelqu'un a une solution?
31/05/2013, 14h29
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 ?