Bonjour
Désolée de vous déranger encore, j'ai généré plusieurs fonctions sur un userform sur vba. Pour l'instant un label et 3 optionbuttons, le but c'est à partir de la cellule que j'ai généré de façon variable dans le label: de générer les trois cellules à gauche de façon aléatoire dans les optionsbuttons. J'ai alors déclarez mes variables au tout début avant les sous fonctions pour pouvoir conserver les même valeurs dans l'éxecution de mes sous programme.
Mais à la fonction if pour le deuxième bouton il dit que mon else est sans if:
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 OptionButton1_Click() CL1 = Int(Rnd * 3) + 2 Set Reponse1 = Worksheets("Feuil1").Cells(lg, CL1) With OptionButton1 .Caption = Reponse1.Value End With Set Reponse1 = Nothing End Sub Private Sub OptionButton2 CL2 = Int(Rnd * 3) + 2 If CL2 = CL1 Then CL2 = Int(Rnd * 3) + 2 Else: CL2 = CL2 End If Set Reponse2 = Worksheets("Feuil1").Cells(lg, CL2) With OptionButton2 .Caption = Reponse2.Value End With Set Reponse2 = Nothing End Sub
Partager