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