Erreur de compilation - Else sans if

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
Je viens vers vous car cette erreur queje n'arrive pas à comprendre
Pièce jointe 282164
quand j'execute le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
                    If OptionButton1.Value = True Then
                        Sheets("parametres").Cells(Lig, 53) = TextBox1.Value
                        Sheets("parametres").Cells(Lig, 54) = TextBox2.Value
                    ElseIf OptionButton2.Value = True Or OptionButton3.Value = True Then
                        With Worksheets("parametres")
                             .Hyperlinks.Add Anchor:=.Range("BC" & Lig), _
                             Address:=TextBox3.Value, _
                             ScreenTip:="", _
                             TextToDisplay:=TextBox1.Value
                    Else
                        MsgBox "Aucun résultat"
                    End If

Quand je met cette partie en commentaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
                    If OptionButton1.Value = True Then
                        Sheets("parametres").Cells(Lig, 53) = TextBox1.Value
                        Sheets("parametres").Cells(Lig, 54) = TextBox2.Value
'                    ElseIf OptionButton2.Value = True Or OptionButton3.Value = True Then
'                        With Worksheets("parametres")
'                             .Hyperlinks.Add Anchor:=.Range("BC" & Lig), _
'                             Address:=TextBox3.Value, _
'                             ScreenTip:="", _
'                             TextToDisplay:=TextBox1.Value
                    Else
                        MsgBox "Aucun résultat"
                    End If

, je n'ai plus l'erreur.

Arrivez vous à voir où ça cloche????

Merci d'avance

Post crée pour pas grand chose.....
J'avais simplement oublié le End with....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
                    If OptionButton1.Value = True Then
                        Sheets("parametres").Cells(Lig, 53) = TextBox1.Value
                        Sheets("parametres").Cells(Lig, 54) = TextBox2.Value
                    ElseIf OptionButton2.Value = True Or OptionButton3.Value = True Then
                        With Worksheets("parametres")
                             .Hyperlinks.Add Anchor:=.Range("BC" & Lig), _
                             Address:=TextBox3.Value, _
                             ScreenTip:="", _
                             TextToDisplay:=TextBox1.Value
                    Else
                        MsgBox "Aucun résultat"
                        end with
                    End If

Si ca peut servir à quelqu'un....

A+

03/06/2017, 17h51
Philippe Tulliez
Bonjour,
Etant donné que tu utilises également la feuille nommée [parametres] dans toute la structure conditionnelle, j'aurais placé cette ligne

Code:

With Worksheets("parametres")

en début du bloc If

De plus, je trouve l'utilisation des ElseIf un peu indigeste à la lecture, je privilégierais le Select Case

Petit exemple
avec ElseIf (petite remarque également If Val_1 = True Then peut-être remplacé par If Val_1 Then le True étant implicite
Code:

1 2 3 4 5 6 7 8 If Val_1 = True Then MsgBox "val_1" ElseIf Val_2 = True Then MsgBox "val_2" Else MsgBox "rien de prévu" End If
avec Select Case
Code:

1 2 3 4 5 6 7 8 Select Case True Case Val_1 MsgBox "val_1" Case Val_2 MsgBox "val_2" Case Else MsgBox "rien de prévu" End Select