Erreur d'éxécution 1004

Résolu

Rjp62 Messages postés 44 Date d'inscription Statut Membre Dernière intervention -
Rjp62 Messages postés 44 Date d'inscription Statut Membre Dernière intervention - 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 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
J'aime par erreur facebook notification - Forum Facebook
Code erreur f3500-31 ✓ - Forum Bbox Bouygues
Java code erreur 1603 ✓ - Forum Windows

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

au lieu de x1Up mettre xlUp

Réponse 2 / 3

Rjp62

Bjr Patrice,

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

Réponse 3 / 3

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 Statut Membre Dernière intervention 1

bjr, Patrice,

non ça reste en erreur a la ligne :

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

Utilisateur anonyme

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 Statut Membre Dernière intervention 1

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

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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 Statut Membre Dernière intervention 1

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

Discussions similaires

Erreur 3005 sur France TV

Code erreur 3000

Panne T32 sur telecommande Orange

Problème streaming France 2

impossible lire vidéos france 2

Votre réponse

Discussions similaires