Discussion :

[Elisezla]

Bonjour,
mon fichier excel effectue une macro avec un tri selon une liste de 35 items. Ce qui est trop long pour être sauvegardé dans les listes personnalisées de excel.
Quand je ré-ouvre mon fichier un message d'erreur apparaît "Désolé, nous avons trouvé une erreur..."
Puis un second message après avoir confirmé que le fichier est fiable :
"Enregistrements supprimés: Tri dans la partie /xl/tables/table2.xml (Tableau)"

En fait, il supprime ma règle de tri avec la liste personnalisée, mais le tri de ma table n'est pas affecté, tout reste dans le même ordre. Evidemment ce message d'erreur est du plus mauvais effet, et moi même je pensais que mon fichier n'était pas fiable avant d'identifier le problème.

Y aurait-il un moyen pour supprimer ce message qui ruine carrément mon travail ?

Un énorme merci a ceux qui auront la gentillesse d'essayer de m'aider !

[jurassic pork]

hello,
normalement les limites des listes personnalisées c'est 254 éléments et 2000 caractères en tout (sauf si liste constituée de nombre et pas de texte).
Respectes-tu ces limites ?
Si oui as-tu des caractères spéciaux dans tes éléments ? Peux-tu nous montrer cette liste si elle n'est pas confidentielle ?
J'ai fait un essai en excel 2010 et je ne suis pas limité à 35 éléments.

Ami calmant, J.P

[Pierre Fauconnier]

Salut

Perso, sauf à avoir besoin constamment de cette liste dans tous mes fichiers, je n'utiliserais pas une liste personnalisée. Comme je le mentionnais dans ce message (Hello JP ), les tableaux structurés permettent de trier sur une chaine de caractères.

Voic un exemple avec un tableau t_Data qui sera trié sur base des services présents dans un tableau t_Services

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub sortOnServices()
  Dim s As String
  Dim r As Range
 
  For Each r In Range("t_Services[Service]")
    s = s & r.Value & ","
  Next
  s = Left(s, Len(s) - 1)
  With Range("t_Data").ListObject.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("t_Data[Service]"), CustomOrder:=CStr(s)
    .Apply
  End With
End Sub