Simplification d'une macro pour cacher des colonnes sous condition

[satwaf]

Bonjour à tous,

voila j'ai créé une macro pour cacher les colonnes qui se trouverai à droite de la cellule sur la ligne 2 qui contient la valeur 100
j'aurai besoin de votre aide pour simplifier le code,

voici le fichier

 

[pierrejean]

Re : Simplification d'une macro pour cacher des colonnes sous condition

Bonjour satwaf

A tester:

Sub masquer()
For n = 2 To 256
  If Cells(2, n - 1) = 100 Then masq = True
  If masq And Cells(2, n - 1) <> "" Then Columns(n).Hidden = True
Next n
End Sub

 

[satwaf]

Re : Simplification d'une macro pour cacher des colonnes sous condition

je viens de tester, c'est impeccable, merci Pierrejean, et on peut dire que la macro s'est vraiment simplifiée, encore merci

 

[Guest]

Re : Simplification d'une macro pour cacher des colonnes sous condition

Bonjour,

Hello Pierre-Jean🙂

Une autre proposition:

Dim idxCol As Variant
With Sheets("data_graph").Range("data_graph")
    idxCol = Application.Match(100, .Rows(2), 0)
    If Not IsError(idxCol) Then .Cells(2, idxCol + 1).Resize(, .Columns.Count - idxCol).EntireColumn.Hidden = True  
End With

A+