Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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

  • book.xlsm
    19.3 KB · Affichages: 50
  • book.xlsm
    19.3 KB · Affichages: 34

Paf

XLDnaute Barbatruc
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:

Discussions similaires

Réponses
23
Affichages
781
Réponses
19
Affichages
752
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…