Suppression de ligne

Bonsoir à tous,

Je suis quelque peu déprimée (je suis un oiseau de nuit) à trouver une solution afin de supprimer toutes les lignes de mon fichier. Je vous met le code utilisé pour supprimer un usager seulement dans ma base de donnée.
Je cherche afin de supprimer toute les lignes et repartir à 0. Vous avez une suggestion ? Je ne veux pas supprimer le contenu mais bien toutes les lignes entières.

Merci et bonne nuit

Sub SupprimerD()

With Sheets("Inscriptions")
.Unprotect Password:="CES"

    Dim Col, SupprimeLigne, I
    Set Col = [T_inscription].ListObject.ListColumns(5).DataBodyRange
    SupprimeLigne = InputBox("Veuillez entrer le nom, prénom à supprimer", "SUPPRESSION")
    For I = 1 To Col.Rows.Count
        If Col(I, 1) = SupprimeLigne Then [T_inscription].ListObject.ListRows(I).Delete: Exit For

    Next
.Protect Password:="CES"
End With
End Sub

Bonjour anniem, le forum,

Pour vider entièrement le tableau, essaies:

If Not Range("T_inscription").ListObject.DataBodyRange Is Nothing Then _
  Range("T_inscription").ListObject.DataBodyRange.Delete

Cordialement,

Bonjour xorsankukai,

Je demande une aide toujours car j'ai un souci avec mon tableau. Ce code fonctionne mais le truc c'est que je ne suis plus en mesure d'inscrire et je ne sais pas si le message est bien acheminé. Mot de passe CES.

Re,

Merci pour le retour,

Pour écrire dans le tableau, essaie ainsi:

'Inscrire dans la source

Private Sub Boutoninscrire_Click()
 Dim rcell As Range

 With Sheets("Inscriptions")
  .Activate
   If Range("T_inscription").Rows.Count > 39 Then
    MsgBox "Tableau complet", vbOKOnly + vbInformation, "COMFIRMATION"
    Unload Me
    Exit Sub
   End If

  If Bassins = "" Or ChoixRLS = "" Or NUM = "" Or Choixhrs = "" Or nomprenom = "" Or choixlangue = "" Or TextBox6 = "" Or datenaissance = "" Or typedemande = "" Or IntPivot = "" Or Intautres = "" Or profilintervention = "" Or profilisosmaf = "" Or oemcdate = "" Or raisoncode = "" Then
   MsgBox ("Tous les champs ne sont pas correctement remplis")
   Exit Sub
  End If

  .Unprotect Password:="CES"
   With .ListObjects("T_inscription")
    If .InsertRowRange Is Nothing Then '...................................si le tableau comporte des données
     Set rcell = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1) '....1ère cellule vide (colonne 1 du tableau,nombre de lignes du tableau+1)
    Else
     Set rcell = .InsertRowRange.Cells(1) '................................1ère cellule colonne 1 du tableau
    End If
   End With
    .Cells(rcell.Row, 2) = Bassins.Value
    .Cells(rcell.Row, 3) = ChoixRLS
    .Cells(rcell.Row, 4) = NUM
    .Cells(rcell.Row, 5) = Format(Me.Choixhrs.Value, "hh:mm:ss")
    .Cells(rcell.Row, 6) = nomprenom
    .Cells(rcell.Row, 7) = choixlangue
    .Cells(rcell.Row, 8) = TextBox6
    .Cells(rcell.Row, 9) = datenaissance
    .Cells(rcell.Row, 10) = typedemande
    .Cells(rcell.Row, 11) = IntPivot
    .Cells(rcell.Row, 12) = Intautres
    .Cells(rcell.Row, 13) = profilintervention
    .Cells(rcell.Row, 14) = profilisosmaf
    .Cells(rcell.Row, 15) = Format(Me.oemcdate.Value, "YYYY/MM/DD")
    .Cells(rcell.Row, 16) = raisoncode
    MsgBox "Les informations ont été ajoutés à la base de donnée", vbOKOnly + vbInformation, "COMFIRMATION"
  .Protect Password:="CES"
 End With
End Sub

Cordialement,

C'est du gros gibier

Merci infiniment

à bientôt !

Annie