MFC sur 3 colonnes

bonjour,

je reviens pour une MFC. Maintenant c'est 3 colonnes qui ont + 6 décimales, à partir de la ligne 2485, J K et L

J 63,51056, K 12,7028, L 39,7662, si l'une (ou toutes) de ces 3 colonnes sont supérieures à 2 décimales, colorié la colonne D, de la ligne 2485. J'ai essayé la formule ET ça marche pas.

Merci pour votre aide.

Bonjour,

Toujours sur le même principe que votre fichier en avril :

Sub MFC() ' Ergotamine
Dim I As Byte
For I = 1 To Worksheets.Count
    Worksheets(I).Range("D2").Select
    Worksheets(I).Range("D2:D1000").FormatConditions.Add(xlExpression, _
         , "=OU(J2*100-ENT(J2*100)>0;K2*100-ENT(K2*100)>0;L2*100-ENT(L2*100)>0)").Interior.Color = vbGreen
    Next I
End Sub

Cdlt,

bonjour Ergo,

mais celle ci ne fonctionne pas elle bug ici :

 Worksheets(I).Range("D2").Select

voilà la macro qui fonctionne du mois avril

Sub MFC() ' Mise en forme pour sélectionner les 3 décimales dans feuille transfert en compta Ergotamine
Feuil14.Range("F2").Select
Feuil14.Range("F2:G1000").FormatConditions.Add(xlExpression, _
     , "=ARRONDI(MOD(F2*100;1);6)>0").Interior.Color = vbGreen
End Sub

Bonjour Ergotamine,

Je vais appliquer votre formule directement en MFC, sans passer par VBA.

Merci encore

Re bonjour,

Je reviens vers vous. J'ai créer un fichier avec les bonnes colonnes & lignes. J'ai copié votre macro, sauf que certaines lignes non pas de décimales et la macro s'applique quand même. J'ai crée une macro concernant la colonne H (TVA). Je précise que ces macros ne sont que pour la Feuil1. Ci-joint fichier.

Bonjour,

Au temps pour moi, ma comparaison était erronée, ci-contre une correction qui donne le résultat attendu. Donc vos MEFC des colonnes D et E, sur la base de votre exemple :

=OU(AA2485*100-ENT(AA2485*100)>0,001;AB2485*100-ENT(AB2485*100)>0,001;AC2485*100-ENT(AC2485*100)>0,001)

Cdlt,

impeccable je vous remercie.

cordialement,