Mon bouton ajouter ne trouve pas ma base de donnee

J'ai un Userforme avec un bouton ajouter

lorsque j'ai les informations de mes différents champs cela me donne un code d'erreur je vois pas l'erreur... aider moi pour l'erreir

Private Sub Ajouter_Click()

Sheets("BD_SKOX").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown

Cells(2, 1) = Trim(TextBox1.Value)
Cells(2, 2) = CbClass.Value
Cells(2, 3) = CbCiv.Value
Cells(2, 4) = Trim(TxtNom.Value)
Cells(2, 5) = Trim(TxtPrenom.Value)
Cells(2, 6) = CDate(TxtDate.Value)
Cells(2, 7) = CDbl(TxtCont_1.Value)
Cells(2, 8) = Trim(TxtLieu.Value)
Cells(2, 9) = CbVil.Value
Cells(2, 10) = CbAcad.Value
Cells(2, 11) = CbModule.Value
Cells(2, 12) = Trim(TxtSpe.Value)
Cells(2, 13) = Trim(TxtSpe.Value)
Cells(2, 14) = Trim(TxtAf_Date.Value)

Range("A2").Select

Bonjour,

Sans fichier difficile à dire donc je pencherai pour une de ces deux lignes de code :

Cells(2, 6) = CDate(TxtDate.Value)
Cells(2, 7) = CDbl(TxtCont_1.Value)

Pour la première, vérifier que la date est conforme et pour la seconde, le point ou la virgule !

Voici joint mon fiche, et merci d'avance

Bonjour à tous,

A tester

With Sheets("BD_SKOX")
      i = .Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
      .Cells(i, 1) = Trim(TextBox1.Value)
      .Cells(i, 2) = CbClass.Value
      .Cells(i, 3) = CbCiv.Value
      .Cells(i, 4) = Trim(TxtNom.Value)
      .Cells(i, 5) = Trim(TxtPrenom.Value)
      .Cells(i, 6) = CDate(TxtDate.Value)
      .Cells(i, 7) = TxtCont_1.Value
      .Cells(i, 8) = Trim(TxtLieu.Value)
      .Cells(i, 9) = CbVil.Value
      .Cells(i, 10) = CbAcad.Value
      .Cells(i, 11) = CbModule.Value
      .Cells(i, 12) = Trim(TxtSpe.Value)
      .Cells(i, 13) = Trim(TxtSpe.Value)
      '.Cells(i, 14) = Trim(TxtAf_Date.Value)
  End With

En espèrant que cela t'aide

Je m'explique afin que vous me trouver une solution

il y a dans moi formulaire un TxtCode dans le champ s'affiche un mon code C19-0001... qui va dans ma basse de donnée Colonne A et cellule 2.... Pourquoi A2, tout simplement pour que ma TxtCode lit le code ajoute et m'ajoute +1 au nouveau code qui va m'affiche le nouveau code dans mon champ de la TxtCode....

lorsque J'ajouter le code là

Private Sub CbInscription_Click()

    With Sheets("BD_SKOX")
      i = .Cells(Application.Rows.Count, "A").End(xlUp).Row + 1

Cells(2, 1) = Trim(TextBox1.Value)
Cells(2, 2) = CbClass.Value
Cells(2, 3) = CbCiv.Value
Cells(2, 4) = Trim(TxtNom.Value)
Cells(2, 5) = Trim(TxtPrenom.Value)
Cells(2, 6) = CDate(TxtDate.Value)
Cells(2, 7) = CDbl(TxtCont_1.Value)
Cells(2, 8) = Trim(TxtLieu.Value)
Cells(2, 9) = CbVil.Value
Cells(2, 10) = CbAcad.Value
Cells(2, 11) = CbModule.Value
Cells(2, 12) = Trim(TxtSpe.Value)
Cells(2, 13) = Trim(TxtSpe.Value)
Cells(2, 14) = Trim(TxtAf_Date.Value)

  End With

End Sub

cela fonction Mains la TxtCode ne lit par mes information dans la Colonne A2, cela me donne un code d'erreur

Merci pour l'aide infiniment...

Re,

Je ne sais exactement ce que tu as fait comme test ...

Mais la première chose à faire ... est de remplacer tous les 2 par des i