XL 2010 Placer la colonne a côté de C

[mic6259]

Bonjour
Selon la pièce jointe, serait-il possible dans Formulaire, lorsque l'on choisi la date par exemple le 09/06/2022 puis choisir un prénom, que la colonne de cette date reste a côtè de la colonne C et même chose si l'on change de date.
Merci beaucoup

 

[M12]

Bonjour,
A tester

 

[mapomme]

Bonjour @mic6259 , @M12 ,

Dans le code du Userform, ajouter la procédure ci-dessous:

Sub MasquerAfficher()
Dim ncolonne&
   With ActiveSheet
      .Rows(1).EntireColumn.Hidden = False
      If CmB_Jour = "" Then Exit Sub
      ncolonne = Application.WorksheetFunction.Match(CLng(CDate(CmB_Jour)), .Rows(2), 0)
      If ncolonne > 4 Then .Range(.Cells(1, "d"), .Cells(1, ncolonne - 1)).EntireColumn.Hidden = True
   End With
End Sub

puis dans la procédure Private Sub CmB_Jour_Change() , rajouter la ligne MasquerAfficher :

Private Sub CmB_Jour_Change()
    MasquerAfficher
    If CmB_Jour.ListIndex <> -1 Then
    ...
    ...
    ...
    ...
  
End Sub

 

[mic6259]

Merci M12 et mapomme
La proposition de mapomme me convient parfaitement
Merci beaucoup
Cordialement