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

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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

27/09/2011, 12h55
Daniel.C

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.
27/09/2011, 22h22
SfJ5Rpw8

Sur qu'elle ligne l'erreur ?

Combien de classeur sont concerné par ta macro ?
28/09/2011, 08h44
ivanovitch25

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.
28/09/2011, 11h30
SfJ5Rpw8

Citation:

Envoyé par bbil

Sur qu'elle ligne l'erreur ?

Combien de classeurs sont concernés par ta macro ?

Fichier joint dans vos discussions
28/09/2011, 11h57
ivanovitch25

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.
28/09/2011, 12h10
Daniel.C

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.
28/09/2011, 12h16
ivanovitch25

Non, la touche Débogage est grisée.
28/09/2011, 13h56
Daniel.C

Remarque que je m'en doutais... C'est toi l'auteur du code ?
28/09/2011, 14h26
ivanovitch25

Oui c'est moi l'auteur. Je l'ai fait avec la fonction enregistrer.
28/09/2011, 14h32
Daniel.C

Ça aussi, je l'avais remarqué ;) Mais tu ne peux pas déverrouiller le classeur ?
28/09/2011, 17h12
Daniel.C

Tu ne peux pas filtrer ou trier par couleur quand un fichier est partagé.
28/09/2011, 17h51
ivanovitch25

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 ?
28/09/2011, 18h39
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.
28/09/2011, 19h12
SfJ5Rpw8

Citation:

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.

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

Voir menu Données/Filtre automatique...
29/09/2011, 09h19
ivanovitch25

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.
29/09/2011, 09h46
Daniel.C

Mais tu peux trier sur les valeurs VRAI et FAUX.
29/09/2011, 09h49
ivanovitch25

Il ne me le propose pas, seulement plus petit au plus grand et par couleur.
29/09/2011, 09h52
Daniel.C

Citation:

il

??
29/09/2011, 09h54
SfJ5Rpw8

Citation:

Envoyé par ivanovitch25

Il ne me le propose pas, seulement plus petit au plus grand et par couleur.

et alors ? VRAI et FAUX il y en as bien un qui est plus petit que l'autre !

Voir 40 message(s) de cette discussion en une page