Cases disparaîssent lorsque cachées et fichier sauvegardé

Bonjour,

J'ai un petit soucis avec un mon fichier.

Il comporte un menu déroulant: "à venir", "accepter", "refuser".

à venir: affiche seulement la 1er colonne

accepter: affiche la 1er et finale colonne

refuser: affiche seulement la 1er colonne

Mon problème est que je voudrais que le fichier "d'origine" commence avec l'option "à venir" (donc la colonne finale est cachée).

Cependant, lorsque la colonne finale est cachée (les cases à options cachées) et que le fichier est sauvegardé et ensuite ouvert, les cases à option disparaissent, alors que le reste fonctionne bien.

Sauriez-vous les causes/solutions de ce phénomène?

Merci!

bonjour

il manque la partie essentielle du fichier : les données

Bonsoir,

Problème effectivement ! J'en ignore la raison, mais toujours est-il qu'une forme masquée, qu'elle soit rendue non visible ou masquée parce qu'elle suit sa colonne qui est masquée, ne réapparaît pas à l'ouverture du classeur...

La seule parade que j'ai trouvée :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim mask As Boolean
    If Target.Address = "$D$16" Then
        Select Case Target.Value
            Case "Accepter": mask = False
            Case "à venir", "Refuser": mask = True
            Case Else: Exit Sub
        End Select
        Me.Columns("K").Hidden = mask
    End If
End Sub

ta procédure réécrite... inutile de mettre Visible à false pour la forme, elle suit la colonne et disparaît avec...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
    Worksheets("Feuil1").Range("D16").Value = "Accepter"
    Me.Save
End Sub

Private Sub Workbook_Open()
    Worksheets("Feuil1").Range("D16") = "à venir"
End Sub

Ces deux procédures dans ThisWorkbook

La première enregistre le classeur avant fermeture après avoir basculé D16 sur Accepter, de façon que le dernier enregistrement fait avant fermeture soit toujours opéré avec les Shapes visibles.

La seconde positionne D16 sur à venir à l'ouverture...

Cordialement.

Bonjour!

Woah merci! C'est sympa comme solution!

C'est un problème qui m'a hanté depuis quelques semaines déjà et les techniciens chez Microsoft n'ont pas pu

me répondre sur l'origine de ce problème.

Cordialement.

Si chez Microsoft on ne sait pas ce qui se passe... !

Bonne journée.