Bonjour,
J'ai une macro dans Workbook open
Private Sub Workbook_Open()
If Range("a2") = "nouveau" Then
UserForm1.Show
End If
If Range("a2") = "" Then
UserForm2.Show
End If
End Sub
et dans Userform Initialize
Private Sub UserForm_Initialize()
With Sheets("POSTE 1")
TextBox1.Text = .Range("D1").Value
TextBox2.Text = .Range("L1").Value
TextBox6.Text = .Range("D1").Value
TextBox10.Text = .Range("L1).Value
End With
End Sub
UserForm1 (TexBox1 et TexBox2)
UserForm2 (TexBox6 et TexBox10)
Je ne comprends pas comment corriger l'erreur.
Merci Yoyo
J'ai une macro dans Workbook open
Private Sub Workbook_Open()
If Range("a2") = "nouveau" Then
UserForm1.Show
End If
If Range("a2") = "" Then
UserForm2.Show
End If
End Sub
et dans Userform Initialize
Private Sub UserForm_Initialize()
With Sheets("POSTE 1")
TextBox1.Text = .Range("D1").Value
TextBox2.Text = .Range("L1").Value
TextBox6.Text = .Range("D1").Value
TextBox10.Text = .Range("L1).Value
End With
End Sub
UserForm1 (TexBox1 et TexBox2)
UserForm2 (TexBox6 et TexBox10)
Je ne comprends pas comment corriger l'erreur.
Merci Yoyo