Supprimer les colonnes entières en fonction des cellules d’une ligne

Bonjour,

Je souhaiterais effectuer une macro qui permettrait de supprimer les colonnes entières si les cellules de la lignes 3 contiennent un #NA.
Le code si dessous prend une compte les données de A1 à G1 or je voudrais que seulement les cellules de la ligne 3 contenant #NA soit supprimer.

De plus, je voudrais que la macro réalise cela pour tous les tableaux de tous les onglets du fichiers Excel.

Auriez vous une solution je suis vraiment novice en vba ?

Merci d’avance pour votre aide

Sub DeleteSpecifcColumn()

Set MR = Range("A1:G1") For Each cell In MR If cell.Value = "#NA" Then cell.EntireColumn.Delete Next

End Sub

Bonjour,
Une première réponse ?
Cdlt.

Sub DeleteSpecificColumns()
Dim ws As Worksheet
Dim lastCol As Long, lCol As Long
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            lastCol = ws.Cells(3, .Columns.Count).End(xlToLeft).Column
            For lCol = lastCol To 1 Step -1
                If WorksheetFunction.IsNA(.Cells(3, lCol)) Then .Cells(lCol).EntireColumn.Delete
            Next lCol
        End With
    Next
End Sub

Bonjour,

Merci beaucoup jean-Eric pour votre réponse hyper rapide.

Par contre la macro bloque à For each ws in et a activeWorkbook.worksheets

Pouvez vous encore un peu m’aider svp ?

Re,
Je ne comprends pas ta remarque.
Une pette mise à jour, cependant.
Cdlt.

Sub DeleteSpecificColumns()
Dim ws As Worksheet
Dim lastCol As Long, lCol As Long
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        lastCol = ws.Cells(3, Columns.Count).End(xlToLeft).Column
        For lCol = lastCol To 1 Step -1
            If WorksheetFunction.IsNA(ws.Cells(3, lCol)) Then ws.Cells(lCol).EntireColumn.Delete
        Next lCol
    Next ws
End Sub

Merci pour le nouveau code mais je reçois toujours un message d’erreur pour la ligne du code « for each ws in » disant « erreur de compilation: Erreur de syntaxe »

Merci pour ton aide !

Re,
Je n'ai pas ce souci.
Cdlt.

Bonjour,

La macro fonctionne bien sur une page mais pas sur tous les onglets de l’excel.

Avez vous une solution ?

Merci