Simplification d'une macro pour cacher des colonnes sous condition

satwaf · 10 Novembre 2011

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 · 10 Novembre 2011

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

Bonjour satwaf

A tester:

Code:

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 · 10 Novembre 2011

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 · 10 Novembre 2011

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

Bonjour,

Hello Pierre-Jean🙂

Une autre proposition:

Code:

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+

Simplification d'une macro pour cacher des colonnes sous condition

satwaf

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

satwaf

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Simplification d'une macro pour cacher des colonnes sous condition

satwaf

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

satwaf

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency