{Résolu} Bug sur la fonction ActiveWindow.FreezePanes dans mes macros

Sub kategory()
Dim i As Integer, retsu As Integer, ktg As Integer, ue As Integer, shita As Integer
Dim kategori As String
'Activ Cache
Application.ScreenUpdating = False
'Nettoyage
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Hyperlinks.Delete
Columns("A:F").Select
Selection.UnMerge
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Columns("D:F").Select
Selection.Delete
'Depl&Sup Lignes
retsu = WorksheetFunction.CountA(Columns("C:C"))
For i = 1 To retsu
ktg = i + 3
Range("B" & ktg).Select
Selection.Cut Destination:=Range("A" & i)
kategori = Range("A" & i).Value
Range("A" & i).Select
ActiveCell.FormulaR1C1 = Right(kategori, Len(kategori) - 8)
ue = i + 1
shita = i + 4
Rows(ue & ":" & shita).Select
Selection.Delete Shift:=xlUp
Next i
'Purif ￥
Columns("C:C").Select
Selection.Replace What:=" 円", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
'Redim/Filtres/Volets
Columns("A:B").ColumnWidth = 100
Columns("A:C").EntireColumn.AutoFit
Rows("1:" & retsu).RowHeight = 20
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Value = "カテゴリ"
Range("B1").Value = "商品名"
Range("C1").Value = "価格"
Columns("A:C").Select
Selection.AutoFilter
Range("A2").Select
ActiveWindow.FreezePanes = True
'Annul Cache
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...