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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <joly.francis2@wanadoo.fr> a écrit dans le message de news:
45749052$0$27367$ba4acef3@news.orange.fr...
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
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
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
merci
--
http://fjoly.club.fr/
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23%23lcVr%23FHHA.420@TK2MSFTNGP06.phx.gbl...
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" <joly.francis2@wanadoo.fr> a écrit dans le message de news:
45749052$0$27367$ba4acef3@news.orange.fr...
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
-- 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