Remplacer mise en forme conditionnelle par module VBA

Version imprimable

04/05/2017, 22h22
MicKRub

2 pièce(s) jointe(s)

Remplacer mise en forme conditionnelle par module VBA

Bonsoir,

Est-il possible de remplace une mise en forme conditionnelle par un module VBA et faire appel à celui-ci sur la feuille voulu.

Pour un planning annuel avec des onglets par mois, j'utilise les mêmes MFC sur chaque page.

Je me demandais s'il était possible de remplacer une mise en forme conditionnelle par un module VBA et faire appel à celui-ci sur la feuille voulu.

Genre avec cette MFC qui met en gris les colonnes si c'est un samedi ou dimanche

Cordialement.

Pièce jointe 271643

Pièce jointe 271648
05/05/2017, 07h40
78chris

Bonjour

Je ne réponds pas à ta question mais je remarque une anomalie : ta MFC ne s'applique qu'aux colonnes concernées semble-t-il (toutes les 6 colonnes).

Elle perd son intérêt, le but d'une MFC est qu'elle fasse le boulot sur toutes les colonnes et détermine si la colonne est concernée ou non.

Pour VBA il faut déjà préciser si le code est à lancer ou doit s'automatiser à chaque changement des valeurs en limitant la porter à la ligne de date concernée.
05/05/2017, 10h30
MicKRub

2 pièce(s) jointe(s)

Merci pour la réponse. en fait il y a eu un beug je ne sais pas pourquoi. J'ai corrigé le "s'applique à" comme sur l'image si dessous.

Pièce jointe 271773

Pièce jointe 271775

Voila un exemple de l'une de mes MFC que j'aimerai mettre en VBA

Cordialement
05/05/2017, 11h03
riaolle

Bonjour,
As-tu déjà essayé d'obtenir le code correspondant à la création de MFC grâce à l'enregistreur de macro?
05/05/2017, 11h36
MicKRub

Non mais je vais essayer.

Merci

Malheureusement je ne comprend pas comment faire...

J'ai essayer dans un module de créer un Sub Couleur () dans le but de colorer mes cellules où les lettres Q ou K apparaissent.
Mon tableau va des lignes 20 à 138 et des colonnes AA à ACD

Ensuite j'appelle couleur dans Private Sub Worksheet_Activate()

Mais ca ne fonctionne pas...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Couleur()
    Dim iColumn As Integer
    Dim iRow As Integer
 
    For iRow = 20 To 138 'lignes  20 à 138 (à adapter)
        For iColumn = 27 To 393 'colonnes  AA(27) à ACD(393) (à adapter)
            If Cells(iRow, iColumn).Value = "Q" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0) 'couleur à adapter
                Cells(iRow, iColumn).Interior.Color = RGB(255, 0, 255) 'couleur à adapter
            End If
 
            If Cells(iRow, iColumn).Value = "k" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0) 'couleur à adapter
                Cells(iRow, iColumn).Interior.Color = RGB(151, 255, 151) 'couleur à adapter
            End If
 
        Next iColumn
    Next iRow
 
End Sub

Une idée?

Cordialement

Est-ce possible de simplifier avec quelques chose du style?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
    If Range("AA20:ACD139") = "j" Then
 
    Range("AA20:ACD139").Font.Color = RGB(192, 32, 255)
 
    End If
 
 
End Sub

Bonjour,
Ceci n'est pas le code que l'on obtient pour une mise en forme conditionnelle. Voici ce que j'obtiens avec l'enregistreur de macro (fond rouge, écriture rouge pour les cellules contenant a):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 With Range("A1:D6") .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""a""" .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With .FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With .FormatConditions(1).StopIfTrue = False End With
Ce code doit être lancé une seule fois et la mise en forme sera toujours adaptée au contenu des cellules (c'est le principe de la MFC). Pourquoi as-tu besoin d'une macro pour faire cela? As-tu bien compris le principe de la MFC?

En ce qui concerne ta question, oui, il y a plus simple. Au lieu de faire deux boucles imbriquées, on peut n'en faire qu'une seule : une boucle sur les cellules :
Code:

1 2 3 4 Dim cellu As Range For cellu In Range("AA20:ACD139") If cellu.Value = "j" Then cellu.Font.Color = RGB(192, 32, 255) Next cellu
Par contre, ceci n'enlèvera pas la mise en forme si on efface "j". Par ex. si tu fais :

Ecrire "j" en A1
Lancer la macro
Effacer "j" en A1
Lancer la macro

A1 gardera la mise en forme donnée quand il était écrit "j" en A1, car tu ne dis pas qu'il faut enlever la mise en forme si A1 ne contien pas "j". Il faudrait mettre une condition Else pour le cas où aucune mise en forme doit être appliquée. Ceci est fait de façon automatique avec la MFC.

1 pièce(s) jointe(s)

Merci pour cette solution.

J'ai essayer de la copier et de l'ajuster un peu pour mon fichier, mais cela me met une erreur de compilation, erreur de syntaxe

Pièce jointe 273729

Sinon avec le code si dessous ça fonctionne mais c'est assez lent..

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
 
Public Sub Couleur()
    Dim iColumn As Integer
    Dim iRow As Integer
 
    Application.ScreenUpdating = False
 
    ThisWorkbook.Worksheets("2018").Unprotect "2018"
 
    For iRow = 20 To 138 'lignes de 20 à 138
 
        Select Case iRow 'on fait un select sur iRow
            Case 21, 22, 24, 25, 27, 28, 30, 31, 33, 34, 36, 37, 39, 40, 42, 43, 45, 46, 48, 49, 51, 52, 54, 55, 57, 58, 60, 61, 63, 64, 66, 67, 69, 70, 72, 73, 75, 76, 78, 79, 81, 82, 84, 85, 87, 88, 90, 91, 93, 94, 96, 97, 99, 100, 102, 103, 105, 106, 108, 109, 111, 112, 114, 115, 117, 118, 120, 121, 123, 124, 126, 127, 129, 130, 132, 133, 135, 136
                GoTo flNextiRow 'on passe au flag flNextiRow
            Case Else 'c'est mieux de mettre le case else, c'est pour toutes les autres lignes, mais on fait rien, donc le code continue
        End Select
        For iColumn = 27 To 758 'colonnes de AA(27) à ACD(758)
        'Vide
            If Cells(iRow, iColumn).Value = "" Then
                'Cells(iRow, iColumn).Interior.Pattern = xlNone
                Cells(iRow, iColumn).Font.Color = RGB(255, 255, 255)
                Cells(iRow, iColumn).Interior.Color = RGB(255, 255, 255)
            End If
        'Jour
            If Cells(iRow, iColumn).Value = "j" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(0, 255, 0)
            End If
        'Nuit
            If Cells(iRow, iColumn).Value = "n" Then
                Cells(iRow, iColumn).Font.Color = RGB(255, 255, 255)
                Cells(iRow, iColumn).Interior.Color = RGB(0, 0, 0)
            End If
        'Vacances
            If Cells(iRow, iColumn).Value = "v" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(255, 0, 255)
            End If
        'Vacances Travail
            If Cells(iRow, iColumn).Value = "vt" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(255, 0, 255)
            End If
        'Maladie
            If Cells(iRow, iColumn).Value = "m" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(0, 255, 255)
            End If
        'Congé
            If Cells(iRow, iColumn).Value = "c" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(247, 150, 70)
            End If
        'Congé statutaire
            If Cells(iRow, iColumn).Value = "cs" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(247, 150, 70)
            End If
        'Congé férié
            If Cells(iRow, iColumn).Value = "cf" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(247, 150, 70)
            End If
        'Congé Réserve
            If Cells(iRow, iColumn).Value = "cr" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(250, 191, 143)
            End If
        'Instruction
            If Cells(iRow, iColumn).Value = "i" Then
                Cells(iRow, iColumn).Font.Color = RGB(255, 255, 255)
                Cells(iRow, iColumn).Interior.Color = RGB(83, 141, 213)
            End If
        'Ecole
            If Cells(iRow, iColumn).Value = "e" Then
                Cells(iRow, iColumn).Font.Color = RGB(255, 255, 255)
                Cells(iRow, iColumn).Interior.Color = RGB(0, 0, 255)
            End If
        'Reserve 1
            If Cells(iRow, iColumn).Value = "r1" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(255, 255, 153)
            End If
        'Reserve2
            If Cells(iRow, iColumn).Value = "r2" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(255, 255, 153)
            End If
        'Reserve 3
            If Cells(iRow, iColumn).Value = "r3" Then
                Cells(iRow, iColumn).Font.Color = RGB(0, 0, 0)
                Cells(iRow, iColumn).Interior.Color = RGB(255, 255, 153)
            End If
        Next iColumn
flNextiRow:
    Next iRow
 
    ThisWorkbook.Worksheets("2018").Protect "2018"
 
 
End Sub

10/05/2017, 14h23
riaolle
Oui, pardon, il y a une faute de frappe au niveau de la boucle For --> c'est une boucle For Each :
Code:

1 2 3 4 Dim cellu As Range For Each cellu In Range("AA20:ACD139") If cellu.Value = "j" Then cellu.Font.Color = RGB(192, 32, 255) Next cellu
Mais je tiens à repriser que ceci n'est PAS une mise en forme conditionnelle. C'est une mise en forme à un moment donné qui ne s'adaptera PAS au contenu de la cellule après qu'on ait lancé le code.