Discussion :

[cmuela]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[révèr]

Bonsoir cmuela,

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

[cmuela]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cmuela]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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...

Merci beaucoup pour votre aide!!

[mfoxy]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cmuela]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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


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

Bonne journée