Zone d'impression + dissimulation de certaine lignes

Bonjour,

Dans ma cellule A1, il y a les mois de l'année avec un menu déroulant.

Sur les lignes 3 à 14 il y a des informations quelconques.

J'aimerais trouver un code pour que :

Si A1 = Janvier alors les cellules C3:F3 deviennent la zone d'impression et que les lignes 4 à 14 disparaissent.

SI A1 = Février alors les cellules C4:F4 deviennent la zone d'impression et que les lignes 3 et 5 à 14 disparaissent.

Si A1 = Mars alors les cellule C5:F5 deviennent la zone d'impression et que les lignes 3 à 4 et 6 à 14 disparaissent.

ETC.....

Merci pour votre aide.

Amicalement

Tristan

Bonsoir,

Dans le VBE de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
        Application.ScreenUpdating = False
            On Error Resume Next
                ActiveSheet.ShowAllData
            On Error GoTo 0
        If Target.Count > 1 Or Target = "" Then Exit Sub
        Range("o2") = "=b3=$a$1" 'critère
        Range("b2:g" & [b65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Range("o1:o2"), Unique:=False
        Range("o2").ClearContents
    End If
End Sub

Amicalement

Claude

Merci beaucoup Claude.

Ça m'a l'aire très bien.

Je débute dans le VBA, alors je vais tenter de comprendre ton code, (c'est pas gagné).

Encore une fois, un grand merci.

Tristan

re,

à noter que tu peux mettre plusieurs lignes en Mai (par exemple)

tu mets "Mai" en colonne "B", même pas besoin de trier

Claude