Erreur 1004 VBA

Version imprimable

Erreur 1004 VBA

Bonjour,

je développe un formulaire de saisie, et j'aimerais que l'activation de mon bouton 17 copie la ligne qui vient d'être saisie dans le formulaire (UserForm) dans l'onglet "BDD" de mon fichier, à la dernière ligne non vide.

La méthode que j'ai utilisé fonctionnait très bien jusqu'à ce que l'erreur 1004 apparaisse

Citation:

Erreur définie par l'application ou par l'objet

... et je ne comprends pas pourquoi, ni comment ça se fait que ça marchait hier et plus aujourd'hui :(

Si quelqu'un a une idée...

Merci BEAUCOUP!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub CommandButton17_Click() Me.Label2452.Visible = True 'label "analyse enregitrée" => affiché sur le formulaire Me.CheckBox22.Value = True Dim DerLig As Long 'Copier les analyses terminés (appui bouton) dans l'onglet 5 "BDD" With Worksheets("BDD") DerLig = .Range("A2").End(xlDown).Row + 1 NOM = "A20n" & Me.ComboBox1.Value Sheets("BDD").Range("C" & DerLig).Value = NOM Sheets("BDD").Range("A" & DerLig).Value = Year(Date) Sheets("BDD").Range("D" & DerLig).Value = Me.ComboBox25.Value Sheets("BDD").Range("F" & DerLig).Value = Me.TextBox2002.Value DerLig = DerLig + 1 End With End Sub

10/03/2020, 21h20
révèr

Bonsoir cmuela,

Tu as déclaré la variable derLig, mais où est la déclaration de la variable NOM ?

Variable NOM

Je l'avais oubliée en effet!

Mais même avec cette correction je retombe sur la même erreur, qu'il me situe à la ligne que j'ai mise en rouge.

La partie "affichage" avec le Label2452 et la Checkbox22 fonctionne, mais la copie d'un onglet à l'autre non.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton17_Click()

    Me.Label2452.Visible = True 'label "analyse enregitrée" => affiché sur le formulaire
    Me.CheckBox22.Value = True

    Dim DerLig As Long
    Dim NOM As String
                                                                'Copier les analyses terminés (appui bouton) dans l'onglet 5 "BDD"
        With Worksheets("BDD")
            DerLig = .Range("A2").End(xlDown).Row + 1
            
            Dim NOM As String
            NOM = "A20n" & Me.ComboBox1.Value
            
            Sheets("BDD").Range("C" & DerLig).Value = NOM
            Sheets("BDD").Range("A" & DerLig).Value = Year(Date)
            Sheets("BDD").Range("D" & DerLig).Value = Me.ComboBox25.Value
            Sheets("BDD").Range("F" & DerLig).Value = Me.TextBox2002.Value
                 
            DerLig = DerLig + 1
        End With
        
End Sub

10/03/2020, 22h26
cmuela

Erreur définie par l'application ou par l'objet

Bonsoir,

Quand j'appuie sur le bouton en question, ça m'affiche: "Erreur 1004: Erreur définie par l'application ou par l'objet"

J'ai essayé de remplacer

Code:

Sheets("BDD").Range("C" & DerLig).Value =NOM

Par

Code:

Feuil1.Range("C" & DerLig).Value = NOM

Mais j'ai toujours une erreur 1004 avec cette fois ci:

Citation:

La méthode "Range" de l'objet 'Worksheets' a échoué

Et... je ne vois pas trop ce que ça veut dire, ni quoi en faire!

J'ai bien cherché une réponse dans les autres discussions du forum, mais j'ai l'impression qu'il n'existe pas de solution unique pour cette erreur, et je n'ai pas assez d'expérience sur VBA trouver une alternative... :oops:

Merci beaucoup pour votre aide!!

Bonjour,

Essaie peut-être comme ceci
Et vérifie dans le la fenêtre de deboggage (ctrl+g) la valeur de derlig

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub CommandButton17_Click()
 
    Me.Label2452.Visible = True 'label "analyse enregitrée" => affiché sur le formulaire
    Me.CheckBox22.Value = True
 
    Dim DerLig As Long
    Dim NOM As String
                                                                'Copier les analyses terminés (appui bouton) dans l'onglet 5 "BDD"
        With Worksheets("BDD")
            DerLig = .Range("A2").End(xldown).Row + 1
Debug.print Derlig
 
            Dim NOM As String
            NOM = "A20n" & Me.ComboBox1.Value
 
            .Range("C" & DerLig).Value = NOM
           . Range("A" & DerLig).Value = Year(Date)
           . Range("D" & DerLig).Value = Me.ComboBox25.Value
           . Range("F" & DerLig).Value = Me.TextBox2002.Value
 
        End With
 
End Sub

11/03/2020, 09h02
cmuela

Résolu!

Bonjour,

J'ai ajouté la commande que vous m'avez suggéré et... la valeur de DerLig était la dernière ligne de ma feuille BDD.

En fait j'aurais du rentrer:

Code:

DerLig = .Range("A1").End(xlDown).Row + 1

au lieu de:

Code:

DerLig = .Range("A2").End(xlDown).Row + 1

La ligne A1 est mon en-tête, et la ligne A2 était remplie, du coup il cherchait après A2 et il ne trouvait pas la dernière ligne non vide.

Erreur bête :oops:

Merci beaucoup en tout cas, je commençais vraiment à désespérer!

Bonne journée :)