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!
