Traduction mfc en vba

Version imprimable

Bonjour, pourriez vous me dire comment traduire

Code:

=ET(OU(LC31="ROUTINE GATEWAY";LC31="CRITICAL");SOMMEPROD((L3C15:L27C15=LC15)*(L3C18:L27C18=L(-1)C18)*(L3C31:L27C31="ROUTINE GATEWAY")*L3C33:L27C33)>SOMMEPROD((L3C15:L27C15=LC15)*(L3C18:L27C18=LC18)*(L3C31:L27C31="CRITICAL")*L3C33:L27C33))

en vba actuellement j'ai
Code:

1 2 3 4 5 6 7 8 9 10 nb = Application.WorksheetFunction.CountA(ActiveWorkbook.Sheets("Rate Sheet").Columns("A")) - 5 For i = 5 To nb Range("AG" & i).Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=AND(OR(R5C[-2]=""ROUTINE GATEWAY"";R5C[-2]=""CRITICAL"");SUMPRODUCT((R5C[-18]:RiC[-18]=R5C[-18])*(R5C[-15]:RiC[-15]=R5C[-15])*(R5C[-2]:RiC[-2]=""ROUTINE GATEWAY"")*R5:Ri)>SOMMEPROD((R5C[-18]:RiC[-18]=R5C[-18])*(R5C[-15]:RiC[-15]=R5C[-15])*(R5C[-2]:RiC[-15]=""CRITICAL"")*R5:Ri))" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .color = 3 .TintAndShade = 0 End With
Mais la traduction de formule ne passe pas , pourriez vous me dire pourquoi ?
Cordialement

15/09/2015, 16h24
parmi

Bonjour,

Laisse les termes de ta formule en français (ET, OU, ...)

Oui c'est ce que j'ai fait mais merci de m'avoir répondu :), cependant ici je n'ai qu'une case qui se met en noir j'aurai aimé que les 2 cases concernées par le rapport > puissent se mettre en noir si toutes les conditions sont respectées , merci de me proposer vos solutions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub mfccomplexe()
nb = Application.WorksheetFunction.CountA(ActiveWorkbook.Sheets("Rate Sheet").Columns("A")) - 5
For i = 5 To nb
    Range("AG" & i).Select
    Selection.FormatConditions.Add Type:=xlExpression, _
    Formula1:="=ET(OU($AE$" & i & "=""ROUTINE GATEWAY"";$AE$" & i & "=""CRITICAL"";$AD$" & i & "="""");SOMMEPROD(($O$" & i & ":$O$" & nb & "=$O" & i & ")*($R$" & i & ":$R$" & nb & "=$R" & i & ")*($AE$" & i & ":$AE$" & nb & "=""ROUTINE GATEWAY"")*$AG$" & i & ":$AG$" & nb & ")>SOMMEPROD(($O$" & i & ":$O$" & nb & "=$O" & i & ")*($R$" & i & ":$R$" & nb & "=$R" & i & ")*($AE$" & i & ":$AE$" & nb & "=""CRITICAL"")*$AG$" & i & ":$AG$" & nb & "))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .color = 3
        .TintAndShade = 0
    End With
 
Next i
End Sub

15/09/2015, 19h13
parmi

Après passage de cette ligne, que vaut nb ?

Code:

nb = Application.WorksheetFunction.CountA(ActiveWorkbook.Sheets("Rate Sheet").Columns("A")) - 5

PS: est-ce que tu supprimes les MFC avant d'en créer de nouvelles ?

Bonjour, oui excusez moi j'ai rajouté des instructions après cette ligne, nb vaut le nombre de ligne sans la partie entête qui prend 5 lignes , et concernant l'effacement des mfc je ne pense pas que ça soit neccessaire car on note le SetFirstPriority qui effacerai les mfc déjà présente si je ne me trompe pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub mfccomplexe()
Dim i As Integer, nb As Integer
nb = Application.WorksheetFunction.CountA(ActiveWorkbook.Sheets("Rate Sheet").Columns("A")) - 5
If nb = -1 Or nb = 0 Then
    nb = nb + 2
    End If
 
For i = 5 To nb + 5
    Range("AG" & i).Select
    Selection.FormatConditions.Add Type:=xlExpression, _
    Formula1:="=ET(OU($AE$" & i & "=""ROUTINE GATEWAY"";$AE$" & i & "=""CRITICAL"";$AE$" & i & "=""AOG"");SOMMEPROD(($O$" & i & ":$O$" & nb & "=$O" & i & ")*($R$" & i & ":$R$" & nb & "=$R" & i & ")*($AE$" & i & ":$AE$" & nb & "=""ROUTINE GATEWAY"")*$AG$" & i & ":$AG$" & nb & ")>SOMMEPROD(($O$" & i & ":$O$" & nb & "=$O" & i & ")*($R$" & i & ":$R$" & nb & "=$R" & i & ")*($AE$" & i & ":$AE$" & nb & "=""CRITICAL"")*$AG$" & i & ":$AG$" & nb & ")>SOMMEPROD(($O$" & i & ":$O$" & nb & "=$O" & i & ")*($R$" & i & ":$R$" & nb & "=$R" & i & ")*($AE$" & i & ":$AE$" & nb & "=""AOG"")*$AG$" & i & ":$AG$" & nb & "))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .color = 3
        .TintAndShade = 0
    End With
Next i 
End sub

16/09/2015, 11h51
parmi

Les MFC s'accumulent et causent un ralentissement du programme à la longue.
Vaut mieux les supprimer avant de les ajouter.

Si tu vérifies les MFC de chaque cellule, tu devrais voir où il y a erreur, non ?

Et si tu refaisais ta formule en enlevant les "$" ?
16/09/2015, 12h03
galérienbis

Super, j'ai supprimé les $ et le code est devenu plus rapide j'ai l'impression, je dois avoir cette mfc sur 32 colonnes ça me soulage, par rapport à ce que vous disiez sur d'autre mfc déjà existantes en effet j'aurai dans 4 colonnes une mfc déjà présente vont elle rentrée en conflit? comment faire en sorte que cette 2 e mfc ne s'applique que sur les cellules de la colonnes qui ne sont pas déjà colorées(donc la ou la 1er mfc est fausse)? en vous remerciant par avance .
Cordialement
16/09/2015, 23h24
parmi

Tu peux mettre une priorité sur la condition, ce que tu fais déjà, il me semble.
Tu peux aussi arrêter lorsqu'une condition est respectée en utilisant StopIfTrue = True
Ça équivaut à cocher la case "interrompre si vrai" à côté des conditions.
Il suffit alors de trier ces conditions par ordre d'importance, la plus importante en haut.
17/09/2015, 13h59
galérienbis

Tout d'abord merci de m'avoir répondu, le problème c'est que la condition de la 1er mfc n'est pas là même que la 2e, au lieu de passer par un système de priorité(setfirstpriority ...) qui je pense ne résoudrai pas le problème, j'aurai aimé pouvoir entrer dans les conditions de cette mfc que j'ai présenté, une autre condition qui dis couleurcellule = noting de tel manière que la mfc ne se fasse que s'il n'y a pas de précédente mfc,ou quelque chose du genre, cela existe t'il?

De plus pensez vous qu'effectuer un code vba pour faire un collage spéciale de la mfc dans les autres colonnes serai plus rapide que d'effectuer cette mfc sur chaque colonne(procédure qui met énormément de temps), si oui connaitriez vous les instruction à taper pour coller la mfc d'une colonne à une autre?, et dans ce cas ci que dois je modifier dans ma formule pour que la formule s'adapte à la colonne où elle est collée(c'est à dire rapport > entre valeur de la colonne AG qui se changerai en un autre référentielle de colonne automatiquement?, Merci d'avance
Cordialement
17/09/2015, 14h39
parmi

Pour pouvoir copier la MFC, il faudrait voir si les formules, telles qu'écrites, peuvent se copier en fonction des adresses et des "$".
Copier / Collage spécial Format (ou utilisation du pinceau)

Si tu coches la 1ere case, comme je mentionnais, dès que la 1ere MFC est validée, ça s'arrête là.
La 2e ne sera pas vérifiée.
17/09/2015, 14h46
galérienbis

Oui, quand j'avais laissé les $ au départ cela fonctionnait aussi pensez vous donc que je n'ai cas mettre $AG$ à la place de AG dans mon code pour pouvoir ensuite effectuer un collage spécial via vba ?si oui quel est ce code vba ? je ne comprend pas que voulez vous dire pas "cochez" ? je n'ai jamais eu l'occasion de travailler sur des mfc qui pouvais se rencontrer que dois je mettre donc mon code pour cocher ? de plus cette 1er mfc est déjà présente avant que je lance la mienne
Merci
Cordialement
17/09/2015, 15h07
parmi

Si tu utilises l'enregistreur de macro et que tu fais tes MFC manuellement, tu vas voir qu'on peut cocher la case en question et tu devrais avoir un code pas trop pire pour avancer...
Tu ajoutes donc la nouvelle MFC à celle existante, tu la remontes au premier rang et tu coches la case à côté...
17/09/2015, 16h11
galérienbis

je comprends ce que vous voulez dire mais mon projet est destiné à des personnes qui ont un niveau excel débutant(je suis stagiaire j'automatise un tas de trucs qu'ils ne savent pas faire) l'idée c'est qu'ils appuient sur un bouton pour que cela marche , à la base j'ai une macro recherche fichier sur un autre classeur qui après avoir choisi le fichier lance cette macro, donc le faire manuellement n'est pas l'objectif mais je vous remercie sincèrement pour votre aide :)
Cordialement