Code pour supprimer une ligne
Résolu
Paula
-
Paula -
Paula -
Bonjour,
J'essaye de créer une macro dans Excel pour supprimer des lignes avec criteres. Avec le code, il fait le filtre mais il ne supprime pas les lignes. Est-ce que quelqu'un pourrait m`aider?
Private Sub CommandButton2_Click()
Dim CAT As Long
With ActiveSheet
.UsedRange.AutoFilter Field:=18, Criteria1:=Array( _
"Analyse mensuel", "Analyse trimestriel","Supervision", _ Operator:=xlFilterValues
CAT = .Cells(.Rows.Count, 2).End(xlUp).Row
If CAT = 1 Then GoTo P
.Range("A3:A" & CAT).SpecialCells(xlCellTypeVisible). _
EntireRow.Delete
MsgBox "Le rapport est prêt pour l'exportation."
P:
.AutoFilterMode = False
End With
End Sub
J'essaye de créer une macro dans Excel pour supprimer des lignes avec criteres. Avec le code, il fait le filtre mais il ne supprime pas les lignes. Est-ce que quelqu'un pourrait m`aider?
Private Sub CommandButton2_Click()
Dim CAT As Long
With ActiveSheet
.UsedRange.AutoFilter Field:=18, Criteria1:=Array( _
"Analyse mensuel", "Analyse trimestriel","Supervision", _ Operator:=xlFilterValues
CAT = .Cells(.Rows.Count, 2).End(xlUp).Row
If CAT = 1 Then GoTo P
.Range("A3:A" & CAT).SpecialCells(xlCellTypeVisible). _
EntireRow.Delete
MsgBox "Le rapport est prêt pour l'exportation."
P:
.AutoFilterMode = False
End With
End Sub
