Bonjour a tous,

J'aurais besoin d aide concernant cette macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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("D2:D2056"), 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("D2:D2056"), 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 mystock = 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.