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
A voir également:
- Code pour supprimer une ligne
- Supprimer rond bleu whatsapp - Guide
- Code ascii - Guide
- Supprimer une page word - Guide
- Partager photos en ligne - Guide
- Code puk bloqué - Guide