Discussion :

[xavion]

Bonjour ce code me génère une erreur 35 comme nommée dans le titre de la discussion, je ne parviens pas à savoir d'où vient cette erreur please. Cette macro est lancée en exit d'une formfields de type dropdown.

Merci d'avance !

Xav

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
Sub Coloration()
 
Dim Ld As FormField
 
If ActiveDocument.ProtectionType <> wdNoProtection Then
      ActiveDocument.Unprotect Password:="auditdgac"
      End If
 
Select Case Selection.FormFields(1).Result
 
Case "Conforme"
Selection.Font.Color = wdColorGreen
Case "NC Maj"
Selection.Font.Color = wdColorRed
Case "NC Min"
Selection.Font.Color = wdColorOrange
Case "PS"
Selection.Font.Color = wdColorLightBlue
Case "N/A"
Selection.Font.Color = wdColorBlack
Case "1 NC Maj"
Selection.Font.Color = wdColorRed
Case "2 NC Maj"
Selection.Font.Color = wdColorRed
Case "3 NC Maj"
Selection.Font.Color = wdColorRed
Case "4 NC Maj"
Selection.Font.Color = wdColorRed
Case "5 NC Maj"
Selection.Font.Color = wdColorRed
Case "6 NC Maj"
Selection.Font.Color = wdColorRed
Case "7 NC Maj"
Selection.Font.Color = wdColorRed
Case "1 NC Min"
Selection.Font.Color = wdColorOrange
Case "2 NC Min"
Selection.Font.Color = wdColorOrange
Case "3 NC Min"
Selection.Font.Color = wdColorOrange
Case "4 NC Min"
Selection.Font.Color = wdColorOrange
Case "5 NC Min"
Selection.Font.Color = wdColorOrange
Case "6 NC Min"
Selection.Font.Color = wdColorOrange
Case "7 NC Min"
Selection.Font.Color = wdColorOrange
Case "1 PS"
Selection.Font.Color = wdColorLightBlue
Case "2 PS"
Selection.Font.Color = wdColorLightBlue
Case "3 PS"
Selection.Font.Color = wdColorLightBlue
Case "4 PS"
Selection.Font.Color = wdColorLightBlue
Case "5 PS"
Selection.Font.Color = wdColorLightBlue
Case "6 PS"
Selection.Font.Color = wdColorLightBlue
Case "7 PS"
Selection.Font.Color = wdColorLightBlue
End Select
 
If ActiveDocument.ProtectionType = wdNoProtection Then
      ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
   End If
 
End Sub

[Heureux-oli]

Salut,

Pour quelle version de Word et sur quelle ligne le code bloque-t-il ?

[xavion]

Coucou Heureux-oli,

Il affiche "sub ou fonction non définie" lorsque la macro s'exécute cad lorsque je change de formfields.
Sur Word 2003 et 2007 à priori. Je n'ai pas testé word 2010...

Bonne soirée et merci

Salut,

Pour quelle version de Word et sur quelle ligne le code bloque-t-il ?

[Heureux-oli]

Salut,

Dans ton code, il n'y a pas d'appel à une autre procédure.
Ce qui fait qu'en mode pas à pas, la ligne qui bloque aurait été plus intéressante.

[xavion]

Salut Heureux-oli,

J'ai résolu le problème (par hasard) en enregistrant sous windows le document, en le rouvrant sous mac puis sous windows...
Bref, ça marche maintenant mais merci du coup de main

Salut,

Dans ton code, il n'y a pas d'appel à une autre procédure.
Ce qui fait qu'en mode pas à pas, la ligne qui bloque aurait été plus intéressante.

[Heureux-oli]

Salut,


C'est que ton erreur ne vient pas de ces lignes.
Elle se trouve ailleurs.