Souci dans userform

Bonjour, j'ai une userform 3 sur l'onglet base sinistre, j'ai voulu copier la user forme sur un autre onglet base épave, et bien sûr j'ai changé la référence des cellules mais j'ai un message d'erreur à chaque fois je fais un double clique sur E17 .

À l'ouverture du fichier il faut choisir perte partielle

Merci pour votre aide

Bonjour

Normal...

Dans votre Userform4, la textbox est nommée textbox6 et il n'y a pas de textbox1, 2, 3, 4, 5 comme précisé dans la Private Sub UserForm_Initialize()

Modifiez le code comme suit :

Private Sub UserForm_Initialize()
With Me
    .OptionButton1 = False ' -
    .OptionButton2 = False ' 2500
    .OptionButton3 = False ' 3000
    .OptionButton4 = False ' 10000
    .OptionButton5 = False ' 50000
    .TextBox6.Text = Sheets("Base_Sinistre").Range("F22")
End With
End Sub

Oubliez pas de cloturer le fil si ok

Cordialement

Merci beaucoup

j'ai changer comme tu ma dit mais j'ai toujours un message , alors que dans ma user form 3 marche trés bien

Bonjour

dans Initialize les OptionButton sont toujours a false

Private Sub UserForm_Initialize()
'Me.OptionButton1 = False ' -
'Me.OptionButton2 = False ' 2500
'Me.OptionButton3 = False ' 3000
'Me.OptionButton4 = False ' 10000
'Me.OptionButton5 = False ' 50000
''OptionButton1.Caption = Sheets("Base_Sinistre").Range("F22")
'Me.TextBox1.Text = Sheets("Base_Sinistre").Range("F22")
'Me.TextBox2.Text = Sheets("Base_Sinistre").Range("F22")
'Me.TextBox3.Text = Sheets("Base_Sinistre").Range("F22")
'Me.TextBox4.Text = Sheets("Base_Sinistre").Range("F22")
'Me.TextBox5.Text = Sheets("Base_Sinistre").Range("F22")

Me.TextBox6.Text = Sheets("Base_Sinistre").Range("F22")
End Sub

A+

Maurice

Re

j'ai changer comme tu ma dit mais j'ai toujours un message , alors que dans ma user form 3 marche trés bien

Expliquer ce que vous faites ...

Attention que vous devez changer le code aussi dans l'userform 4... le double click dans la feuille Bas épave fait appel à l'userform 4

Cordialement