bonjour,
j'ai un probleme avec la fonction SpecialCells(xlCellTypeVisible).
Suite a un filtre elabore, je copie le resultat du filtre dans une autre feuille.
Mais lorsqu'il n'y a pas de resultats pour les criteres demandes, la macro plante (erreur 1004).
Apres d'autres recherches, j'en suis arrive a la conclusion que c'est le specialCells(xlCellTypeVisible) qui genere l'erreur. Meme en tentant des tests genre if range("").SpecialCells(xlCellTypeVisible) is nothing, je n'ai pas de resultats (en fait, le resultat du if/then est le meme qu'il y ait ou non des cellules visibles).
Donc est-ce que quelqu'un aurait la bonte de me dire comment tester ce cas, ou me dire si c'est impossible (et je devrais trouver une autre solution, mais je ne vois pas laquelle T_T)
merci pour votre aide m(_ _)m
j'ai un probleme avec la fonction SpecialCells(xlCellTypeVisible).
Suite a un filtre elabore, je copie le resultat du filtre dans une autre feuille.
Mais lorsqu'il n'y a pas de resultats pour les criteres demandes, la macro plante (erreur 1004).
Apres d'autres recherches, j'en suis arrive a la conclusion que c'est le specialCells(xlCellTypeVisible) qui genere l'erreur. Meme en tentant des tests genre if range("").SpecialCells(xlCellTypeVisible) is nothing, je n'ai pas de resultats (en fait, le resultat du if/then est le meme qu'il y ait ou non des cellules visibles).
Donc est-ce que quelqu'un aurait la bonte de me dire comment tester ce cas, ou me dire si c'est impossible (et je devrais trouver une autre solution, mais je ne vois pas laquelle T_T)
Code:
'Kopikol imp
retsu = WorksheetFunction.CountA(Columns("B"))
crit = WorksheetFunction.CountA(Sheets("フィルター").Rows("1"))
For m = 1 To crit
insatsuh = WorksheetFunction.CountA(Sheets("印刷").Columns("C")) + 1
insatsum = WorksheetFunction.CountA(Sheets("印刷").Columns("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("フィルター").Columns(ran))
Range("A:B").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("フィルター").Range(ran & "1:" & ran & critnb), Unique:=False
Range("A1:B" & retsu).SpecialCells(xlCellTypeVisible).Copy
Sheets("印刷").Range(hashira & insatsu).PasteSpecial Paste:=xlPasteValues
Range("A1:B" & retsu).SpecialCells(xlCellTypeVisible).ClearContents
ActiveSheet.ShowAllData
Next m
With Sheets("印刷")
.Activate
.PrintPreview
End With
merci pour votre aide m(_ _)m
Dernière édition: