Bonjour,
Dans une macro, je trie une liste d'article (des vetements) selon des criteres pre-defini, puis copie le resultat dans une autre feuille.
Mais selon les semaines, il se trouve que certains criteres ne sont pas presents (ex: pas de cravattes).
Bilan : 1004 error.
J'ai cherche sur le net et le forum (selection vide test vba), mais je n'ai pas trouver mon bonheur. Je reviens donc vous demander votre aide.
Ci-dessous la partie du code incriminee (la ligne qui bloque est indique d'un *) :
Merci pour vos reponses m(_ _)m
Dans une macro, je trie une liste d'article (des vetements) selon des criteres pre-defini, puis copie le resultat dans une autre feuille.
Mais selon les semaines, il se trouve que certains criteres ne sont pas presents (ex: pas de cravattes).
Bilan : 1004 error.
J'ai cherche sur le net et le forum (selection vide test vba), mais je n'ai pas trouver mon bonheur. Je reviens donc vous demander votre aide.
Ci-dessous la partie du code incriminee (la ligne qui bloque est indique d'un *) :
Code:
'declarations
Dim i, k, l, t, tana, retsu, iro, bangou, shouhin, insatsu, insatsuh, insatsum, crit, critnb As Long
Dim shouhinmei, hinbanmei, hinmei, hashira, ran As String
(...)
'Kopikol imp
retsu = WorksheetFunction.CountA(Columns("B:B"))
crit = WorksheetFunction.CountA(Sheets("filtres").Range("1:1"))
For m = 1 To crit
insatsuh = WorksheetFunction.CountA(Sheets("impression").Range("C:C")) + 1
insatsum = WorksheetFunction.CountA(Sheets("impression").Range("I:I")) + 1
If insatsuh > insatsum Then
hashira = "I"
insatsu = insatsum
Else
hashira = "C"
insatsu = insatsuh
End If
ran = Chr(m + 64)
critnb = WorksheetFunction.CountA(Sheets("フィルター").Range(ran & ":" & ran))
Range("A:B").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("フィルター").Range(ran & "1:" & ran & critnb), Unique:=False
Range("1:1").EntireRow.Hidden = True
Range("A1:B" & retsu).Select
* Selection.SpecialCells(xlCellTypeVisible).Copy
Sheets("impression").Range(hashira & insatsu).PasteSpecial Paste:=xlPasteValues
Selection.SpecialCells(xlCellTypeVisible).ClearContents
ActiveSheet.ShowAllData
Next m
With Sheets("impression")
.Activate
.PrintPreview
End With
(...)
Merci pour vos reponses m(_ _)m