Erreur de syntaxe bva

Bonjour,

.TintAndShade = 0 > tu peux l'enlever ou mettre en commentaire aux deux places > il ne semble pas y avoir de différence ...

ric

Bonjour,

Alors en fait, je pense plutot faire la mise en forme conditionnelle directement sur la feuille "Test", mais quelque chose ne va pas :

Je fais une mise en forme conditionnelle classique : si cellule non vide alors bordure haute et basse, et je change la taille de caractere.

Quand je lance les macros, les mises en forme conditionnelles disparaissent...elles ne devraient pas ? On ne supprime les MFC que dans la feuille "Donnée" et on fait un copier/copie valeur...

Je n ai pas la bonne logique ?

Bonjour,

J'avoue que je manque un peu d'expertise dans le domaine ...

Aujourd'hui, je termine un projet > puis, je regarde cela ...

A+

ric

merci beaucoup

Bonjour,

Ici, l'on parle bien de la macro "Planning" > laquelle copie certaines cellules de la feuille "données" dans la feuille "Test" ...

Dès la 1re copie de cellules lign fd.Range("A" & i & ":B" & i).Copy ft.Range("A" & ln) > les MFC de la feuille "données" suivent ...

Puis > l'on copie la couleur des cellules concernées de la feuille "données" sur les cellules cibles de la feuille "Test" ...ft.Range("A" & ln & ":B" & ln).Interior.Color = fd.Range("A" & i).DisplayFormat.Interior.Color

À la fin de la macro > étant donné que les MFC importées ne sont plus utiles > on les supprime ...
ft.Cells.FormatConditions.Delete

C'est là que les MFC tant désirées s'évaporent avec les MFC importées ...

Pour pallier à la chose si vilaine > l'on pourrait ne copier que les valeurs des cellules > et supprimer la suppression des MFC ...

Ainsi, les MFC de la feuille "Test" seraient conservées ...

Est-ce que cela te conviendrait ?

ric

Merci pour l'explication et l'idée.

Je test et te redis

Bonjour,

Exemple :

lign fd.Range("A" & i & ":B" & i).Copy 
ft.Range("A" & ln).PasteSpecial Paste:=xlPasteValue

ric

Nonjour,

Désolé mais je n y arrive toujours pas, a chaque essai il y a une erreur sur une ligne.

J'aimerai que les mfc soient comme sur la feuille "Test" du fichier joint. Il faut surement les effacer à chaque activation de la macro "Planning" ?

Saurais tu comment faire ?

Bonjour,

Je regarde cela ...

ric

Bonjour,

Les changements sont vers la fin de la macro "Planning" ...

J'ai enlevé la copie des couleurs et je continue de supprimer les MFC importées avec les copies des cellules ...

Je réécris les MFC avec les nouvelles conditions ...

Voir si ça convient ...

ric

Merci de ton aide.

Cela ne semble pas fonctionner, les bordures hautes et basses sont sur la feuille "données" et la taille des caractères revient à 8 (je la voudrait en 36)

Bonjour,

Là > tu m'as complètement perdu >> je ne comprends ...

Les bordures hautes et basses sur la feuille "données" > ça a été demandé il y a longtemps > est-ce que tu veux ces mêmes lignes sur la feuille "Test" ?

Police en 36 ??? > où veux-tu cela ?

Je ne peux deviner ta pensée > il faut que tu me décrives bien ton besoin ...

Comme je dis souvent > "Je comprends vite ... Mais avant, il faut m'expliquer longtemps ! "

ric

désolé, en fait comme je n arrivais pas a avoir ce que je voulais sur la feuille "données", je pensais mettre les mfc sur la feuille "Test" directement.

J ai mis le format que je souhaiterai obtenir de la feuille "Test" dans le dernier fichier :

taille caractere 36, en gras, couleurs et bordure haute basse (elles etaient à l'origine sur la feuille "données" car je pensais qu'elles seraient copiées lors du transfert avec la macro "planning"...est ce plus clair ?

Bonjour,

J'avais zappé ton fichier de Aujourd'hui à 05:59 ...

Voir si ceci convient ...

ric

Oui c est parfait, je te remercie beaucoup

Bonjour,

J ai ajouté 2 conditions pour les mfc. Elles fonctionnaient avant de mettre la condition avec les bordures mais je n arrive pas à les faire fonctionner ensemble.

J ai mis With .FormatConditions(1) et With .FormatConditions(2) parce que ca mettais une erreur lorsque je mettais With .FormatConditions(9) et With .FormatConditions(10)

J'ai essayé de modifier un peu mais la seule chose que j obtiens c est que toutes les lignes de A à R se colorie d une seule couleur.

Ca concerne la derniere partie en italique souligné.

Peux tu jeter un coups d'oeil à l'occasion ?

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 ft.Range("A3:C100,E3:F100") '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:="=$G3=""équipe après-midi"""

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

' With .FormatConditions(1)

'Définit la couleur de fond de la cellule lorsque la condition sera vraie.

' .Interior.Color = RGB(255, 229, 204) '.Interior.ColorIndex = 15 'Gris

' End With

' With .FormatConditions(2)

' .Interior.Color = RGB(229, 255, 204)

' End With

'End With

End With

End With

End With

Bonjour,

Peut-être ainsi ...

Sub mfc()

    Application.ScreenUpdating = False

    With Sheets("données").Range("A3:B100,E3:E100")    'Sélection des plages où doit s'appliquer la MeF
        'Supprime les MFC existantes
        Sheets("données").Cells.FormatConditions.Delete
        'Ajoute une condition (Vrai lorsque la cellule est non vide)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$G3=""équipe après-midi"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$G3=""équipe matin"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""Supplay"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""RAS"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""Crit"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""Randstad"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""CDI"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""CDD"""

        With .FormatConditions(1)
            .Interior.Color = RGB(255, 229, 204)
        End With
        With .FormatConditions(2)
            .Interior.Color = RGB(229, 255, 204)
        End With
        With .FormatConditions(3)
            'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
            .Interior.Color = RGB(255, 0, 0)         '.Interior.ColorIndex = 15 'Gris
        End With
        With .FormatConditions(4)
            .Interior.Color = RGB(255, 255, 0)
        End With
        With .FormatConditions(5)
            .Interior.Color = RGB(120, 120, 120)
        End With
        With .FormatConditions(6)
            .Interior.Color = RGB(51, 51, 255)
        End With
        With .FormatConditions(7)
            .Interior.Color = RGB(0, 204, 0)
        End With
        With .FormatConditions(8)
            .Interior.Color = RGB(0, 255, 51)
        End With
    End With
    Call Planning
End Sub

ric

Merci, en fait se sont les mfc qui sont dans la macro "Planning". Je ne peux pas fusionner les 2 car les conditions 1 à 7 s applique en colonne D, les conditions de bordures de A à R et les dernieres conditions couleurs en A, B, C, E et F

Bonjour,

Remette la macro MFC en sont état d'origine si tu y a appliqué mon précédent code ...

Puis > voici la partie des MFC de la macro "Planning" ...

    ft.Cells.FormatConditions.Delete

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

    With ft.Range("A6:B100,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:="=$F6=""équipe après-midi"""
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$F6=""équipe matin"""
        .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"""

        With .FormatConditions(1)
            .Interior.Color = RGB(255, 229, 204)
        End With
        With .FormatConditions(2)
            .Interior.Color = RGB(229, 255, 204)
        End With
        With .FormatConditions(3)
            'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
            .Interior.Color = RGB(255, 0, 0)         '.Interior.ColorIndex = 15 'Gris
        End With
        With .FormatConditions(4)
            .Interior.Color = RGB(255, 255, 0)
        End With
        With .FormatConditions(5)
            .Interior.Color = RGB(120, 120, 120)
        End With
        With .FormatConditions(6)
            .Interior.Color = RGB(51, 51, 255)
        End With
        With .FormatConditions(7)
            .Interior.Color = RGB(0, 204, 0)
        End With
        With .FormatConditions(8)
            .Interior.Color = RGB(0, 255, 51)
        End With
    End With

ric

Rechercher des sujets similaires à "erreur syntaxe bva"