Microsoft 365 Mise en forme conditionnelle en VBA

de_hanstrapp

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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
 

Statistiques des forums

Discussions
311 729
Messages
2 081 970
Membres
101 852
dernier inscrit
dthi16088