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