Salut Evolm,
Salut le Fofo,
Tu trouveras ci-joint ton fichier modifié avec les codes ci-dessous :
Option Explicit
Public Function NumSem(a As Range)
NumSem = DatePart("ww", a, 1, 1)
End Function
Sub HiddenTrue()
Dim ColG As String, ColD As String
Dim x As Long, y As Long, z As Long
For x = 7 To Cells(5, 10000).End(xlToLeft).Column
If "S" & NumSem(Cells(5, x)) = Cells(1, 3) Then Exit For
Next
For y = x + 1 To Cells(5, 10000).End(xlToLeft).Column
If "S" & NumSem(Cells(5, y)) <> Cells(1, 3) Then Exit For
Next
ColG = Split(Columns(x - 1).Address(ColumnAbsolute:=False), ":")(1)
Columns("F:" & ColG).EntireColumn.Hidden = True
ColG = Split(Columns(y).Address(ColumnAbsolute:=False), ":")(1)
ColD = Split(Columns(Cells(5, 10000).End(xlToLeft).Column + 1).Address(ColumnAbsolute:=False), ":")(1)
Columns(ColG & ":" & ColD).EntireColumn.Hidden = True
z = 6
While z < Range("E" & Rows.Count).End(xlUp).Row
If Application.CountBlank(Range(Cells(z, x), Cells(z + 2, y - 1))) = Application.CountA(Range(Cells(z, x), Cells(z + 2, y - 1))) Then Rows(z & ":" & z + 2).EntireRow.Hidden = True
z = z + 3
Wend
End Sub
Sub HiddenFalse()
ActiveSheet.Columns.Hidden = False
ActiveSheet.Rows.Hidden = False
End Sub
Voilà, donc sa masque les colonnes n'ayant pas le numéro de semaine recherché, et sa masque les lignes d'une personne si il n'a aucune donnée dans les colonnes de la semaine recherché.
Je te laisse tester et revenir vers nous
B'zou '3'