Erreur de syntaxe bva

Le 24/09/2020 à 13:07

merci mais ce ne fonctionne pas puisque les mfc ne doivent pas s appliquer aux meme cellules :

.FormatConditions.Add Type:=xlExpression, Formula1:="=$F6=""équipe après-midi"""

.FormatConditions.Add Type:=xlExpression, Formula1:="=$F6=""équipe matin"""

aux cellules des colonnes A, B, C, E et F et :

.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Supplay"""

.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""RAS"""

.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Crit"""

.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Randstad"""

.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDI"""

.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDD"""

.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Aquila"""

aux cellules de la colonne D

Le 24/09/2020 à 14:14

Bonjour,

Désolé > mais là > j'ai atteint la limite de mes compétences ...

Je ne saurais pas réussir > il y a trop de conditions sur les mêmes plages > où quelque chose d'approchant ...

ric

Le 24/09/2020 à 15:25

je comprend...

Merci pour tout

Le 25/09/2020 à 09:19

Bonjour RIC,

Pour info, j ai reussi comme ceci, il y a peut etre plus simple mais ca fonctionne :

ft.Cells.FormatConditions.Delete

derLn = ft.Range("A" & Rows.Count).End(xlUp).Row + 1 ' < dernière ligne

With ft.Range("D6:D100") 'Sélection des plages où doit s'appliquer la MeF
'Ajoute une condition (Vrai lorsque la cellule est non vide)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Supplay"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""RAS"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Crit"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Randstad"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDI"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDD"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Aquila"""

With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Interior.Color = RGB(255, 80, 80) '.Interior.ColorIndex = 15 'Gris
End With
With .FormatConditions(2)
.Interior.Color = RGB(224, 255, 64)
End With
With .FormatConditions(3)
.Interior.Color = RGB(192, 192, 192)
End With
With .FormatConditions(4)
.Interior.Color = RGB(51, 255, 212)
End With
With .FormatConditions(5)
.Interior.Color = RGB(119, 255, 51)
End With
With .FormatConditions(6)
.Interior.Color = RGB(51, 255, 85)
End With
With .FormatConditions(7)
.Interior.Color = RGB(255, 153, 255)
End With

With ft.Range("A6:R" & derLn) 'Sélection des plages où doit s'appliquer la MeF
'Ajoute une condition (Vrai lorsque la cellule est non vide)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6<>"""""

With .FormatConditions(8)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
With .Borders(xlTop)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With

With Sheets("Planning MDV").Range("$A1:$C100,$E1:$F100")
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$F1=""équipe après-midi"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(255, 229, 204)
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$F1=""équipe matin"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(229, 255, 204)
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With
End With
End With
End With

Le 25/09/2020 à 09:49

Bonjour,

Tu es arrivé à un résultat très approchant où j'ai abandonné > l'important est que tu en sois satisfait ...

Je pense que les with /end with devraient mieux être distribués > bloc par bloc > sans imbrication > mais l'un comme l'autre > ça semble fonctionner ...

    ft.Cells.FormatConditions.Delete

    derLn = ft.Range("A" & Rows.Count).End(xlUp).Row + 1    ' < dernière ligne

    With ft.Range("D6:D100")    'Sélection des plages où doit s'appliquer la MeF
        'Ajoute une condition (Vrai lorsque la cellule est non vide)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Supplay"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""RAS"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Crit"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Randstad"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDI"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDD"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Aquila"""

        With .FormatConditions(1)
            'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
            .Interior.Color = RGB(255, 80, 80)    '.Interior.ColorIndex = 15 'Gris
        End With
        With .FormatConditions(2)
            .Interior.Color = RGB(224, 255, 64)
        End With
        With .FormatConditions(3)
            .Interior.Color = RGB(192, 192, 192)
        End With
        With .FormatConditions(4)
            .Interior.Color = RGB(51, 255, 212)
        End With
        With .FormatConditions(5)
            .Interior.Color = RGB(119, 255, 51)
        End With
        With .FormatConditions(6)
            .Interior.Color = RGB(51, 255, 85)
        End With
        With .FormatConditions(7)
            .Interior.Color = RGB(255, 153, 255)
        End With
    End With
    With ft.Range("A6:R" & derLn)        'Sélection des plages où doit s'appliquer la MeF
        'Ajoute une condition (Vrai lorsque la cellule est non vide)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D6<>"""""

        With .FormatConditions(8)
            'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
            With .Borders(xlTop)
                .LineStyle = xlContinuous
                .TintAndShade = 0
                .Weight = xlThin
            End With
            With .Borders(xlBottom)
                .LineStyle = xlContinuous
                .TintAndShade = 0
                .Weight = xlThin
            End With
        End With
    End With
    With ft.Range("$A1:$C100,$E1:$F100")
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
                              "=$F1=""équipe après-midi"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = RGB(255, 229, 204)
            .TintAndShade = 0
        End With
        .FormatConditions(1).StopIfTrue = False
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
                              "=$F1=""équipe matin"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = RGB(229, 255, 204)
            .TintAndShade = 0
        End With
        .FormatConditions(1).StopIfTrue = False
    End With

ric

Rechercher des sujets similaires à "erreur syntaxe bva"