Problème Label et CheckBox VBA

Bonjour,

Je suis débutant en VBA et j'ai un problème.

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:

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,
Voila ce que tu peux faire : déclencher le code à l'activation de la UserForm
Arnaud

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Activate() 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

---

Si tes label et checkbox sont dans ta feuille, tu peux déclencher quand un élément de la feuille change.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) 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 End Sub

---