Problème macro qui rame

Version imprimable

04/03/2019, 11h12
Invité

Problème macro qui rame

Bonjour à tous,

J'ai un souci avec le fichier Excel joint.
C'est un fichier avec des actions et des responsables d'action.Chaque responsable se choisit lors de l'ouverture du fichier afin de ne visualiser que ses actions.

Le souci que je rencontre est le suivant:

-Lorsque qu'une personne ouvre le fichier et sélectionne son prénom le fichier plante.

Savez-vous pourquoi ça plante!!!:piou:

Merci pour votre aide!

Marion
04/03/2019, 11h18
Trystan441

Bonjour,

De nombreuses personnes n'ouvrent pas les fichiers joints,

Pourrais-tu nous donner le code que tu utilises ?

Bonjour,

Voici le code que j'utilise

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
 
 
Dans ThisWorkbook:
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
    Dim xOutApp As Object
    Dim oItem As Object
    Dim olMail As Object 'défini outlook en object
    Const olMailItem As Long = 0 'permet la déclaration tardive des référence outlook (évite les erreurs de versions excel)
 
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set oItem = xOutApp.CreateItem(olMailItem)
 
            Set olMail = xOutApp.CreateItem(olMailItem)
            With olMail
                .To = "marion.audy@hine.com"
                .Subject = "Le suivi des actions a été modifié"
                .Body = "" _
 
 
                .Send
            End With
 
 
    Set olMail = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
 
 
Range("Tableau5").EntireColumn.Hidden = False 'afficher toutes le colonnes
 
End Sub
 
Private Sub Workbook_Open()
 
UserForm1.Show
 
End Sub

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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
 
 
Dans Userform1: 
 
Private Sub CommandButton1_Click()
 
With Sheets("suivi des actions").Select
 
 
ActiveSheet.ListObjects("Tableau5").Range.AutoFilter Field:=13, Criteria1:= _
        "=*CODIR*", Operator:=xlAnd 'Trier la 14ème colonne sur contient CODIR
 
Range("A_masquer").EntireColumn.Hidden = True 'cacher les colonnes A_masquer (nom selection)
 
ActiveSheet.ListObjects("Tableau5").Range.AutoFilter Field:=1, Criteria1:= _
        RGB(255, 255, 255), Operator:=xlFilterNoFill 'filtre la première colonne avec aucun remplissage
 End With
 
 
Unload UserForm1 'fermer la Userform1
End Sub
 
 
 
Private Sub CommandButton2_Click()
 
 
With Sheets("suivi des actions").Select
 
 
  Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
       CriteriaRange:=Sheets("Critères").Range("RH"), Unique:=False
 
 
Range("A_masquer").EntireColumn.Hidden = True
 
 
End With
 
 
Unload UserForm1
 
End Sub
 
Private Sub CommandButton3_Click()
 
With Sheets("suivi des actions").Select
 
 
  Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Critères").Range("EDV"), Unique:=False
 
Range("A_masquer").EntireColumn.Hidden = True 'cacher les colonnes A_masquer (nom selection)
 
End With
 
Unload UserForm1
 
End Sub
 
Private Sub CommandButton4_Click()
 
 
With Sheets("suivi des actions").Select
 
 
  Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Critères").Range("Achats"), Unique:=False
 
 
Range("A_masquer").EntireColumn.Hidden = True 'cacher les colonnes A_masquer (nom selection)
 
 
 
        End With
 
Unload UserForm1
 
End Sub
 
Private Sub CommandButton5_Click()
 
With Sheets("suivi des actions").Select
 
  Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Critères").Range("Marketing"), Unique:=False
 
 
Range("A_masquer").EntireColumn.Hidden = True 'cacher les colonnes A_masquer (nom selection)
 
End With
 
Unload UserForm1
 
End Sub
 
Private Sub CommandButton6_Click()
 
With Sheets("suivi des actions").Select
 
  Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Critères").Range("Commercial"), Unique:=False
 
 
Range("A_masquer").EntireColumn.Hidden = True 'cacher les colonnes A_masquer (nom selection)
 
End With
 
Unload UserForm1
 
End Sub
 
 
Private Sub CommandButton8_Click()
 
With Sheets("suivi des actions").Select
 
  Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Critères").Range("Qualité"), Unique:=False
 
 
Range("A_masquer").EntireColumn.Hidden = True 'cacher les colonnes A_masquer (nom selection)
 
End With
 
Unload UserForm1
 
End Sub
 
Private Sub CommandButton9_Click()
 
With Sheets("suivi des actions").Select
 
 ActiveSheet.ShowAllData
 
 Range("A_masquer").EntireColumn.Hidden = False 'afficher les colonne A_masquer (nom selection)
 
 
 
End With
 
 
Unload UserForm1
 
End Sub
 
Private Sub CommandButton10_Click()
 
 
UserForm2.Show
 
 
Unload UserForm1
 
 
End Sub

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
 
 
Dans userform2
 
Private Sub CommandButton1_Click()
 
 
 
With Sheets("suivi des actions").Select
 
 
  Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
       CriteriaRange:=Sheets("Critères").Range("Action"), Unique:=False
 
Range("A_masquer").EntireColumn.Hidden = False
 
End With
Unload UserForm2
Unload UserForm1
 
 
 
End Sub
 
Private Sub CommandButton2_Click()
 
With Sheets("suivi des actions").Select
 
 Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
       CriteriaRange:=Sheets("Critères").Range("Non_conformité"), Unique:=False
 
Range("A_masquer").EntireColumn.Hidden = False
End With
 
Unload UserForm2
Unload UserForm1
 
End Sub
 
Private Sub CommandButton3_Click()
 
 
With Sheets("suivi des actions").Select
 
 
 Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
       CriteriaRange:=Sheets("Critères").Range("Réclamation_client"), Unique:=False
 
 
Range("A_masquer").EntireColumn.Hidden = False
 
End With
 
Unload UserForm2
Unload UserForm1
End Sub

Code:

1
2
3
4
5
6
 
dans module 1
 
Sub Bouton1_Cliquer()
UserForm1.Show
End Sub

Merci d'avance,

Marion

04/03/2019, 13h37
Trystan441

A quelle moment exactement le fichier "plante" ?

Sur le userform1 ? Sur le Userform2 ?

Est ce qu'un message d'erreur apparaît ?
04/03/2019, 13h44
Invité

C'est au moment de la userform1 quand on clic sur un bouton, quelque soit le bouton.

Il n'y a pas de message qui apparaît , seulement Excel se met à "mouliner" et finit par "planter".
04/03/2019, 14h59
Trystan441

C'est étonnant car après avoir testé, lorsqu'on entre dans le fichier l'userform1 s'affiche bien mais une erreur se produit :
"La méthode range de l'objet _Global a échoué"

Par contre, si on stop la procédure, et qu'on la relance, tout fonctionne très bien.
04/03/2019, 15h25
Invité

C'est bien là mon problème :mrgreen:

Lorsque je le lance sur mon PC, je n'ai pas de soucis mais lorsque mes collègues ouvre le fichier ça ne fonctionne pas une fois sur deux...
04/03/2019, 15h47
mercatog
Tu utilise beaucoup de select Activemachin, Range (tout court)

Pour ne pas se soucier, utilise un adressage complet des range sans aucune Select

Exemple (moche et risqué)
Code:

1 2 3 worksheet("toto").select range("titi").value=1 range("Tutu").copy
Pour ne pas se soucier de la feuille active:

Solution pédagogique
Code:

1 2 worksheet("toto").range("titi").value=1 worksheet("toto").range("tutu").copy
Solution préconisée
Code:

1 2 3 4 with worksheet("toto") .range("titi").value=1 .range("tutu").copy end with
Regarde bien les points avant Range

mercatog, j'ai essayé de modifier comme tu me l'a conseillé ce qui donne le code suivant:

Est-ce que c'est comme ça qu'il faut faire? Si oui, ça "plante" toujours....:arf:

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
Private Sub CommandButton1_Click()
 
With Worksheets("suivi des actions")
 
 
.Range("Tableau5").AutoFilter Field:=13, Criteria1:= _
        "=*CODIR*", Operator:=xlAnd 'Trier la 14ème colonne sur contient CODIR
 
.Range("A_masquer").EntireColumn.Hidden = True 'cacher les colonnes A_masquer (nom selection)
 
.Range("tableau5").AutoFilter Field:=1, Criteria1:= _
        RGB(255, 255, 255), Operator:=xlFilterNoFill 'filtre la première colonne avec aucun remplissage
 End With
 
 
Unload UserForm1 'fermer la Userform1
End Sub
 
 
 
Private Sub CommandButton2_Click()
 
 
With Worksheets("suivi des actions")
 
 
  .Range("Tableau5[#All]").AdvancedFilter Action:=xlFilterInPlace, _
       CriteriaRange:=Sheets("Critères").Range("RH"), Unique:=False
 
 
.Range("A_masquer").EntireColumn.Hidden = True
 
 
End With
 
 
Unload UserForm1
 
End Sub

04/03/2019, 18h43
mercatog

Regarde la portée des noms A_Masquer et RH. (Classeur ou feuille)?
05/03/2019, 09h42
Invité

Bonjour,

Toutes les références sont sur le classeur

Merci beaucoup
05/03/2019, 13h41
Invité

J'ai mis les différentes références dans les feuilles correspondantes mais ça plante toujours.

Est-ce que cela peut avoir un rapport avec les différentes version utilisées? En effet, j'utilise la version 2016 mais la majorité de mes collègues ont une version 2010.

Merci d'avance,

Marion