Masquage colonnes

[Hugues]

Bonjour Le Forum,

Je ne trouve pas la solution à mon problème.
Je souhaierais masquer les colonnes d'une feuille selon des critées qui sont inscrits dans cette feuille.
Les colonnes correspondent au N° de semaines. Dans deux cellules l'utilisateur mentionne le bornage de la période. En fonction de ce bornage les semaines non concernées doivent être masquées.

Merci par avance pour votre aide,

Cordialement

 

[CBernardT]

Re : Masquage colonnes

Bonjour Hugues,

Un essai avec une macro évènementielle placée dans le module de feuille.

Un changement dans les cellules B2 et B4 et les colonnes hors fourchette sont masquées.

 

[job75]

Re : Masquage colonnes

Bonjour Hugues, Bernard,

En retard, mais je mets quand même ma solution car elle n'utilise pas de boucle :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim col1 As Variant, col2 As Variant
If Target.Address = "$B$2" Or Target.Address = "$B$4" Then
  Columns("C:BC").Hidden = False
  col1 = Application.Match("S" & [B2], Rows(6), 0)
  col2 = Application.Match("S" & [B4], Rows(6), 0)
  If IsNumeric(col1) And IsNumeric(col2) Then
    Columns("C:BC").Hidden = True
    Range(Columns(col1), Columns(col2)).Hidden = False
  End If
End If
End Sub

A+