Ne pas appliquer la MFC aux cellules vides

Question

J'ai fait une MFC qui colore deux cellules lorsque celles ci sont égales (par exemple si A1=B1, la MFC colore les deux cellules). Ce que je voudrais, c'est que quand les deux cellules sont vides, la MFC ne s'applique pas, donc que les cellules ne se colorent pas. Comme excel considère que deux cellules vides sont égales, elles se colorent. Comment faire pour que ce ne soit pas le cas? Autre question, je ne suis pas sur que ce soit possible mais je tente ma chance. Je voudrais que lorsque la valeur d'une cellule est supérieure, inférieure ou égale à une autre, un 1 s'affiche dans une autre cellule. Par exemple : si A1&gt;B1 un 1 s'affiche en C1 si A1=B1 un 1 s'affiche en D1 si A1&lt;B1 un 1 s'affiche en E1 et je voudrais si possible que les 1 s'additionnent. Par exemple: si A2&gt;B2 un 1 s'ajoute à celui de C1, donc que cela donne 2. si A2=B2 un 1 s'ajoute à celui de D1, donc que cela donne 2. si A2&lt;B2 un 1 s'ajoute à celui de E1, donc que cela donne 2. Et ainsi de suite, toujours de 1 en 1. Merci pour votre aide...

78chris · Answer

Pour la MFC, mettre une formule : =ET($A1&lt;&gt;"";$A1=$B1) appliquée à ta plage A x :B x Pour les valeurs, c'est du dénombrement C1 =SOMMEPROD(($A$1:$A$20&gt;$B$1:$B$20)*($A$1:$A$20&lt;&gt;"")) D1 =SOMMEPROD(($A$1:$A$20=$B$1:$B$20)*($A$1:$A$20&lt;&gt;"")) E1 =SOMMEPROD(($A$1:$A$20&lt;$B$1:$B$20)*($A$1:$A$20&lt;&gt;"")) j'ai pris de A1 à A20 ; à toi d'ajuster à ton cas.....

James007 · Answer

Comme d'habitude ... avec un petit fichier joint ... tout s'éclaire .....

James007 · Answer

La question que tu poses m'a l'air d'ètre bien éloignée du titre du sujet ... Ci-joint une UDF à tester ... En espèrant que cela t'aide .....

James007 · Answer

Le principe d'une fonction personnalisée ... c'est que tu as besoin d'avoir cette fonction dans ton fichier ... Function CasFig(rng As Range, x As Long) Dim i As Long, j As Long, tot As Long i = rng.Cells(1, 1).Row For j = rng.Cells(1, 1).Column To rng.Cells(1, rng.Count - 1).Column Step 2 If Cells(i, j) &lt;&gt; "" Then Select Case x Case 1 If Cells(i, j) &gt; Cells(i, j + 1) = True Then tot = tot + 1 Case 2 If Cells(i, j) = Cells(i, j + 1) = True Then tot = tot + 1 Case 3 If Cells(i, j) &lt; Cells(i, j + 1) = True Then tot = tot + 1 End Select End If Next j If tot &gt; 0 Then CasFig = tot Else CasFig = "" End Function En espèrant que l'explication soit assez claire ... Edit : Pour la matricielle ... qui va bien ... il faut que Tulipe intervienne .....

James007 · Answer

Content que tu aies pu trouvé où il faut placer les macros ... Dès que j'ai un moment ... j'essayerai de comprendre ... ta nouvelle question .....

tulipe_4 · Answer

Peiniblement ;et pas sur sur avec les matricielles tridactyles cordialement...

James007 · Answer

Comme Tulipe ... pas sûr ... pas sûr ... Ci-joint la version 2 ... pour les Deltas en Colonne Q et R ... A tester ... et à retester ... pour savoir si les décomptes des couples fonctionnent comme tu le désires ... Au fait, Ruben, ... sans indiscrétion, à quoi peuvent servir ces décomptes assez alambiqués ......

James007 · Answer

Désolé ... mais pour moi ... ta nouvelle explication est encore moins claire que la précédente ... Pourquoi ne pas joindre un fichier Excel explicatif et démonstratif ...et y décortiquer précisément une à une toutes tes étapes ............. pour tenter d'y voir une logique .....

James007 · Answer

Merci pour ton exemple illustré ... Si la vérification des cas est assez claire ... il y a une règle qui vraiment m'échappe ... ae&gt;af ... chaque fois qu'un cas est vérifié ... le résultat est afffecté à la ligne où se trouve le couple ... MAIS ae&lt;af .... chaque fois qu'un cas est vérifié ... le résultat est afffecté à la ligne 2 et uniquement à la ligne 2 ... Why ...??...