XL 2016 Sos urgent : supprimer colonnes avec condition

[LETAREK]

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

 

[Ikito]

Bonjour,

Déjà, je pense que c'est la ligne 1008 et non pas 10008.
De plus, tu ne nous spécifies pas ce que tu veux faire sur les colonnes dont leur valeur en ligne 1008 est 2...
On les masque, on les supprime ? On les mange ? (J'ai faim.)

 

[job75]

Bonjour LETAREK, JM, Ikito,

Pour masquer ou supprimer les colonnes des 2 :

Sub Masquer()
Application.ScreenUpdating = False
With Sheets("NO RC").[F1008:DD1008]
    .EntireColumn.Hidden = False
    .Replace "2)", "1/0)", xlPart
    On Error Resume Next 'si aucune SpecialCell
    .SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Hidden = True
    .Replace "1/0)", "2)"
End With
End Sub

Sub Supprimer()
Application.ScreenUpdating = False
With Sheets("NO RC").[F1008:DD1008]
    .Replace "2)", "1/0)", xlPart
    .EntireColumn.UnMerge 'défusionne
    .EntireColumn.Sort .Cells, Orientation:=2 'tri horizontal pour accélérer
    On Error Resume Next 'si aucune SpecialCell
    .SpecialCells(xlCellTypeFormulas, 16).EntireColumn.Delete
    .Replace "1/0)", "2)"
End With
End Sub

A+