Erreur d'éxécution 1004

Résolu/Fermé

Rjp62 Messages postés 44 Date d'inscription jeudi 20 décembre 2018 Statut Membre Dernière intervention 23 mai 2023 - 21 févr. 2019 à 11:15
Rjp62 Messages postés 44 Date d'inscription jeudi 20 décembre 2018 Statut Membre Dernière intervention 23 mai 2023 - 22 févr. 2019 à 17:17

pourquoi cette erreur d'éxécution 1004 ?
ci-joint mon programme.

l'erreur s'affiche à : Ligne = sheets ("fichier des Articles").range("a3000").end(x1Up).row + 1
merci pour votre aide.

Private Sub CommandButton1_Click()
'double click bouton ajouter
If ComboBox1.Value = "" Then
MsgBox "veuillez renseigner le champs 'Société'"
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
Worksheets("Fichier des articles").Select
ligne = Sheets("Fichier des articles").Range("A3000").End(x1Up).Row + 1
Cells(ligne, 1) = ComboBox1.Value
Cells(ligne, 2) = TextBox2.Value
Cells(ligne, 3) = TextBox3.Value
Cells(ligne, 4) = ComboBox4.Value
Cells(ligne, 5) = TextBox5.Value
Cells(ligne, 6) = ComboBox2.Value
Cells(ligne, 7) = TextBox7.Value
Cells(ligne, 8) = TextBox8.Value
Cells(ligne, 9) = TextBox9.Value
Cells(ligne, 10) = TextBox10.Value
Unload FichierdesArticles
FichierdesArticles.Show
Else
End If
End If
End Sub

A voir également:

Erreur d'éxécution 1004
Erreur 0x80070643 - Guide
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
Erreur 38 free ✓ - Forum Mobile
Iptv erreur de lecture - Forum TV & Vidéo

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
21 févr. 2019 à 12:16

au lieu de x1Up mettre xlUp

Réponse 2 / 3

Rjp62
21 févr. 2019 à 12:24

Bjr Patrice,

merci mais cela ne fonctionne pas.
j'ai encore l'erreur !

Réponse 3 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
21 févr. 2019 à 14:10

rE?

Ceci fonctionne :

Private Sub CommandButton1_Click()
'click bouton ajouter
Dim ligne As Long
  If ComboBox1.Value = "" Then
    MsgBox "veuillez renseigner le champs 'Société'"
  Else
    If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
      With Worksheets("Fichier des articles")
        ligne = .Range("A3000").End(xlUp).Row + 1
        .Cells(ligne, 1) = ComboBox1.Value
        .Cells(ligne, 2) = TextBox2.Value
        .Cells(ligne, 3) = TextBox3.Value
        .Cells(ligne, 4) = ComboBox4.Value
        .Cells(ligne, 5) = TextBox5.Value
        .Cells(ligne, 6) = ComboBox2.Value
        .Cells(ligne, 7) = TextBox7.Value
        .Cells(ligne, 8) = TextBox8.Value
        .Cells(ligne, 9) = TextBox9.Value
        .Cells(ligne, 10) = TextBox10.Value
      End With
    Else
    
    End If
  End If
End Sub

Rjp62 Messages postés 44 Date d'inscription jeudi 20 décembre 2018 Statut Membre Dernière intervention 23 mai 2023 1
22 févr. 2019 à 05:28

bjr, Patrice,

non ça reste en erreur a la ligne :

ligne = .range("A3000").end(x1up).row + 1

Utilisateur anonyme
22 févr. 2019 à 09:03

Bonjour
Pourquoi y a-t-il toujours x1up alors que Patrice t'avait dit de mettre xlup, et que tu disais que tu l'avais fait ? Si tu n'as pas vu le L minuscule à la place du 1 pourquoi disais-tu que tu l'avais fait ?

Rjp62 Messages postés 44 Date d'inscription jeudi 20 décembre 2018 Statut Membre Dernière intervention 23 mai 2023 1
22 févr. 2019 à 13:40

sorry, oui pas fait attention avec l mini ça marche.
merci aie, aie, aie

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
22 févr. 2019 à 17:13

Surtout qu'au lieu de saisir le texte, il suffit d'un copier coller depuis ce site vers VBA !

Rjp62 Messages postés 44 Date d'inscription jeudi 20 décembre 2018 Statut Membre Dernière intervention 23 mai 2023 1
22 févr. 2019 à 17:17

Oui c'est ce que j'ai fait.
Encore toute mes excuses.
Merci.

Discussions similaires

VBA erreur 1004

MACRO : Problème " Erreur d'exécution '1004' "

Erreur d'éxecution 1004

[excel] erreur 1004 : fichier non enregistré.

Instagram "Désolé, une erreur s'est produite"

Discussions similaires

Newsletters