Microsoft 365 Mise en forme conditionnelle en VBA

de_hanstrapp · 23 Janvier 2021

Bonsoir le forum,

Je cherche à automatiser une mise en forme conditionnelle via VBA.
Pour ce faire j'ai utilisé l'enregistreur de macro.

Voici le code :

Sub VérificationsDonnées()
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Range("C2").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(C2<>""Fichier BMP"";C2<>""Fichier JPG"";C2<>""Fichier JPEG"";C2<>""Fichier PNG"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Application.CutCopyMode = False
End Sub

Ma question : comment appliquer cette macro sur toutes les cellules non vides de la colonne "C" à partir de la cellule "C2" ?

Nsapg

sylvanu · 23 Janvier 2021

Bonsoir Nsapg,
Vous pouvez essayer ceci :

VB:

Sub VérificationsDonnées()
Application.ScreenUpdating = False
DL = Range("C65500").End(xlUp).Row
For L = 2 To DL
    If Cells(L, "C") <> "Fichier BMP" And Cells(L, "C") <> "Fichier JPG" And _
        Cells(L, "C") <> "Fichier JPEG" And Cells(L, "C") <> "Fichier PNG" Then
        With Cells(L, "C").Font
            .Color = -16776961
            .TintAndShade = 0
        End With
    End If
Next L
End Sub

de_hanstrapp · 23 Janvier 2021

Merci sylvanu.
Cela fonctionne très bien !
Nsapg

sylvanu · 23 Janvier 2021

Ceci étant dit, une simple MFC aurait fait la même chose.

Microsoft 365 Mise en forme conditionnelle en VBA

de_hanstrapp

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

de_hanstrapp

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires