Bonjour CDB, bonjour le forum,
J'ai annulé la fusion des cellules B2:D2, ajouté une liste de validation de données dans C2 et supprimé le bouton. Choisi un jour dans C2...
Le code de la macro événementielle Change :
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Me.Rows.Hidden = False 'affiche toutes les lignes
If Target.Address <> "$C$2" Then Exit Sub 'si le changement a lieu ailleurs qu'en C2, sort de la procédure
If Target.Value = "" Then Exit Sub 'si C2 est effacée, sort de la procédure
TV = Range("C5").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
If TV(I, 1) = Target.Value Then Rows(I + 4).Hidden = True 'si la donnée ligne I colonne 1 de TV est égale à C2, masque la ligne
Next I 'prochaine ligne de la boucle
End Sub
[Édition]
Bonjour Iliyes, je navet pas rafraîchi, nos posts se sont croisés...