Re gmb,
C'est super cela fonctionne à merveille !!! merci infiniment !
J'ai oublié de préciser, je souhaite masquer les lignes sur la feuille planning réservation de 6 à 21 si elles sont vides et également masquer les colonnes des mois qui n'ont que 30 jours ou 28 à 29 pour février, j'avais ce code dans mon autre fichier mais je ne vois pas comment le réintégrer
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$2" Then
For Each n In [B4:AF4]
If n = 0 Then
n.Columns.Hidden = True
Else
n.Columns.Hidden = False
End If
Next
End If
Cells.EntireRow.Hidden = False
For Each cel In Feuil2.Range("AG6:AG20")
If cel = 0 Then cel.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub
Ensuite, je désire dans la feuille liste des réservation masquer les ligne vides de 3 à 50 et que celles-ci s'affiche au fur et à mesure de l'ajout d'une réservation, j'employais ce code dans mon autre fichier mais comme pour l'autre problème, je ne sais pas comment faire ...
Private Sub Worksheet_Activate()
'Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Each cel In Feuil4.Range("A3:A17")
If IsNumeric(cel) Then cel.EntireRow.Hidden = True
Next
'Application.ScreenUpdating = True
End Sub
Cdlt