Bonjour à tous,
Je dispose d'un fichier (cf ci-joint) avec un onglet comprenant une liste de mails, et un autre avec un indicateur qui affiche le nombre de mails non remis (car mauvaise adresse mail ou n'existe plus)
Le principe est qu'à chaque fois qu'une adresse est jugée mauvaise, je la mets en fond rouge et l'indicateur doit automatiquement se mettre à jour pour assurer un suivi efficace
Pour cela, j'utilise une formule matricielle : =SommeCouleurFond(mails!A4:A231;mails!A11)
Code :
Function SommeCouleurFond(champ As Range, Fond As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = Fond.Interior.ColorIndex Then
temp = temp + 1
End If
Next c
SommeCouleurFond = temp
End Function
Cette formule marche très bien, cependant, elle comporte 2 défauts :
1) Le résultat ne s'affiche pas automatiquement, il faut à chaque fois que l'on appuie sur F9 pour l'actualiser
2) Si je suis amené à ajouter des lignes de mails dans mon onglet "mails", la formule ne se met pas à jour et il faut manuellement la modifier pour qu'elle prenne en compte les nouvelles lignes
Je cherche donc un moyen pour résoudre ces problèmes, sachant que pour des raisons pratiques, je souhaite trouver une formule directe sans passer par une colonne intermédiaire
Quelqu'un a t'il une idée ??
Merci d'avance
Nicolas
Je dispose d'un fichier (cf ci-joint) avec un onglet comprenant une liste de mails, et un autre avec un indicateur qui affiche le nombre de mails non remis (car mauvaise adresse mail ou n'existe plus)
Le principe est qu'à chaque fois qu'une adresse est jugée mauvaise, je la mets en fond rouge et l'indicateur doit automatiquement se mettre à jour pour assurer un suivi efficace
Pour cela, j'utilise une formule matricielle : =SommeCouleurFond(mails!A4:A231;mails!A11)
Code :
Function SommeCouleurFond(champ As Range, Fond As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = Fond.Interior.ColorIndex Then
temp = temp + 1
End If
Next c
SommeCouleurFond = temp
End Function
Cette formule marche très bien, cependant, elle comporte 2 défauts :
1) Le résultat ne s'affiche pas automatiquement, il faut à chaque fois que l'on appuie sur F9 pour l'actualiser
2) Si je suis amené à ajouter des lignes de mails dans mon onglet "mails", la formule ne se met pas à jour et il faut manuellement la modifier pour qu'elle prenne en compte les nouvelles lignes
Je cherche donc un moyen pour résoudre ces problèmes, sachant que pour des raisons pratiques, je souhaite trouver une formule directe sans passer par une colonne intermédiaire
Quelqu'un a t'il une idée ??
Merci d'avance
Nicolas
