Probleme de MFC

Version imprimable

1 pièce(s) jointe(s)

Probleme de MFC

Bonjour à tous,

Je me bat avec les mfc que je n'arrive pas à appliquer sur mon fichier.

Tout d'abord j'aimera faire une mise en forme conditionnel de mes périodes de vacances ( colonne D et E de l'onglet param) sur mes dates ( colonne A de mes onglets Cal et Hebdo). ( en vba si possible)

j'ai essayer plusieurs formules sans résultat!

J'ai également sur mon onglet hebdo un tableau (ligne 380) dont le nombre de colonne et de ligne est variable dont j'aimerai afficher les valeurs en dessous de la moyenne ( par colonne ). Mais là encore mes test de mise en forme se sont solder par un échec mon code est le suivant ( disponible également sur l userform "generateur" de mon fichier)
Code:

1 2 3 4 5 6 7 8 9 10 11 With .Cells(380, 3).CurrentRegion .Borders.Weight = xlThin .Borders.LineStyle = xlDot .FormatConditions.AddAboveAverage .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .ThemeColor = xlThemeColorAccent6 .TintAndShade = 0.399975585192419 .PatternTintAndShade = 0 End With End With
les bordures fonctionnent nickel par contre le reste pas du tous :weird:

Si vous aviez des idées pour résoudre ces problèmes. Je reste à votre disposition pour toutes questions,

ci joint un fichier exemple dont le mois de décembre est remplit histoire de pouvoir tester la mise en forme

Merci

29/11/2016, 10h48
Al__22

Tu as essayé avec l'enregistreur de macro ? :aie:
29/11/2016, 11h37
edlede

Yes pour la MFC du tableau avec le calcule des valeurs en dessous de la moyenne. Mais lorsque je l'exécute en vba rien ne se passe. ( j'ai du louper une étape) cf code message précédent.
29/11/2016, 14h39
Al__22

Essaye d'ajouter :

Code:

Selection.FormatConditions(1).StopIfTrue = False

Après le end with

Code:

1
2
3
4
5
6
7
8
9
10
11
With .Cells(380, 3).CurrentRegion
            .Borders.Weight = xlThin
            .Borders.LineStyle = xlDot
            .FormatConditions.AddAboveAverage
            .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.399975585192419
            .PatternTintAndShade = 0
        End With
    Selection.FormatConditions(1).StopIfTrue = False
    End With

En fait j'arrive pas jusque là. ma macro s’arrête à la ligne orange.

Essaye ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
With .Cells(380, 3).CurrentRegion
            .Borders.Weight = xlThin
            .Borders.LineStyle = xlDot
            .FormatConditions.AddAboveAverage
End With
With Selection.FormatConditions(Selection.FormatConditions.Count)
.SetFirstPriority
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With

Bonsoir Al__22,

Désolé de te répondre si tard. Mais je n'ai pas d'ordi sous la main pour tester avant. Bon décidément ça veux pas !

Le code s’arrête au même endroit
Code:

1 2 3 4 5 6 7 8 9 10 11 With .Cells(380, 3).CurrentRegion .Borders.Weight = xlThin .Borders.LineStyle = xlDot .FormatConditions.AddAboveAverage End With With Selection.FormatConditions(Selection.FormatConditions.Count) .SetFirstPriority .ThemeColor = xlThemeColorAccent6 .TintAndShade = 0.399975585192419 .PatternTintAndShade = 0 End With
Je désespère pour ce morceau de code qui vient d'un l'enregistrement par macro, c'est peut être ça le problème.!

Moi qui voulais juste avoir une idée du nombre d'agent ayant le moins travailler au poste.

Ce qui est bizarre c'est qu'en manuel ça marche direct !

Et pour le marquage des vacances scolaire ( période de date en colonne J et K de l'onglet param) à appliquer sur mes colonne A ( onglet Cal et hebdo) as tu une suggestion?

Les codes essayés non rien donnés

Bon si tu as d'autres idées je suis preneur, je continue de fouiller de mon coté,

Un grand merci encore.

A bientôt,

Bon finalement j'ai réussi à gérer ses deux problemes.

Concernant les MFC des vacances scolaire j'ai utilisé cette formule =SOMMEPROD(($A2>=DVac)*($A2<=FVac))>0 (Merci Leakim)

que j'ai mis en dure en vba

Code:

1
2
3
4
5
6
7
8
9
10
11
12
With WsCal.Cells(2, 1).Select
        Range(Selection, Selection.End(xlDown)).Select
        With Selection
           .FormatConditions.Add Type:=xlExpression, Formula1:="=SOMMEPROD(($A2>=DVac)*($A2<=FVac))>0"
           .FormatConditions(3).SetFirstPriority
        With .FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .Color = 16764006
                .TintAndShade = 0.4
        End With
        End With
  End With

Concernant la mise en forme de mon tableau à colonne variable et ligne variable dont je voulais connaitre pour chaque colonne les valeurs en dessous de la moyenne j'ai construit ceci qui fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
   a = "Post" & 2 ' récupère la liste des postes
    b = "Alist" & 2' récupère la liste des types d'absences
    n = Range(a).Rows.Count 'compte le nombre de poste
    m = Range(b).Rows.Count 'compte le nombre de poste absence
    p = n + m - 2  'addition des 2 comptes - 2 pour commencer à la colonne C
    For i = 3 To p 
    Wshebdo.Cells(380, i).Select 'Selection de la ligne de départ
    Range(Selection, Selection.End(xlDown)).Select 'Selection de la première ligne jusqu'a la derniere
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).AboveBelow = xlBelowAverage
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799981688894314
    End With ' applique la mise en forme conditionnelle sur les  sélectionnées de la colonne
    Selection.FormatConditions(1).StopIfTrue = False
   Next i 'passe à la colonne suivante jusqu'a la derniere colonne du tableau ( Valeur p)

Merci à ceux qui ont pu me donner un coup de main