Countifs avec exclusion

Résolu/Fermé
ced0802 Messages postés 2 Date d'inscription dimanche 24 juin 2012 Statut Membre Dernière intervention 25 novembre 2015 - Modifié par jordane45 le 25/11/2015 à 13:38
ced0802 Messages postés 2 Date d'inscription dimanche 24 juin 2012 Statut Membre Dernière intervention 25 novembre 2015 - 25 nov. 2015 à 15:55
Bonjour a tous,

J'aurais besoin d aide concernant cette macro :

 Sub MasterB()

 For x = 9 To 16

 myMaster = Cells(x, 5)
 Mypartial = [A4]
 Mypart = [A5]
 Myqc = [A114]
 Mystockr = [A115]

 Dim wkb As Workbook
 Set wkb = Workbooks("Stocks")

 Rem NB.SI.ENS
 Stock = Application.WorksheetFunction.CountIfs(wkb.Worksheets("wms_browse").Range("D22056"), myMaster, _
 wkb.Worksheets("wms_browse").Range("N2:N2056"), "=" & Mypartial, wkb.Worksheets("wms_browse").Range("H2:H2056"), Myqc, wkb.Worksheets("wms_browse").Range("A2:A2056"), "<>mystockr") & "N-" _
 & Application.WorksheetFunction.CountIfs(wkb.Worksheets("wms_browse").Range("D22056"), myMaster, _
 wkb.Worksheets("wms_browse").Range("N2:N2056"), "=" & Mypart, wkb.Worksheets("wms_browse").Range("H2:H2056"), Myqc, wkb.Worksheets("wms_browse").Range("A2:A2056"), "<>Mystockr") & "Y"


 Cells(x, 9) = Stock

 Next

 End Sub


Je souhaite qu il compte seulement si dans la colonne A de mon fichier stock la valeur est differente de ZE8.
Pour exclure ZE8 Dans ma colonne A :
 wkb.Worksheets("wms_browse").Range("A2:A2056"), "<>mystockr") 
 ou mystockr = ZE8 


Je n ai pas de message d erreur mais il ne m exclue pas ZE8 lorsqu'il compte.
Je ne comprends pas pourquoi.

En vous remerciant pour votre aide.


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 25/11/2015 à 14:38
Bonjour,
Vous ecrivez ceci:
wkb.Worksheets("wms_browse").Range("N2:N2056"), "=" & Mypartial


et pourquoi cela:
wkb.Worksheets("wms_browse").Range("A2:A2056"), "<>Mystockr") & "Y"


alors que c'est comme ceci:
wkb.Worksheets("wms_browse").Range("A2:A2056"), "<>" Mystockr) & "Y"
0
ced0802 Messages postés 2 Date d'inscription dimanche 24 juin 2012 Statut Membre Dernière intervention 25 novembre 2015
25 nov. 2015 à 15:55
Merci bcp a vous pour votre message !!
0