XL 2010 masquer ligne sous condition

[Valeuropro]

Bonjour à tous,

Je ne connais pas bien le VBA, j'arrive à modifier des macros existantes, des petites parties seulement comme remplacer des cellules ou des noms de colonnes mais là je suis dans une impasse.
Je sais qu'il y a des multitudes de sujets concernant ma demande mais je n'arrive pas à les adapter à mon fichier.

Mon fichier concerne un planning annuel, je voudrais afficher seulement la semaine choisie. J'ai trouvé une solution pour afficher seulement les colonnes concernées mais je voudrais aussi masquer les lignes non concernées par cette semaine.

Je vous joins une copie de mon fichier.

Merci pour votre aide.

 

[Dudu2]

Bonjour

En R7 et autres cellules pour le nom du jour de la semaine, ce serait mieux d'avoir une formule =TEXTE(R8;"jjjj"), puis Accueil / Format / Ajuster la hauteur de ligne.

 

[Valeuropro]

Bonjour,

Merci Dudu2 cela fonctionne tres bien.

 

[job75]

Bonjour Valeuropro, Dudu2,

J'y vais de ma solution, plus rapide :

Sub Afficher_semaine()
Dim der&, i&, dat
Application.ScreenUpdating = False
der = Cells(8, Columns.Count).End(xlToLeft).Column
If der > 17 Then Columns(18).Resize(, der - 17).Hidden = True
For i = 18 To der
    If Application.WeekNum(Cells(8, i), 21) = Range("P2") Then Columns(i).Hidden = False
Next i
der = Cells.SpecialCells(xlCellTypeLastCell).Row
If der > 0 Then Rows(11).Resize(der - 10).Hidden = True
For i = 11 To der
    If IsDate(Cells(i, "N")) Then
        For dat = Cells(i, "N") To Cells(i, "O")
            If Application.WeekNum(dat, 21) = Range("P2") Then
                Rows(i).Resize(2).Hidden = False
                i = i + 1
                Exit For
            End If
        Next dat
    End If
Next i
End Sub

Sub Afficher_tout()
Application.ScreenUpdating = False
Columns.Hidden = False
Columns("A:B").Hidden = True
Rows.Hidden = False
End Sub

Nota 1 : c'est le numéro de semaine ISO qui est utilisé.

Nota 2 : les numéros en ligne 6 étaient inutiles.

Nota 3 : formule en R7 =R8 et format personnalisé "jjjj".

A+

 

[Valeuropro]

Re bonjour messieurs,

Je reviens vers vous pour ce même fichier. Lors de mon premier post j'ai laissé toutes les lignes mais sur la version finale que certaine soit cachées : je voudrais que seulement les lignes commençant par "chantier" soit affichée pas les autres je pensais pouvoir le modifier seule mais je n'y arrive pas. Pouvez vous m'aider ?

 

[job75]

Bonjour Valeuropro,

Dans la macro du post #4 remplacer :

Rows(i).Resize(2).Hidden = False

par :

Rows(i).Hidden = False

A+