[XL-2007] Erreur d'Exécution 5 en mode partagé seulement [Résolu]

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.

bbil · 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.

bbil · 28/09/2011, 11h30

Citation:

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.

bbil · 28/09/2011, 19h12

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.

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.

Daniel.C · 29/09/2011, 09h46

Mais tu peux trier sur les valeurs VRAI et FAUX.

ivanovitch25 · 29/09/2011, 09h49

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

Daniel.C · 29/09/2011, 09h52

Citation:

il

??

bbil · 29/09/2011, 09h54

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 !

27/09/2011, 22h22	#3
bbil Responsable Visual Basic Inscription : juin 2003 Messages : 11 773 Détails du profil Informations personnelles : Âge : 45 Localisation : France, Ariège (Midi Pyrénées) Informations forums : Inscription : juin 2003 Messages : 11 773 Points : 16 849 Points : 16 849	Sur qu'elle ligne l'erreur ? Combien de classeur sont concerné par ta macro ? __________________ page à bbil : dernières entrées : Débuter en VB6 Mes contributions en téléchargement Les pages VB : FAQs, Tutoriels VB, Outils , Sources, WIKI Impératif "A LIRE AVANT DE POSTER"
	00

28/09/2011, 08h44	#4
ivanovitch25 Invité de passage Inscription : septembre 2011 Messages : 9 Détails du profil Informations personnelles : Sexe : Localisation : France Informations forums : Inscription : septembre 2011 Messages : 9 Points : 0 Points : 0	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.
	00

28/09/2011, 11h57	#6
ivanovitch25 Invité de passage Inscription : septembre 2011 Messages : 9 Détails du profil Informations personnelles : Sexe : Localisation : France Informations forums : Inscription : septembre 2011 Messages : 9 Points : 0 Points : 0	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.
	00

28/09/2011, 12h16	#8
ivanovitch25 Invité de passage Inscription : septembre 2011 Messages : 9 Détails du profil Informations personnelles : Sexe : Localisation : France Informations forums : Inscription : septembre 2011 Messages : 9 Points : 0 Points : 0	Non, la touche Débogage est grisée.
	00

28/09/2011, 14h26	#10
ivanovitch25 Invité de passage Inscription : septembre 2011 Messages : 9 Détails du profil Informations personnelles : Sexe : Localisation : France Informations forums : Inscription : septembre 2011 Messages : 9 Points : 0 Points : 0	Oui c'est moi l'auteur. Je l'ai fait avec la fonction enregistrer.
	00

28/09/2011, 17h51	#13
ivanovitch25 Invité de passage Inscription : septembre 2011 Messages : 9 Détails du profil Informations personnelles : Sexe : Localisation : France Informations forums : Inscription : septembre 2011 Messages : 9 Points : 0 Points : 0	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 ?
	00

29/09/2011, 09h19	#16
ivanovitch25 Invité de passage Inscription : septembre 2011 Messages : 9 Détails du profil Informations personnelles : Sexe : Localisation : France Informations forums : Inscription : septembre 2011 Messages : 9 Points : 0 Points : 0	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.
	00

29/09/2011, 09h49	#18
ivanovitch25 Invité de passage Inscription : septembre 2011 Messages : 9 Détails du profil Informations personnelles : Sexe : Localisation : France Informations forums : Inscription : septembre 2011 Messages : 9 Points : 0 Points : 0	Il ne me le propose pas, seulement plus petit au plus grand et par couleur.
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email