XL 2013 Réinitialisation tableau(x) sans perdre formule et formatage

[Leguyl]

Bonjour à tou(te)s,

Jusqu'à présent, en VBA, j'utilisais ce genre de code pour réinitialiser un tableau :

Sub Reinit()
    On Error Resume Next 'empêche l'affichage d'une erreur lors de la réinitialisation du tableau s'il est déjà vide
    Range("TabCoûts").EntireRow.Delete
End Sub

... mais ici, je souhaiterais garder les formules et le formatage des cellules.

Possible sans trop de complications avec VBA ?

Merci d'avance.

 

[job75]

Bonjour Leguyl,

Sub Réinit()
With [TabCoûts] 'tableau structuré
    If .Rows.Count > 1 Then .Rows(2).Resize(.Rows.Count - 1).Delete xlUp
    On Error Resume Next 'si aucune SpecialCell
    .Rows(1).SpecialCells(xlCellTypeConstants).ClearContents
End With
End Sub

A+

 

[Leguyl]

Ah ça, c'est de l'aide rapide et efficace. Une fois de plus, grand merci à toi, job75