Erreur 1004
Fermé
Clem
-
17 mai 2017 à 15:44
f894009 Messages postés 17233 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 janvier 2025 - 18 mai 2017 à 10:15
f894009 Messages postés 17233 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 janvier 2025 - 18 mai 2017 à 10:15
A voir également:
- Erreur 1004
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Erreur 5000 france tv - Forum iPhone
- Erreur 38 free ✓ - Forum Mobile
1 réponse
f894009
Messages postés
17233
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 janvier 2025
1 712
17 mai 2017 à 15:49
17 mai 2017 à 15:49
Bonjour,
La première ligne est en jaune..... Qu'est ce que je doit faire??
Row: est un mot reserve EXCEL, dans votre cas il sort d'ou?
La première ligne est en jaune..... Qu'est ce que je doit faire??
Row: est un mot reserve EXCEL, dans votre cas il sort d'ou?
17 mai 2017 à 16:06
17 mai 2017 à 16:09
Bah justement je ne sais pas
Qui a ecrit le code?
Row, donne la ligne de la feuille a condition de la demander correctement
17 mai 2017 à 16:12
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...
17 mai 2017 à 16:13
Au début tout fonctionnait bien,
Et le code du debut, vous l'avez poubellise?
17 mai 2017 à 16:16
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