Microsoft 365 Probléme en décalage de ligne

[Saloumakh]

Bonjour,

Svp, j'ai besoin de votre aide pour mon projet.

En fait,mon programme sert à ajouter les informations de chaque étudiant dans une liste , tout était bon jusqu'au bouton "Ajouter étudiant", il m'a affiché l'erreur 1004 au niveau de cette ligne "Selection.Offset(1, 0).Select" et je comprend pas pourquoi .
vous trouverez mon programme est ci-joint.



J’espère que vous m'avez compris et que vous puissiez m'aider

Merci d'avance

 

[cp4]

Bonjour Saloumakh,

code bouton ajouter etudiant

Private Sub Ajout_Click()
   Dim dl As Long
   With Sheets("Liste des étudiants")
      .Activate
      dl = .Range("B" & Rows.Count).End(xlUp).Row
      .Cells(dl + 1, 2) = Val(TBnumetud)
      .Cells(dl + 1, 3) = TBnom
      .Cells(dl + 1, 4) = TBprénom
      .Cells(dl + 1, 5) = CBsexe
      .Cells(dl + 1, 6) = CDate(TBdatenaiss)
      .Cells(dl + 1, 7) = TBnumtel
      .Cells(dl + 1, 8) = TBemail
      .Cells(dl + 1, 9) = TBadress
      .Cells(dl + 1, 10) = Val(TBcp)
      .Cells(dl + 1, 11) = TBville
   End With
   MsgBox "L'étudiant au nom de : " & TBnom & " " & TBprénom & vbCrLf & " a bien été ajouté à votre Liste"

End Sub

Bonne journée.

 

[M12]

Bonjour,
A voir avec les modification pour trouver la bonne ligne

 

[Saloumakh]

Merci infiniment à vous cp4 et M12 pour votre aide , les deux solutions ont du marcher .😀😉