Erreur 1004
Clem
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je suis totalement novice dans ce domaine, et je souhaite créer un formulaire sur EXCEL. Au début tout fonctionnait bien, et depuis quelques minutes il m'affiche un message d'erreur 1004....
Sub Ecrire()
Cells(Row, 1) = Soc_Im
Cells(Row, 2) = Site_lm
Cells(Row, 3) = Contactsite_zs
Cells(Row, 4) = Pays_lm
La première ligne est en jaune..... Qu'est ce que je doit faire??
Je suis complètement perdue, je ne sais pas quoi faire, si quelqu'un à la solution je suis preneuse.
Merci beaucoup
Clém
je suis totalement novice dans ce domaine, et je souhaite créer un formulaire sur EXCEL. Au début tout fonctionnait bien, et depuis quelques minutes il m'affiche un message d'erreur 1004....
Sub Ecrire()
Cells(Row, 1) = Soc_Im
Cells(Row, 2) = Site_lm
Cells(Row, 3) = Contactsite_zs
Cells(Row, 4) = Pays_lm
La première ligne est en jaune..... Qu'est ce que je doit faire??
Je suis complètement perdue, je ne sais pas quoi faire, si quelqu'un à la solution je suis preneuse.
Merci beaucoup
Clém
A voir également:
- Erreur 1004
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- J'aime par erreur facebook notification - Forum Facebook
Bah justement je ne sais pas
Qui a ecrit le code?
Row, donne la ligne de la feuille a condition de la demander correctement
Ce n'est pas moi qui l'ai écrit celui la c'est sur je ne sais pas codé... J'ai suivis les indications, et ça a bloqué ensuite...
Au début tout fonctionnait bien,
Et le code du debut, vous l'avez poubellise?
Dim No_zs As Integer
Dim Cat_lm As String
Dim Marq_lm As String
Dim Util_lm As String
Dim Acha_lm As String
Dim Contrat_lm As String
Dim Typecontrat_lm As String
Dim Soc_lm As String
Dim Site_lm As String
Dim Pays_lm As String
Dim Prop_lm As String
Dim Locct_lm As String
Dim Loclt_lm As String
Dim Mod_zs As String
Dim Unit_zs As String
Dim Annee_zs As String
Dim Echeancelt_zs As String
Dim Duree_zs As String
Dim Contactsite_zs As String
Sub Rechercher()
Sheets("SAISIEX").Activate
Range("A1").Select
Row = 20
While ActiveSheet.Cells(Row, 1).Value <> ""
ActiveSheet.Cells(Row, 1).Select
Row = Row + 1
Wend
ActiveSheet.Cells(Row, 1).Select
End Sub
Sub Lire()
Soc_lm = SAISIEX.lm_soc.Value
Site_lm = SAISIEX.lm_site.Value
Pays_lm = SAISIEX.lm_pays.Value
Contactsite_zs = SAISIEX.zs_contactsite.Value
End Sub
Sub Ecrire()
Cells(Row, 1) = Soc_lm
Cells(Row, 2) = Site_lm
Cells(Row, 3) = Contactsite_zs
Cells(Row, 4) = Pays_lm
End Sub
Sub Nouveau()
Effacer
End Sub
Sub Effacer()
SAISIEX.zs_contactsite = ""
End Sub
Sub Rechercher2()
Sheets("SAISIE2").Activate
Range("A1").Select
Row = 8
While ActiveSheet.Cells(Row, 1).Value <> ""
ActiveSheet.Cells(Row, 1).Select
Row = Row + 1
Wend
ActiveSheet.Cells(Row, 1).Select
End Sub
Sub Lire2()
No_zs = SAiSIEX2.zs_no.Value
Cat_lm = SAiSIEX2.lm_cat.Value
Marq_lm = SAiSIEX2.lm_marq.Value
Mod_zs = SAiSIEX2.zs_mod.Value
Prop_lm = SAiSIEX2.lm_prop.Value
Unit_zs = SAiSIEX2.zs_unit.Value
Util_lm = SAiSIEX2.lm_util.Value
Acha_lm = SAiSIEX2.lm_acha.Value
Annee_zs = SAiSIEX2.zs_annee.Value
Locct_lm = SAiSIEX2.lm_locct.Value
Loclt_lm = SAiSIEX2.lm_loclt.Value
Echeancelt_zs = SAiSIEX2.zs_echeancelt.Value
Contrat_lm = SAiSIEX2.lm_contrat.Value
Typecontrat_lm = SAiSIEX2.lm_typecontrat.Value
Duree_zs = SAiSIEX2.zs_duree.Value
End Sub
Sub Ecrire2()
Cells(Row, 1) = No_zs
Cells(Row, 2) = Cat_lm
Cells(Row, 3) = Marq_lm
Cells(Row, 4) = Mod_zs
Cells(Row, 5) = Prop_lm
Cells(Row, 6) = Unit_zs
Cells(Row, 7) = Util_lm
Cells(Row, 8) = Acha_lm
Cells(Row, 9) = Annee_zs
Cells(Row, 10) = Locct_lm
Cells(Row, 11) = Loclt_lm
Cells(Row, 12) = Echeancelt_zs
Cells(Row, 13) = Contrat_lm
Cells(Row, 14) = Typecontrat_lm
Cells(Row, 15) = Duree_zs
End Sub
Sub Nouveau2()
Effacer2
Row = Row + 1
SAiSIEX2.zs_no = Row - 7
End Sub
Sub Effacer2()
SAiSIEX2.lm_cat = ""
SAiSIEX2.lm_marq = ""
SAiSIEX2.lm_prop = ""
SAiSIEX2.lm_util = ""
SAiSIEX2.lm_acha = ""
SAiSIEX2.lm_locct = ""
SAiSIEX2.lm_loclt = ""
SAiSIEX2.lm_contrat = ""
SAiSIEX2.lm_typecontrat = ""
SAiSIEX2.zs_mod = ""
SAiSIEX2.zs_unit = ""
SAiSIEX2.zs_annee = ""
SAiSIEX2.zs_echeancelt = ""
SAiSIEX2.zs_duree = ""
End Sub
Voilà ce que j'ai sur ma page.... Honnetement je suis complètement perdue...
Je ne vois même pas ce que j'ai codé toute à l'heure.. Je suis désolé si je ne peux pas vous donner plus d'informations, je suis complètement perdue