Discussion :

[Yamiral]

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 ?

[gFZT82]

Bonjour,

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()
    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.

[Yamiral]

Merci !! !!! !!

je me plantais à chaque fois sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FormatConditions(.FormatConditions.Count).SetFirstPriority

passe une bonne journée !!

Cordialement.