Supprimer colonnes avec condition

Bonjour,

Dans la feuille NO RC je souhaite appliquer une macro des colonnes si la cellule correspondante a chaque colonne de la ligne 10008 égale à 2.

De la colonnes F à la colonnes DD

Ci-joint mon fichier excel.

Si vous avez une solution, ça m'aiderais beaucoup !

Merci

Bonjour,

Un essai ...

Sub SupprimeColonnes()
Dim Col As Integer

Application.ScreenUpdating = False

For Col = 108 To 6 Step -1
    If Cells(1008, Col) = 2 Then Cells(1008, Col).EntireColumn.Delete
Next
End Sub

ric

Bonjour

petit modife a voir aussi

Sub SupprimeColonnes()
Dim Col As Integer
Application.ScreenUpdating = False
    For Col = 108 To 6 Step -1
        If Cells(1008, Col) = 2 Then Columns(Col).Delete
    Next
End Sub

A+

Maurice

bonjour à tous

par principe on n'efface jamais rien

2 possibilités selon l'objectif de la feuille après traitement

• faire un TCD (oui, les TCD servent aussi sans calculs)
• Power Query

connais-tu les 2 ?

joins une fichier de 3 colonnes et 5 lignes et le résultat attendu, je te montre

(évite les fichiers comme le tien, trop long, trop de colonnes, nuisible à la compréhension en 1 seconde de la question, merci)

amitiés