OVH Cloud OVH Cloud

aide userform

2 réponses
Avatar
francis
voila mon userforme
au deboggage j'ai erreur d'exection 91
bloc with non defini

-- si joint le code
j'ai excel xp
merci
'Procédure d 'événement Initialize pour UserForm1
Private Sub UserForm_Initialize()
Load thomas
thomas.Show
End Sub
Private Sub textBox1_Change()
Range("A1") = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("b1") = TextBox2
End Sub

Private Sub TextBox3_Change()
Range("C1").Formula = "=a1*(1-b1)"
TextBox3 = Range("c1")
End Sub

Private Sub CommandButton1_Click()
Unload thomas
End Sub

2 réponses

Avatar
MichDenis
La procédure "UserForm_Initialize" ouvre le formulaire
tu n'as pas à passer les lignes de code pour s'ouvrir...
il est déjà en train de le faire ! en conséquence,
oublie l'événement qui suit :

'--------------
Private Sub UserForm_Initialize()
' Load thomas
' thomas.Show
End Sub
'--------------



"francis" a écrit dans le message de news:
45749052$0$27367$
voila mon userforme
au deboggage j'ai erreur d'exection 91
bloc with non defini

-- si joint le code
j'ai excel xp
merci
'Procédure d 'événement Initialize pour UserForm1
Private Sub UserForm_Initialize()
Load thomas
thomas.Show
End Sub
Private Sub textBox1_Change()
Range("A1") = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("b1") = TextBox2
End Sub

Private Sub TextBox3_Change()
Range("C1").Formula = "¡*(1-b1)"
TextBox3 = Range("c1")
End Sub

Private Sub CommandButton1_Click()
Unload thomas
End Sub
Avatar
francis
merci

--
http://fjoly.club.fr/
"MichDenis" a écrit dans le message de news:
%23%23lcVr%
La procédure "UserForm_Initialize" ouvre le formulaire
tu n'as pas à passer les lignes de code pour s'ouvrir...
il est déjà en train de le faire ! en conséquence,
oublie l'événement qui suit :

'--------------
Private Sub UserForm_Initialize()
' Load thomas
' thomas.Show
End Sub
'--------------



"francis" a écrit dans le message de news:
45749052$0$27367$
voila mon userforme
au deboggage j'ai erreur d'exection 91
bloc with non defini

-- si joint le code
j'ai excel xp
merci
'Procédure d 'événement Initialize pour UserForm1
Private Sub UserForm_Initialize()
Load thomas
thomas.Show
End Sub
Private Sub textBox1_Change()
Range("A1") = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("b1") = TextBox2
End Sub

Private Sub TextBox3_Change()
Range("C1").Formula = "¡*(1-b1)"
TextBox3 = Range("c1")
End Sub

Private Sub CommandButton1_Click()
Unload thomas
End Sub