XL 2016 couleur texte et soustraction

jcpat · 8 Mai 2021

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

soan · 9 Mai 2021

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 · 9 Mai 2021

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 .

XL 2016 couleur texte et soustraction

jcpat

XLDnaute Occasionnel

Pièces jointes

soan

jcpat

XLDnaute Occasionnel

Discussions similaires