Discussion :

[cecilecedric]

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

[JackOuYA]

bonsoir,

manque un saut de ligne aprés le then ...

le if c'est soit :

Code :

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

if <condition> then <action> else <autreAction>

où

Code :

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

1
2
3
4
5
if <condition> then 
  <action> 
 else 
 <autreAction>
End if

[ucfoutu]

Bonjour, cecilecedric

Une condition else (telle que tu la définis avec CL2 = CL2 ...)

If CL2 = CL1 Then CL2 = Int(Rnd * 3) + 2
Else: CL2 = CL2
End If

est de surcroît totalement superflue ici !...

Elle revient tout simplement à écrire :

Code :

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

If CL2 = CL1 Then CL2 = Int(Rnd * 3) + 2

le reste étant rigoureusement inutile !

[cecilecedric]

je vous remercie je me doutais que ça devait être un truc très bête ça n'a pas manqué en tout cas merci beaucoup c'est vrai que j'ai tendance à faire trop de superflu à chaque fois.
"Le superflu, chose si nécessaire." voltaire