none
Perte du formatage d'un fichier Excel RRS feed

  • Question

  • Bonjour,

    Nous avons un problème avec un fichier Excel .xlsm : cela fait 3 fois qu'à son ouverture, un message d'alerte apparaît, ce qui cause la perte totale du formatage (pas de perte d'information dans les cases). Les colonnes reviennent à leur format d'origine, les en-têtes de filtres des colonnes disparaissent ainsi que les menus déroulants. Pas de changement d'emplacement ou de serveur.

    Voici l'alerte : « Désolé... Nous avons trouvé un problème dans le contenu de « Nom du fichier », mais nous pouvons essayer de récupérer le maximum de contenu. Si la source de ce classeur est fiable, cliquez sur Oui. »

    Ce n'est pas un fichier avec beaucoup de formules; il y a un grand nombre de colonnes avec des informations simples (texte) sur les participants venant au laboratoire. Le seul contenu de macro qu'il y ait, c'est un ajout pour avoir un menu déroulant avec des choix multiples qui peuvent se répéter. Je mets le code ci-dessous.

    ' To make mutliple selections in a Drop Down List in Excel
    
    Dim Oldvalue As String
    Dim Newvalue As String
    
    On Error GoTo Exitsub
    If Target.Address = "$C$2" Then
        If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
        GoTo Exitsub
        Else: If Target.Value = "" Then GoTo Exitsub Else
            Application.EnableEvents = False
            Newvalue = Target.Value
            Application.Undo
            Oldvalue = Target.Value
            If Oldvalue = "" Then
                Target.Value = Newvalue
            Else
                Target.Value = Oldvalue & ", " & Newvalue
            End If
        End If
    End If
    Application.EnableEvents = True
    Exitsub:
    Application.EnableEvents = True
    End Sub

    Merci!

    mardi 19 mars 2019 14:05