Ne pas compter les cellules barrées mais avec des critères en plus

  • Initiateur de la discussion Initiateur de la discussion randy75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

randy75

XLDnaute Nouveau
Bonjour à tous,

Je voudrais compter le nombre d'entreprise mais seulement ceux qui ne sont pas barré.
Actuellement, j'utilise un macro qui permet de comptabiliser le nombre d'entreprise en utilisant plusieurs critères dans ma boucle "IF".
Cependant, j'arrive pas à ajouter une condition dans ma condition "IF" qui permettrait de ne pas comptabiliser les entreprises barrées.

En allant sur les forums, j'ai trouvé un code vba qui permet de ne pas compter les cellules barrées mais je n'arrive pas à l'adapter à mon cas.

Lorsque je le fais avec le critère que j'ai repris dans le code vba que j'ai trouvé sur internet, cela m'affiche "#VALEUR!".

Mais quand je l'utilise sans ce critère, mon code vba fonctionne correctement mais le résultat est faux car je n'ai pas pu retirer les cellules barrées.

En gros, je veux savoir le nombre d'entreprise avec comme critères : Davis, France et Non.
Au final, je trouve bien un résultat mais je n'arrive pas à retirer les entreprises barrées.

Tout est sur le fichier excel.

Merci d'avance.
 

Pièces jointes

Re : Ne pas compter les cellules barrées mais avec des critères en plus

Bonjour et bienvenue sur XLD


une solution possible:

dans la cellule voulue : =Nb_barre_2(A2:G20;"Davis";"France";"Non")

dans le module standard:
Code:
Function Nb_barre_2(plage As Range, Critere1, Critere2, Critere3)
 Dim Ligne As Range, T1 As Boolean, T2 As Boolean, T3 As Boolean, T4 As Boolean
 For Each Ligne In plage.Rows
    T1 = Ligne.Cells(1, 1) = Critere1
    T2 = Ligne.Cells(1, 6) = Critere2
    T3 = Ligne.Cells(1, 7) = Critere3
    T4 = Ligne.Cells(1, 3).Font.Strikethrough = False
    
    If T1 And T2 And T3 And T4 Then Nb_barre_2 = Nb_barre_2 + 1
 Next
End Function

A+

Edit: inversion du test sur barré Ligne.Cells(1, 3).Font.Strikethrough
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
899
Réponses
14
Affichages
247
Retour