MFC par macro à simplifier

Version imprimable

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:

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 ?

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
    With Range("C101:F101")
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NBCAR(SUPPRESPACE(C101))=0"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .Pattern = xlGray8
            .PatternColorIndex = xlAutomatic
            .ColorIndex = xlAutomatic
        End With
    .FormatConditions(1).StopIfTrue = False
    End With
End Sub

Cordialement.

21/09/2012, 14h03
Yamiral

Merci !! !!! !!

je me plantais à chaque fois sur cette ligne :

Code:

.FormatConditions(.FormatConditions.Count).SetFirstPriority

passe une bonne journée !!

Cordialement.