suppression de lignes pleines avec excel Vba

[orange sanguine]

bonjour à tous et toutes
je viens de m'inscrire sur ce site qui a l'air très syma,

ma première questio est:

Comment supprimer des lignes identiques dans tout un tableau, lignes qui commencent toujours par une cellule de couleur rouge ou un groupe de mot du genre
"N° de Fiche Sortie"

merci beaucoup

 

[vbacrumble]

Re : suppression de lignes pleines avec excel Vba

Re

Ca devrait être bon là non ?

Sub test2()
Const st As String = "N° DE FICHE DE SORTIE"
Dim c As Range, f As Long
f = Cells.SpecialCells(xlCellTypeLastCell).Row
For Each c In Range("a1:a" & f)
If c Like st Then
c.EntireRow.Delete
End If
Next
End Sub

PS: tu sais que tu peux faire la même chose en utilisant le filtre automatique sans macro.

EDITION: puisque je viens de tester , je les poste tout de même
(macro avec le filtre automatique, action pouvant être faite rapidement sans macro 😉 )

Sub Macro2ae()'préserve l'entête
Dim pf As Range, pfs As Range
Application.ScreenUpdating = False
With ActiveSheet
    [A1].AutoFilter 1, "=*N° DE FICHE DE SORTIE*"
    Set pf = Range("_FilterDataBase")
    Set pfs = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
    pfs.SpecialCells(8).Delete shift:=xlUp
    .AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub

Sub Macro2se()'supprime l'entête
Dim pf As Range, pfs As Range
Application.ScreenUpdating = False
With ActiveSheet
    [A1].AutoFilter 1, "=*N° DE FICHE DE SORTIE*"
    Set pf = Range("_FilterDataBase")
    Set pfs = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
    pfs.SpecialCells(8).Delete shift:=xlUp
    .AutoFilterMode = False
    .Rows("1:1").Delete
End With
Application.ScreenUpdating = True
End Sub

 

[orange sanguine]

Re : suppression de lignes pleines avec excel Vba

vbacrumble


Merci beaucoup tu est un crac ça marche super

je te souhaite une bonne nuit et encore merci

à +😀