Menu

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

Messages postés
40
Date d'inscription
jeudi 15 novembre 2007
Statut
Membre
Dernière intervention
8 avril 2019
-
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 

Votre réponse

2 réponses

Messages postés
14234
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 avril 2019
1330
0
Merci
Bonjour,

x1Up
sauf erreur il y a un 1 ald d'un l minuscule
joelar
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
Commenter la réponse de f894009
Messages postés
8885
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 avril 2019
1932
0
Merci
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
Ça fonctionne c'est super! un gros merci mon ami. Très apprécié!
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
ccm81
Messages postés
8885
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
21 avril 2019
1932 -
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
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.
Commenter la réponse de ccm81