Perte de Mise en forme conditionnelle après ouverture fichier

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

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.

Bonjour,

Poste ton code.

Voici le code :

Mon application est en Xlsm et mes fichiers en xls

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
 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:

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

Bonjour

Enregistres-tu en xls ou xlsm ?

ils sont enregistrés en xls

Bonjour,

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

c'est exact, je viens de modifier ma condition pour en avoir une seule et cela fonctionne
merci

Citation:

Envoyé par Daniel.C

Bonjour,

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

Hello, désolé de casser un peu l'ambiance mais :
Faux : je passe, plutot je passais, mon temps à générer des MFC sous xlsm - et non xls - et celà ne tient pas, ou pas bien, ou/et en partie, ou rien. Du grand n'importe quoi : certaines cells ont conservé certaines MFC, d'autres non, pas les mêmes, etc...
Evidemment les "explications" de microfault sont nulles, laconiques et hors sujets (quand ils n'ont aucune réponse ultra standard ils emploient toujours cette méthode : des réponses où l'on se dit "suis-je super-nul/con, ou serait-il possible que ce soit eux ?...Non, ils sont forcément géniaux, ce doit etre moi...)

Donc les MFC, c'est de la pure m...
faut coder.