Erreur aprés copie de Userform

Bonjour à Tous

J'ai suivi un tuto pour créer un userform pour qui fonctionne plutôt bien. J'ai copié ce userform sur le même classeur en modifie le code pour l'adapter.

lorsque je l’exécute, j'ai un message d'erreur. Je ne comprend d'où viens l'erreur

je joint au présent mon fichier pour plus de compréhension

Bonjour

Ta as ces 3 instructionss dans la macro du bouton '' Ajouter une entrée ":

  Range("A4").Select
  Selection.End(xlDown).Select 'on se positionne sur la dernière ligne non vide
  Selection.Offset(1, 0).Select ' on se décale d'une ligne vers le bas

La première te seléctionne la cellule A4

La deuxième équivaut à fairer ctrl et flèche vers le bas. Comme toutes les cellules de la colonne A sous A4 sont vides, tu sélectionnes donc la dernière ligne du tableau, tout en bas, c'est à dire la cellule A1048576.

Et enfin la 3° instruction demande de décaler encore d'une ligne vers le bas la cellule active. Mais ce n'est pas possible puisque tu es à la dernière ligne.

Tu devrais remplacer tout ça par :

Range("A" & rows.Count).End(xlUp).Row +1

En partant du bas du tableau, tu sélectionneras ainsi la bonne cellule de la colonne A.

OK ?

Bye !

J'ai essayer mais quand je met ce code

Range("A" & rows.Count).End(xlUp).Row +1

Il me renvoi une erreur sur le dernier row et supprime le + de +1

ce que je ne comprend le code fonctionne avec la feuille sortie

cordialement

Bonjour,

Il te faut passer cette valeur à une variable :

Private Sub BtnAjoutEntree_Click()

    Dim Lgn As Long

    With Sheets("Entree")

        .Activate

        'récupère le numéro de ligne de la dernière cellule non vide et incrémente de 1
        Lgn = .Cells(Rows.Count, 1).End(xlUp).Row + 1

        .Cells(Lgn, 1).Value = CboNom.Value
        .Cells(Lgn, 2).Value = CDate(TxtDate.Value)
        .Cells(Lgn, 3).Value = CDbl(TxtBiere.Value)
        .Cells(Lgn, 4).Value = CDbl(TxtBlanc.Value)
        .Cells(Lgn, 5).Value = CDbl(TxtChampigny.Value)
        .Cells(Lgn, 6).Value = CDbl(TxtCidre.Value)
        .Cells(Lgn, 7).Value = CDbl(TxtCoca.Value)
        .Cells(Lgn, 8).Value = CDbl(TxtEaulitre.Value)
        .Cells(Lgn, 9).Value = CDbl(TxtEauAlix.Value)
        .Cells(Lgn, 10).Value = CDbl(TxtMousseux.Value)
        .Cells(Lgn, 11).Value = CDbl(TxtOrangina.Value)
        .Cells(Lgn, 12).Value = CDbl(TxtPerrier.Value)
        .Cells(Lgn, 13).Value = CDbl(TxtRicqles.Value)
        .Cells(Lgn, 14).Value = CDbl(TxtRosé.Value)
        .Cells(Lgn, 15).Value = CDbl(TxtStNic.Value)
        .Cells(Lgn, 16).Value = CDbl(TxtSaumRou.Value)
        .Cells(Lgn, 17).Value = CDbl(TxtSchweippes.Value)
        .Cells(Lgn, 18).Value = CDbl(TxtVinOff.Value)

    End With

End Sub

Bonjour

Un essai à tester.

Bye !