suppression ligne si contient la date

[julie999]

bonjour
je recherche a faire en vba ceci:
selectionner la feuille recap,rechercher dans la colonne A si une cellule contient la même date que sur la feuille Reception cellule B2 si oui supprimer la ligne complète
puis trier dans l'ordre croissant la feuille par date

merci de votre aide svp
julie


ci joint un petit exemple

 

[Pierrot93]

Re : suppression ligne si contient la date

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Dim x As Range
Set x = Sheets("Recap").Columns(1).Find(Sheets("Reception").Range("B2"), , xlFormulas, xlWhole, , , False)
If Not x Is Nothing Then x.EntireRow.Delete
End Sub

bonne journée
@+

 

[Pierrot93]

Re : suppression ligne si contient la date

Re,

pas vu qu'il y avait plusieurs valeurs à supprimer... avec le tri en prime :

Option Explicit
Sub test()
Dim x As Range
With Sheets("Recap").Columns(1)
    Set x = .Find(Sheets("Reception").Range("B2"), , xlFormulas, xlWhole, , , False)
    If Not x Is Nothing Then
        Do
            Rows(x.Row).Delete
            Set x = .FindNext
        Loop While Not x Is Nothing
    End If
End With
With Sheets("Recap")
    .Range("A4").CurrentRegion.Sort .Range("A4"), xlAscending, Header:=xlYes
End With
End Sub

bonne journée
@+

 

[julie999]

Re : suppression ligne si contient la date

bonjour pierrot93, le fil
je test mais ca ne me supprime qu'une seule ligne et le tri ne se fait pas
en faite il faut supprimer toutes les lignes de la feuille recap qui contienne dans la colonne A de la feuille recap la meme date que la feuille reception en cellule b2
julie

 

[Pierrot93]

Re : suppression ligne si contient la date

Re,

nous nous sommes croisé.... voir post #3...

 

[Pierrot93]

Re : suppression ligne si contient la date

RE,

code modifié :

Option Explicit
Sub test()
Dim x As Range
With Sheets("Recap")
    Set x = .Columns(1).Find(Sheets("Reception").Range("B2"), , xlFormulas, xlWhole, , , False)
    If Not x Is Nothing Then
        Do
            .Rows(x.Row).Delete
            Set x = .Columns(1).FindNext
        Loop While Not x Is Nothing
    End If
    .Range("A4").CurrentRegion.Sort .Range("A4"), xlAscending, Header:=xlYes
End With
End Sub

 

[julie999]

Re : suppression ligne si contient la date

re
ah oui parfait maintenant
good
julie

 

[klin89]

Re : suppression ligne si contient la date

Bonsoir julie999, Pierrot93, le forum 🙂

Une variante :

Sub Supprime()
    With Sheets("Recap")
        With .Range("a5", .Range("a" & Rows.Count).End(xlUp)).Offset(, 7)
            .Formula = "=match(a5,'Reception'!$b$2,0)"
            .AutoFilter 1, "<>#N/A"
            .EntireRow.Delete
        End With
        .Columns("h").Delete
        .Range("A4").CurrentRegion.Sort .Range("A4"), xlAscending, Header:=xlYes
    End With
End Sub

klin89