Mise en forme cellule

bonsoir

j'ai essayé de reprendre cette macro pour un autre fichier mais je rame.

si joint le fichier et le code que je veux modifier

je veux tester toutes les cellules de la plage "c3:af68" de la feuille "tirages"

la condition est : SI(RECHERCHEV(A3;Equipes!b2:e150;4)=boulodrome,=VRAI) je voudrais que la cellule soit en gris clair

merci de votre aide par avance

Philippe

[code

Sub test()

Dim MaPlage As Range, ligne As Integer

Cells.FormatConditions.Delete

ligne = 3

Cells(ligne, 3).Select

Do While Cells(ligne, 3).Value <> ""

If Not MaPlage Is Nothing Then

Set MaPlage = Application.Union(MaPlage, Cells(ligne, 3))

Else

Set MaPlage = Cells(ligne, 3)

End If

ligne = ligne + 1

Loop

MaPlage.FormatConditions.Add Type:=xlExpression, Formula1:= _

"=SI(RECHERCHEV(A3;at$3:au$100;2)=""boulodrome"",=VRAI)"

MaPlage.FormatConditions(MaPlage.FormatConditions.Count).SetFirstPriority

With MaPlage.FormatConditions(1).Interior

.PatternColorIndex = xlAutomatic

.Color = 255

.TintAndShade = 0

End With]

MaPlage.FormatConditions(1).StopIfTrue = False

end sub

[/code]

Bonjour,

Essaie comme cela

Sub test()
    With Worksheets("Tirages").Range("C3:AF68")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=RECHERCHEV(C3;Equipes!$B$2:$E$130;4;FAUX)=""Boulodrome"""
        .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.14996795556505
        End With
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

A+

bonjour Frangy

merci pour aide

ça bloc sur la condition je ne suis pas sur qu'on puisse faire une mise en forme à partir de paramètre d'une autre feuille...

cordialement

philippe

De mon coté, aucun problème :

A+

Frangy

j'ai toujours le message d'erreur : Erreur d'exécution 5 , argument ou appel de procédure incorrect et si clique sur débogage il m 'affiche la condition en jaune?

philippe

J'ai trouvé la boulette

Essaie comme cela

Sub test()
    With Worksheets("Tirages").Range("C3:AF68")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=RECHERCHEV(C3;Equipes!$B$2:$E$130;4;FAUX)=""Boulodrome"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.14996795556505
        End With
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

A+

c'est pareil même message

philippe

Je ne comprends pas.

On utilise bien le même fichier ?

A+

Frangy

oui

normalement tu ne peux pas faire une mise en forme avec des paramètres d'une autre feuille, je pense que c'est idem pour le vba

donc j'ai essayé ça et ça à l'air de fonctionner, peux tu regarder le vba si pour toi il correct

par contre j'ai rajouté Range("C3").Select car la macro ne partait de la C3 mais e3 la cellule était active

philippe

Sub test()
 Range("C3").Select
    With Worksheets("Tirages").Range("C3:AF68")
        .FormatConditions.Delete
        'RECHERCHEV(C3;$AA$3:$AD$130;4;FAUX)="boulodrome"
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=RECHERCHEV(C3;$aa$2:$ad$130;4;FAUX)=""Boulodrome"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.14996795556505
        End With
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

Je fais les tests avec Excel 2013, ce qui justifie que je ne vois pas la difficulté.

Dans le classeur joint, j'ai déclaré la plage source sous le nom "Equipe".

Le fichier est enregistré en mode de compatibilité Excel 97-2003

Dis-moi ce que tu obtiens de ton coté.

A+

Frangy

c'est ok pour moi

Encore merci pour ton aide

philippe