Discussion :

[grimgrim]

Bonjour,

En vba, j'ai créé un fichier avec des "mise en forme conditionnelle" puis enregistrer le fichier

Or, lorsque j'ouvre le fichier les règles de mise en forme conditionnelle ont disparu alors qu'avant l'enregistrement je les voyait toujours

Je ne trouve pas pourquoi ?

merci pour votre aide

[Noizette]

sous quel format as-tu enregistré ton fichier? en enregistrant le fichier en tant que fichier excel depuis ton Excel, il n'y a aucue raison d'avoir un ecart de fonctionnalités entre l'enregistrement et la réouverture.

[Daniel.C]

Bonjour,

Poste ton code.

[grimgrim]

Voici le code :

Mon application est en Xlsm et mes fichiers en xls

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
 Sheets(3).Activate
            Sheets(3).Name = "Pieces_Supplementaires_" & MagTech
            Cells(1, 1) = "ARTICLE"
            Cells(1, 2) = "LIBELLE ARTICLE"
            Cells(1, 3) = "MAGASIN"
            Cells(1, 4) = "EMPLACEMENT"
            Cells(1, 5) = "UDM"
            Cells(1, 6) = "VERSION"
            Cells(1, 7) = "LOT"
            Cells(1, 8) = "SERIE"
            Cells(1, 9) = "QTE COMPTEE"
            Cells(1, 10) = "COMMENTAIRE TECHNICIEN"
            Cells(1, 11) = "COMPLEMENT"
            Cells(1, 12) = "OBSERVATION RIL"
            Cells(1, 13) = "BT ASSOCIE"
            Cells(1, 14) = "LIBELLE SITE"
            Range("A1:N1").Select
            Call ListeDéroulanteSup(10, "A:I", "J:N")
            Call ConditionsCelluleSUP
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorLight2
                .TintAndShade = 0.399975585192419
                .PatternTintAndShade = 0
            End With
            Columns("A:A").EntireColumn.AutoFit
            Columns("B:B").EntireColumn.AutoFit
            Columns("I:I").EntireColumn.AutoFit
            Columns("J:J").EntireColumn.AutoFit
            Columns("K:K").EntireColumn.AutoFit
            Columns("L:L").EntireColumn.AutoFit
            Columns("M:M").EntireColumn.AutoFit
            Columns("N:N").EntireColumn.AutoFit
            Columns("D:D").EntireColumn.AutoFit
            Columns("C:C").EntireColumn.AutoFit
            Columns("B:B").EntireColumn.AutoFit
            Columns("A:A").EntireColumn.AutoFit
            'ActiveWorkbook.Protect Password:="INVTOURNANT", Structure:=True
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:=CheminRetourFiche & "\" & NomClasseurTech, FileFormat:=xlExcel8, ConflictResolution:=xlLocalSessionChanges
            Workbooks(NomClasseurTech).Close
            Application.DisplayAlerts = True
                        With Sheets("Liste techs")
                        Set Rg = .Columns(NColonneTechs + 1).Find(NomClasseurTech, lookat:=xlWhole)
                If Not Rg Is Nothing Then
                    .Cells(Rg.Row, NColonneTechs + 3) = "C" 'Fichier créé
                    .Cells(Rg.Row, NColonneTechs + 4) = NLigneProt1 - 1
                    .Cells(Rg.Row, NColonneTechs + 5) = NLigneProt2 - 1
                End If

et le prog fait appel ConditionsCelluleSup dont voici le prog

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
79
80
81
82
83
84
85
86
Sub ConditionsCelluleSUP()
'
Dim NbLigne As Integer
Dim i As Integer
 '
NbLigne = Cells(1, 1).CurrentRegion.Rows.Count
Cells(2, 15).Select
ActiveCell.FormulaR1C1 = _
    "=IF(RC[-5]=""Récupéré sur Site"",""Préciser le code IG du site où a été récupéré le module"",IF(RC[-5]=""Déposé en pied de site"",""Préciser le code IG du site où a été mis le module"",IF(RC[-5]=""Matériel installé"",""Préciser le code IG où a été installé le module"",IF(RC[-5]=""Transféré à un autre technicien"",""Préciser le nom du technicien"",IF(RC[-5]=""Autres"",""Merci de préciser"","""")))))"
'
Selection.FormatConditions.Add Type:=xlTextString, String:= _
    "=""Préciser le code IG du site où a été récupéré le module""", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'
Selection.FormatConditions.Add Type:=xlTextString, String:= _
    "=""Préciser le code IG du site où a été mis le module""", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'
Selection.FormatConditions.Add Type:=xlTextString, String:= _
    "=""Préciser le code IG où a été installé le module""", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'
Selection.FormatConditions.Add Type:=xlTextString, String:= _
    "=""Préciser le nom du technicien""", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'
Selection.FormatConditions.Add Type:=xlTextString, String:= _
    "=""Merci de préciser""", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
'
Range("S2").Select
Selection.Copy
Range(Cells(3, 19), Cells(NbLigne, 19)).Select
ActiveSheet.Paste
'
End Sub

j'ai fait du pas à pas pour vérifier que j'ai bien les couleurs juste avant l'enregistrement, ce qui est le cas

merci d'avance

[78chris]

Bonjour

Enregistres-tu en xls ou xlsm ?

[grimgrim]

ils sont enregistrés en xls

[Daniel.C]

Bonjour,

Comme apparemment tu enregistres en XLS, le fait d'avoir plus de trois conditions de MFC déplaît à Excel.