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

Leguyl · 27 Octobre 2020

Bonjour à tou(te)s,

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

Code:

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 · 27 Octobre 2020

Bonjour Leguyl,

VB:

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+

job75 · 27 Octobre 2020

Bonjour Leguyl,

VB:

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 · 27 Octobre 2020

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

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

Leguyl

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Leguyl

XLDnaute Occasionnel

Discussions similaires