Probléme en bouton Ajouter

Bonjour,

Svp j'ai un souci concernant le bouton Ajouter qui marche tjrs pas , soit ça saute pas de ligne à chaque fois que j'ajoute une info , soit il se positionne pas dans la bonne cellule , pour les deux feuilles.

J'éspere que vous puissiez m'aider encore une fois .

Merci d'avance

voila mon programme

Bonjour,

Tu as structuré tes informations, en tableau; c'est parfait !

Du coup, il est peut-être préférable de construire le programme VBA à partir de cette structure.

        With Sheets("mafeuille").ListObjects("matable")

            .ListRows.Add
            .ListColumns("nom_colonne1").DataBodyRange.Rows(.ListRows.count).Value = "quoi"

       End With

Pour ne pas refaire tout ton code ...

Private Sub Ajout2_Click()
Sheets("Notes des étudiants").Activate
With Sheets("Notes des étudiants").ListObjects(1)
    .ListRows.Add
    .DataBodyRange.Cells(ListRows.Count, 1).Select
End With

ActiveCell = TBnumetud
ActiveCell.Offset(0, 1).Value = TBnomPrénom
ActiveCell.Offset(0, 2).Value = TBprénom
ActiveCell.Offset(0, 3).Value = TBMaths
ActiveCell.Offset(0, 4).Value = TBCompta
ActiveCell.Offset(0, 5).Value = TBhg
ActiveCell.Offset(0, 6).Value = TBPhilo
ActiveCell.Offset(0, 7).Value = TBFrançais
ActiveCell.Offset(0, 8).Value = TBAng

MsgBox "Les note de l''étudiant au nom de : " & TBnom & " " & TBprénom & vbCrLf & " ont bien été ajouté à votre Liste"
Sheets("Notes des étudiants").Activate

End Sub

Bonjour

Merci beaucoup , mais il m'affiche encore un probléme au niveau de cette ligne

.DataBodyRange.Cells(ListRows.Count, 1).Select

Monsieur si vous êtes encore la je vous prie de me répondre car je suis bloquée sur cette ligne

et merci pour votre précieux aide

Bonjour toutes et tous

Un grand merci à Steelson

pour les notes @vérifier, la note des Maths ne s'affichait pas

Private Sub Ajout2_Click()

Sheets("Notes des étudiants").Activate
With Sheets("Notes des étudiants").ListObjects(1)
    .ListRows.Add
    .DataBodyRange.Cells(.ListRows.Count, 1).Select
End With

ActiveCell = TBnumetud
ActiveCell.Offset(0, 1).Value = TBnomPrénom
ActiveCell.Offset(0, 2).Value = TBMaths
ActiveCell.Offset(0, 3).Value = TBCompta
ActiveCell.Offset(0, 4).Value = TBhg
ActiveCell.Offset(0, 5).Value = TBPhilo
ActiveCell.Offset(0, 6).Value = TBFrançais
ActiveCell.Offset(0, 7).Value = TBAng
'ActiveCell.Offset(0, 8).Value = TBAng

MsgBox "Les note de l''étudiant au nom de : " & TBnom & " " & TBprénom & vbCrLf & " ont bien été ajouté à votre Liste"
Sheets("Notes des étudiants").Activate

End Sub

crdlt,

André

Merci beaucoup à vous tous @Steelson et @Andre13 pour votre aide , j'ai corrigé tous les fautes et ça marchait parfaitement.

crdlt