Erreur 1004

Clem -

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

Afficher la suite

1 réponse

Résumé de la discussion

Un utilisateur novice cherche à créer un formulaire sur Excel et rencontre l'erreur d'exécution 1004 lors de l'écriture des valeurs dans les cellules via un formulaire VBA. Plusieurs propositions suggèrent des ajustements dans le code, notamment remplacer Row par LRow et vérifier le démarrage des données, afin d'éviter les références problématiques et l'alignement des colonnes. Des informations évoquent aussi que certaines interfaces utilisent TextBox ou ComboBox et que les colonnes de destination peuvent démarrer à partir de B plutôt que A, nécessitant une adaptation du code. En parallèle, des participants prévoient l'envoi d'un fichier corrigé et discutent de la correspondance entre les contrôles et les données à écrire, apportant une nuance utile pour progresser.

Réponse 1 / 1
f894009
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?

0
1. Clem
  
  Bah justement je ne sais pas... Je n'ai pas de colonne qui s'appelle "ROW", est ce que je doit mettre le nom de mes colonnes??
  
  0
2. f894009
  
  @ClemRe,
  
  Bah justement je ne sais pas
  Qui a ecrit le code?
  Row, donne la ligne de la feuille a condition de la demander correctement
  
  0
3. Clem
  
  @f894009J'ai suivis une vidéo : https://www.youtube.com/watch?v=HfvbvNETYSs sauf que lui ça fonctionne..
  
  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...
  
  0
4. f894009
  
  @ClemRe,
  Au début tout fonctionnait bien,
  Et le code du debut, vous l'avez poubellise?
  
  0
5. Clem
  
  Public Row As Integer
  
  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
  
  0

Erreur 1004

1 réponse

Discussions similaires

Newsletters