XL 2019 vba supprimer une ligne

[frederio]

Bonsoir a tous

Tu vous connais comment faire un code vba ?

Si tu veux être d’accord avec moi ??? vous m’aidez a expliqué comme Excel Merci


Sur feuille "SAISON"

Supprimer des lignes une tableau

=B3:G308

COPIER /COLLER DES DONNEES

1) copie =I3:N308

2) coller =B3063

 

[frederio]

il ne pas marche pas

Tu vous connais comment faire un code vba ?

 

[frederio]

c est faute !

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
If Range("Tbl_Saison_2").ListObject.DataBodyRange Is Nothing Then Exit Sub    'Tableau vide
If Range("Tbl_Saison_2").ListObject.ListColumns(1).Range.SpecialCells(xlCellTypeVisible).Count > 1 Then
    ListObjects(1).DataBodyRange.Copy ListObjects(2).ListRows.Add.Range
    ListObjects(1).DataBodyRange.Delete
End If

For i = 309 To 1 Step -1
    ListObjects(2).ListRows(i).Delete
Next i
End Sub