Discussion :

[Aurélien13140]

Bonjour,
Je viens vers vous car cette erreur queje n'arrive pas à comprendre

quand j'execute le code suivant :

Code :

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

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 :

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

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

[Aurélien13140]

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

Code :

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

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+

[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 :

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

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 :

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

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 :

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

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