cs_masmas222
Messages postés1Date d'inscriptionmercredi 28 avril 2010StatutMembreDernière intervention13 novembre 2010
-
13 nov. 2010 à 17:05
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 2010
-
15 nov. 2010 à 17:59
Bonjour,
y a t'il une ame charitable pour m'aider a regarder ou son mes erreur sur mon fichier de formulaire en vba
je suis débutant et connait rien j'ai pris un fichier d'un petit cour 101 et j'ai commencer a le modifier et essayer de changer les choses dans les formules mais la les erreurs on commencer
je veux juste que le formulaire arrete de me donner une erreur 424
J'avais pris un formulaire déjà conçu, j'ai pris les cases et je les ais modifié. Par la suite j'ai regarder les formules pour essayer de comprendre pourquoi il y avait toujours des erreur 424 mais la je ne comprend pas toute le charabia qui est la dedans. Le petit cour qui montrais a faire ce formulaire etait simple mais quand tu telecharge le fichier final, cé pas dutout la meme chanson.
je sais que dans mon fichier les tables ne corresponde pas pour envoyer les reponse, je ne les ai pas encore changer, j'ai seulement conçu le formulaire, par le suite je vais lui dire dans quel case décharger les reponses.
Mais au depart le fomulaire ne veux meme pas s'afficher.
Il y a un paquet de formule jamais vu. Ce que je cherche c'est que mon formulaire quand on appui sur f5 arrete de me donner l'erreur 424
d'apres moi mon erreur doit etre dans cette formule mais je comprend pas a quoi sa sert
Dim TpsCuisson As Integer
Dim Photo 'on ne définit pas le type car on aura besoin de photo soit comme booléen (vrai/faux) soit comme string
'ces déclarations sont faites ici car ces variables sont passées d'une
'macro du module à une autre
Private Sub Frame1_Click()
End Sub
Private Sub FrameACONFIRMER_Click()
End Sub
Private Sub FrameCARTEDECREDIT_Click()
End Sub
Private Sub FrameCONJOINTPRESENT_Click()
End Sub
Private Sub FrameCONSOMMENT_Click()
End Sub
Private Sub FrameDEPUISLOCATAIRE_Click()
End Sub
Private Sub FrameEPICERIECHEZ_Click()
End Sub
Private Sub FrameLOCATAIRE_Click()
End Sub
Private Sub FrameMMETRAVAILLE_Click()
End Sub
Private Sub FrameMRTRAVAILLE_Click()
End Sub
Private Sub FrameOCCUPANTS_Click()
End Sub
Private Sub FramePARLEA_Click()
End Sub
Private Sub FramePROPRIETAIRE_Click()
End Sub
Private Sub FrameVIANDECHEZ_Click()
End Sub
Private Sub TextBox15_Change()
End Sub
Private Sub TextBoxADRESSE_Change()
End Sub
Private Sub TextBoxCOMMENTRAIREPOURVENDEUR_Change()
End Sub
Private Sub TextBoxCOMPTESRENDU_Change()
End Sub
Private Sub TextBoxDATE_Change()
End Sub
Private Sub TextBoxDATERENDEZVOUS_Change()
End Sub
Private Sub TextBoxDE_Change()
End Sub
Private Sub TextBoxDEPUISMMETRAVAILLE_Change()
End Sub
Private Sub TextBoxDEPUISMRTRAVAILLE_Change()
End Sub
Private Sub TextBoxHEURERENDEZVOUS_Change()
End Sub
Private Sub TextBoxNOMDUCLIENT_Change()
End Sub
Private Sub TextBoxNOMDUCONJOINT_Change()
End Sub
Private Sub TextBoxOCCUPATIONMR_Change()
End Sub
Private Sub TextBoxPAYANT_Change()
End Sub
Private Sub TextBoxPRETPERSONNELSOUAUTRES_Change()
End Sub
Private Sub TextBoxREF_Change()
End Sub
Private Sub TextBoxRENDEZVOUSJOUR_Change()
End Sub
Private Sub TextBoxREPRESENTANT_Change()
End Sub
Private Sub TextBoxRUETRANSVERSALE_Change()
End Sub
Private Sub TextBoxSOLICITEUR_Change()
End Sub
Private Sub TextBoxTELEPHONEBUR_Change()
End Sub
Private Sub TextBoxTELEPHONERES_Change()
End Sub
Private Sub TextBoxVILLE_Change()
End Sub
Private Sub UserForm_Initialize()
UsfMenu.Hide
Workbooks("fc-pap-userforms.xls").Activate 'pour le cas ou plusieurs classeurs sont ouverts
CboType.RowSource = ("code!TypePlat")
CboType.ListIndex = -1
ListOccasion.RowSource = ("code!Occasion")
ListOccasion.MultiSelect = fmMultiSelectExtended
ListOccasion.ListIndex = -1
CboNbConvives.RowSource = ("code!NbConvives")
CboNbConvives.ListIndex = -1
End Sub
Private Sub CmdAnnuler_Click()
Unload UsfNew 'décharge le formulaire. Au prochain lancement la procédure userform_initialize sera effecuée
'UsfNew.Hide cache le formulaire sans le décharger.
'Au prochain lancement, le userform_initialize n'est pas effectué
End Sub
Private Sub CmdValider_Click()
Dim Occasion
Dim i, j, T, c, ctrl, k, p, q, o
Dim FrameVIANDECHEZ
'**************************** VALIDATION DES DONNEES SAISIES **************************************
'on vérifie que les champs texte sont remplis (sauf pour les commentaires qui ne sont pas obligatoires)
If TextBoxVILLE.Value = "" Then
MsgBox ("Il faut donner une ville !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxTELEPHONERES.Value = "" Then
MsgBox ("Il faut donner un # de télephone !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxTELEPHONEBUR.Value = "" Then
MsgBox ("Il faut donner un # de télephone !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxSOLICITEUR.Value = "" Then
MsgBox ("Il faut donner un soliciteur !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxRENDEZVOUSJOUR.Value = "" Then
MsgBox ("Il faut donner un rendez-vous jour !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxNOMDUCLIENT.Value = "" Then
MsgBox ("Il faut donner un rendez-vous jour !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxHEURERENDEZVOUS.Value = "" Then
MsgBox ("Il faut donner un rendez-vous jour !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxDATERENDEZVOUS.Value = "" Then
MsgBox ("Il faut donner un rendez-vous jour !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxDATE.Value = "" Then
MsgBox ("Il faut donner un rendez-vous jour !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxADRESSE.Value = "" Then
MsgBox ("Il faut donner un rendez-vous jour !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
If TextBoxADRESSE.Value = "" Then
MsgBox ("Il faut donner un rendez-vous jour !")
Exit Sub 'interrompt la macro de validation, le userform reste affiché en l'état pour correction
End If
Sheets("cuisine").Activate
Range("A" & num).Value = TextBoxVILLE.Value
Range("B" & num).Value = TextBoxTELEPHONERES.Value
Range("C" & num).Value = TextBoxTELEPHONEBUR.Value
Range("D" & num).Value = TextBoxSOLICITEUR.Value
Range("E" & num).Value = TextBoxRUETRANSVERSALE.Value
Range("F" & num).Value = TextBoxREPRESENTANT.Value
Range("G" & num).Value = TextBoxRENDEZVOUSJOUR.Value
Range("H" & num).Value = TextBoxREF.Value
Range("I" & num).Value = TextBoxPRETPERSONNELSOUAUTRES.Value
Range("J" & num).Value = TextBoxOCCUPATIONMR.Value
Range("K" & num).Value = TextBoxNOMDUCONJOINT.Value
Range("L" & num).Value = TextBoxNOMDUCLIENT.Value
Range("M" & num).Value = TextBoxHEURERENDEZVOUS.Value
Range("N" & num).Value = TextBoxDEPUISMRTRAVAILLE.Value
Range("O" & num).Value = TextBoxDEPUISMMETRAVAILLE.Value
Range("P" & num).Value = TextBoxDE.Value
Range("Q" & num).Value = TextBoxDATERENDEZVOUS.Value
Range("R" & num).Value = TextBoxCOMPTESRENDU.Value
Range("S" & num).Value = TextBoxCOMMENTRAIREPOURVENDEUR.Value
Range("T" & num).Value = TextBoxADRESSE.Value
Range("U" & num).Value = FrameVIANDECHEZ
Range("V" & num).Value = FramePROPRIETAIRE
Range("W" & num).Value = FramePARLEA
Unload UsfNew 'on décharge le formulaire. Du coup au prochain affichage, les contrôles seront remis dans
'leur état initial. Si l'on voulait conserver certaines des données entrées, on pourrait simplement cacher
'le formulaire (hide UsfNew, sans point entre les deux) et dans le userform_initialize vider les
'contrôles de son choix.
UsfMenu.Show 'on réaffiche le userform donnant le choix de l'acion à l'utilisateur.
End Sub
Les termes dans cela ne corresponde pas au nom que j'ai donné à mes boites.
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 15 nov. 2010 à 17:59
Bonjour
As-tu donné les mêmes noms aux objets du formulaire?, et au formulaire lui même, ici "UsfMenu".
Au lieu de lancer par F5, fait du pas à pas par F8, ainsi tu verras à quelle ligne apparait l'erreur 424, qui dit qu'un objet est requis.
