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

[randy75]

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.

 

[Paf]

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:

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

 

[randy75]

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

Merci pour ton aide Paf.

Cela fonctionne correctement !!