Menu
  1. Accueil
  2. Forum d'assistance informatique
  3. Programmation
  4. VB / VBA

Erreur 1004 Erreur définie par l'application ou par l'objet [Résolu/Fermé]

Signaler
Messages postés
40
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
8 avril 2019
 -
 joelar -
Bonjour,

Je tente de copier les données entrées dans un formulaire vers une feuille de calcul nommée "Base de donnees" lorsque je clique sur un bouton. Cependant il m'affiche toujours l'erreur 1004.

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

J'ai essayé plusieurs méthode trouvé sur Internet mais sans succès, je suis toujours bloqué au même point. Voici le code 

Private Sub BoutonTerminer_Click()
' Copie les données de location dans une feuille de base de données
' Déclaration de la variable

Dim L As Integer

''Pour placer le nouvel enregistrement à La première ligne du tableau non vide
    If MsgBox("Confirmez-vous cette nouvelle location ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
        <bold>L = Sheets("Base de donnees").Range("A65536").End(x1Up).Row + 1</bold>

        Range("A" & L).Value = Sheets("Fiche Client").Cells("C4")
        Range("B" & L).Value = Sheets("Fiche Client").Cells("C5")
        Range("C" & L).Value = Sheets("Fiche Client").Cells("C6")
        Range("D" & L).Value = Sheets("Fiche Client").Cells("C7")
        Range("E" & L).Value = Sheets("Fiche Client").Cells("C8")
        Range("F" & L).Value = Sheets("Fiche Client").Cells("C9")
        
    End If
    
        Range("C4:C9").Select
        Selection.ClearContents
        Sheets("Formulaire").Select
        Range("B5:G5").Select
        Selection.ClearContents
        Range("B5").Select
    
End Sub




Si vous pouvez m'aider, j'en serais reconnaissant.

Merci d'avance
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
15213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 juin 2020
 1 292
Bonjour, 

x1Up
sauf erreur il y a un 1 ald d'un l minuscule
Signaler
Messages postés
40
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
8 avril 2019
 1
Arrrg je savais que c'étais un petit détail mais bon je ne m'y connais pas assez. Un gros merci à toi. Cependant j'ai l'erreur d'exécution 5 sur la ligne suivante. Argument ou appel de procédure incorrect.

Range("A" & L).Value = Sheets("Fiche Client").Cells("C4")

J'imagine que les autres lignes donneront la même erreur donc j'ai surement quelque chose à modifier dans cette ligne, le saurais-tu?

Merci à toi
Réponse 2 / 2
Messages postés
9426
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
4 juin 2020
 1 824
Bonjour

Range("A" & L).Value = Sheets("Fiche Client").Cells("C4")
1. Je préciserai la feuille devant Range
Sheets("Base de donnees").Range("A" & L).Value
2. Les paramètres de Cells (n° de ligne, n° de colonne)
Sheets("Fiche Client").Range("C4")

Cdlmnt
Signaler

Ça fonctionne c'est super! un gros merci mon ami. Très apprécié!
Signaler

Mais plus bas j'ai une macro qui efface les données et ça me dit qu'il y a une erreur.
La méthode sélect de la classe Range a échoué 

   Range("C4:C9").Select
        Selection.ClearContents
        Sheets("Formulaire").Select
        Range("B5:G5").Select
        Selection.ClearContents
        Range("B5").Select


Merci encore
Signaler
Messages postés
9426
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
4 juin 2020
 1 824
Es tu sûr que le nom de la feuille est écrit exactement comme ça (un espace malheureux à la fin, ça peut arriver) ?
Au passage, tu peux simplifier un peu
Sheets("Formulaire").Select
Range("B5:G5").ClearContents
ou encore mieux si tu n'as pas besoin de te retrouver dans la feuille Formulaire
Sheets("Formulaire").Range("B5:G5").ClearContents

Cdlmnt
Signaler

Yes maintenant tout fonctionne avec ta formule. Je n'ai pas trouvé d'espace ou d'erreur de frappe qui aurait fort bien pu être la problématique. Merci beaucoup.
Posez votre question