Condition avec la fonction if

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:8O

Code:

---

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

---

bonsoir,

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

le if c'est soit :

Code:

---

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

---

où

Code:

---

1 2 3 4 5

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

---

Bonjour, cecilecedric

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

Citation:

---

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:

---

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

---

le reste étant rigoureusement inutile ! ;)

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