Discussion :

[EtudiantNoobVBA]

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!

[arnaud.123]

Bonjour,
Voila ce que tu peux faire : déclencher le code à l'activation de la UserForm
Arnaud

Code :

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

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 :

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

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