erreur 424 vba excel

erreur 424 vba excel - Matériels & problèmes divers - Hardware

Marsh Posté le 13-11-2010 à 18:09:27    

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.
 
merci.

Reply

Marsh Posté le 13-11-2010 à 18:09:27   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed