bonjour,

Je me permet de vous solliciter, car j'aimerai simplifier ce code et surtout supprimer les .selection etc...

Mais toutes mes tentatives ont fini par des code d'erreur...

De plus, Je n'ai trouvé aucun poste ressemblant à mon code.

Merci de votre compréhension :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
    Range("C101:F101").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NBCAR(SUPPRESPACE(C101))=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .Pattern = xlGray8
        .PatternColorIndex = xlAutomatic
        .ColorIndex = xlAutomatic
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub
Des idées ?