[VBA] - Structuration d'un tableau > numéro colonne non souhaité

Bonsoir,

Lorsque je structure un tableau en VBA, j'ai parfois les en-têtes qui se retrouvent en ligne 2 et la ligne 1 est alors renseignée avec le numéro des colonnes.

Cela engendre des problèmes dans l'exécution de mon code ensuite et j'aimerais que ces numérotations de colonnes n’apparaissent plus. Savez-vous comment faire ?

Voici le code VBA :

    Dim tb As ListObject
    Dim co as worksheet
    Set co = Worksheets("Correspondances")

    With co
        If .ListObjects.Count Then
            .ListObjects(1).Name = "Correspondances"
        Else
        Set tb = .ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion)
            tb.Name = "Correspondances"
        End If
    End With

    With co.Cells(1, 1)
        .AutoFilter
    End With

Et voici un document Excel qui exécute le code et qui présente le résultat que j'aimerais obtenir.

Pour faire simple, je veux simplement indiquer à Excel que mon tableau comporte des en-têtes

Je vous remercie de votre attention !

Bonne fin de soirée, bonnes fêtes.

A plus tard

En fait c'était pas compliqué...

Voici le code qui fonctionne comme souhaité :

Sub structab()
    Dim tb As ListObject
    Set co = Worksheets("Correspondances")

    With co
        If .ListObjects.Count Then
            .ListObjects(1).Name = "Correspondances"
        Else
        Set tb = .ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, , xlYes)
            tb.Name = "Correspondances"
        End If
    End With

'    With co.Cells(1, 1)
'        .AutoFilter
'    End With
End Sub

J'ai simplement modifié cette partie :Set tb = .ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, , xlYes)

Bonne soirée !

Bonjour,

Une autre solution.

Cdlt.

Sub structab()
Dim co As Worksheet, tb As ListObject
    Set co = ActiveWorkbook.Worksheets("Correspondances")
    On Error Resume Next
    Set tb = Range("Correspondances").ListObject
    On Error GoTo 0
    If tb Is Nothing Then
        Set tb = co.ListObjects.Add(xlSrcRange, co.Cells(1).CurrentRegion, , xlYes)
        tb.Name = "Correspondances"
    End If
End Sub