XL 2016 couleur texte et soustraction

jcpat

XLDnaute Occasionnel
Bonjour,
un truc simple à trouver pour les experts mais pour moi c'est plus dur malgré plusieurs test de formule :-(
voilà j'ai une grille , dedans j'ai des prenoms et je fait le calcul, pour mon exemple cela fait 5.
Je cherche à soustraire une cellule si celle ci passe en rouge du coup cela me ferais 5-1 = 4 .

Est ce possible ?

Merci @ vous les experts
 

Pièces jointes

  • couleurtexte-soustraction.xlsx
    8.5 KB · Affichages: 24
Solution
Bonjour jcpat,

ton fichier en retour. :)

VB:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim chn$, n&
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Address <> "$B$3" Then Exit Sub
    chn = .Value
    If chn = "" Then [B5] = "": Exit Sub
  End With
  n = Application.CountIf([H19:L26], chn)
  If n = 0 Then [B5] = "" Else [B5] = n
End Sub



edit : mon code VBA n'est plus nécessaire : une simple formule Excel suffit ! voir ICI. :)

soan

jcpat

XLDnaute Occasionnel
😂 ah oui tout simplement , c'est moi désolé j'ai donné des infos un peu au compte goute et du coup je t'ai emmené sur les chemins de traverses.
En tout cas belle persévérance Soan ;-) , merci encore pour tout cela .
 

Discussions similaires

Statistiques des forums

Discussions
312 193
Messages
2 086 058
Membres
103 110
dernier inscrit
Privé