Erreur d'Exécution 5 en mode partagé seulement

**ivanovitch25** · 27/09/2011, 09h55

Bonjour,
J'ai un souci avec une macro qui me sert à trier plusieurs colonnes suivant l'affichage des couleurs. Le problème est que ça fonctionne très bien avant que je partage le fichier.
Si vous avez des explications ou même des solutions...
Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Sub Tri()
'
' Tri Macro
'
 
'
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Clear
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Add(Range( _
"E2:E59"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(255, 207, 55)
With ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Clear
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Add(Range( _
"F2:F59"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(255, 0, 0)
With ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Clear
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Add(Range( _
"G2:G59"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(197, 190, 151)
With ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Clear
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Add(Range( _
"H2:H59"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(184, 204, 228)
With ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Clear
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Add(Range( _
"I2:I59"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(217, 151, 149)
With ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Clear
ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort.SortFields.Add(Range( _
"J2:J59"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = _
RGB(178, 161, 199)
With ActiveWorkbook.Worksheets("Sommaire").AutoFilter.S ort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub

PS : Je vous aurai bien laisé une copie de mon fichier mais impossible de joindre un .xlsm

**Daniel.C** · 27/09/2011, 12h55

Bonjour,

Excel n'est pas fait pour travailler en mode partagé, bien qu'il le permette. C'est la source de quantités d'ennuis dont le tien. Tu peux peut-être charger ton classeur sur un site comme cjoint.com et poster ici le lien généré; ou bien compresser ton classeur au format zip avant de le joindre.

**SfJ5Rpw8** · 27/09/2011, 22h22

Sur qu'elle ligne l'erreur ?

Combien de classeur sont concerné par ta macro ?

**ivanovitch25** · 28/09/2011, 08h44

Bonjour, merci de votre intérêt

C'est la macro tri, qui s'exécute lorsqu'on clique sur le bouton tri en haut du tableau qui me pose problème. Et elle ne concerne que CE classeur.

Pour activer les macros j'ai fait un fichier .cer avec signature numérique mais impossible de l'uploader, même avec ci-joint. Vous pouvez activer les macros dans votre panneau de configuration, il n'ya aucun risque.

**SfJ5Rpw8** · 28/09/2011, 11h30

Envoyé par bbil

Sur qu'elle ligne l'erreur ?

Combien de classeurs sont concernés par ta macro ?

Fichier joint dans vos discussions

**ivanovitch25** · 28/09/2011, 11h57

Oups! désolé...

Si la question c'est : Sur quelle ligne du code est l'erreur, je ne sais pas, c'est du chinois pour moi.

**Daniel.C** · 28/09/2011, 12h10

Quand tu as le message d'erreur, est-ce que tu as le choix "débogage" ?
Si tu cliques sur "débogage", la ligne en erreur est sur ligné en jaune.

**ivanovitch25** · 28/09/2011, 12h16

Non, la touche Débogage est grisée.

**Daniel.C** · 28/09/2011, 13h56

Remarque que je m'en doutais... C'est toi l'auteur du code ?

**ivanovitch25** · 28/09/2011, 14h26

Oui c'est moi l'auteur. Je l'ai fait avec la fonction enregistrer.

**Daniel.C** · 28/09/2011, 14h32

Ça aussi, je l'avais remarqué

Mais tu ne peux pas déverrouiller le classeur ?

**Daniel.C** · 28/09/2011, 17h12

Tu ne peux pas filtrer ou trier par couleur quand un fichier est partagé.

**ivanovitch25** · 28/09/2011, 17h51

ha mince, je vais être embêté alors...

En fait les couleurs me servent juste à a voir un repère visuel, ce sont des mises en formes conditionnelles par rapport à un état Vrai/Faux. Cependant il m'est impossible de trier par Vrai ou faux, seulement FILTRER sur plusieurs colonnes à la fois et si une ligne a l'attribut faux alors elle ne s'affichera pas.

Comment faire ?

**Daniel.C** · 28/09/2011, 18h39

Remplace les valeurs VRAI et FAUX par 1 et 0 respectivement dans les cellules et dans la mise en forme conditionnelle. Tu pourras trier et filtrer sur les valeurs.

**SfJ5Rpw8** · 28/09/2011, 19h12

Envoyé par Daniel.C

Remplace les valeurs VRAI et FAUX par 1 et 0 respectivement dans les cellules et dans la mise en forme conditionnelle. Tu pourras trier et filtrer sur les valeurs.

pourquoi on peu aussi bien filtrer des valeurs booléennes qu' entières ...

Voir menu Données/Filtre automatique...

**ivanovitch25** · 29/09/2011, 09h19

Il m'est impossible de remplacer les VRAI et FAUX par 1 ou 0 (enfin je pense) car ce sont des infos qui viennent de cases à cocher.

Et je ne VEUX PAS filtrer mais trier.