bonjour

comme le titre l'indique je souhaiterais supprime litéralement un tableau structuré avant de le reconstruire ainsi qu'enlever tout modification couleur ou format dans les cellules

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
    entete = Array("toto", "titi", "riri", "fifi", "loulou", "truc", "bidule", "machin", "chose")
    new_nom = "pannel1"
    nbligne = 6
    Themes = "truc bidule" & Date & "/" & "machin"
    With ActiveSheet
        .Cells(Rows.Count, 1).End(xlUp).Offset(1) = Themes
        '************************************************************************************
        'ici je voudrais le supprimer si il existe ainsi que tout mise en couleur ou format sur la plage occupée par le tableau
        ' tout a partir du themes
        '************************************************************************************
        .ListObjects.Add(xlSrcRange, .Cells(Rows.Count, 1).End(xlUp).Offset(2).Resize(6, UBound(entete) + 1), , xlNo).Name = new_nom
        .ListObjects("pannel1").TableStyle = "TableStyleMedium11"
        With Range("pannel1[#Headers]")
            .Value = entete
            .Interior.Color = RGB(0, 100, 0)
            .Font.Color = vbWhite
        End With
        'model d'acces a une colonne :
        'MsgBox Range(new_nom & "[titi]").Address
    End With
End Sub
quelqu'un sait faire ca ?