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. |