VBA Suppression

Bonjour à tous,

J'ai un petit soucis au niveau de mon bouton "Insérer un nouveau licencié" sur mon formulaire.

Le nouveau licencié que j'ajoute ne vient pas s'intégrer dans ma base de données (feuille "TableauInfo").

A contrario, quand je supprime un licencié, la base de données se met bien à jour.

Si quelqu'un pourrait m'aider à remédier à ce petit soucis

Je vous remercie par avance.

Le mot de passe pour accéder au formulaire est "MDP".

Bonjour Fouine, bonjour le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Dim V As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
V = Sheets("TABLEAUINFO").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
With Sheets("TABLEAUINFO")
     .Range("A" & V).Value = TextBox18.Value
     .Range("B" & V).Value = TextBox1.Value
     .Range("C" & V).Value = ComboBox2.Value
     .Range("D" & V).Value = ComboBox3.Value
     .Range("E" & V).Value = TextBox4.Value
     .Range("F" & V).Value = TextBox5.Value
     .Range("G" & V).Value = TextBox6.Value
     .Range("H" & V).Value = TextBox7.Value
     .Range("I" & V).Value = TextBox8.Value
     .Range("J" & V).Value = TextBox9.Value
     .Range("K" & V).Value = TextBox10.Value
     .Range("L" & V).Value = TextBox11.Value
     .Range("M" & V).Value = TextBox12.Value
     .Range("N" & V).Value = ComboBox4.Value
     .Range("O" & V).Value = ComboBox5.Value
     .Range("P" & V).Value = ComboBox6.Value
     .Range("Q" & V).Value = ComboBox7.Value
     .Range("R" & V).Value = TextBox17.Value
End With
End If
Unload Me
UserForm1.Show
End Sub

Merci beaucoup ThauThème pour la rapidité de ta réponse.

Tout fonctionne.

Ma ligne se rajoute bien dans ma base de données à la fin.

Est-ce possible que l'ajout du licencié se mette dans l'ordre alphabétique parmi les autres dans la base?