Macro pour supprimer des lignes

bonjour a tous,

Pouvez-vous me dire comment je peux intégrer dans ma macro que je veux supprimer toutes les lignes en dessous de "Customer #" mais aussi les lignes ou dans la colonne A il y a "Customer #" ?

Merci pour votre aide!!!

Bonjour,

Faudrait la voir, et le fichier avec !

MFerrand a écrit :

Bonjour,

Faudrait la voir, et le fichier avec !

Oui c'est vrai qu'avc in fichier c'est mieux

voilà et merci pour ton aide

Fichier dépourvu de macro.

MFerrand a écrit :

Fichier dépourvu de macro.

oui c'est parce que la macro que j'ai faite me donne ce résultat la avec un fichier brut mais a la fin du fichier je dois supprimer toutes les lignes "Customer #" y compris les lignes en dessous.

j'ai juste besoin de savoir comment faire ?

j'ai voulu essayé ca mais ca ne fonctionne pas

For lignes = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1

If Rows(lignes).Find("Customer #") Is equal Then Range(Selection, Selection.End(xlDown)).Select

Selection.SpecialCells(xlCellTypeVisible).Select

Selection.Delete Shift:=xlUp

je dois supprimer toutes les lignes "Customer #" y compris les lignes en dessous.

C'est à dire : tu ne gardes que les lignes 1 à 9 ?

MFerrand a écrit :

je dois supprimer toutes les lignes "Customer #" y compris les lignes en dessous.

C'est à dire : tu ne gardes que les lignes 1 à 9 ?

oui exatement mais il peut y avoir 9 lignes comme il peut y en avoir 10000lignes que je dois garder mais la derniere ligne que je dois supprimer sera toujours "Customer #" et les lignes qui suivent

Je ne suis pas sûr d'interpréter correctement ta réponse :

Sub SupprimerToutAprèsCustomerDièse()
    Dim n&
    With ActiveSheet.UsedRange
        For n = 1 To .Rows.Count
            If .Cells(n, 1).Value Like "*Customer [#]*" Then Exit For
        Next n
        .Offset(n - 1).Clear
    End With
End Sub

On supprime tout après le premier "Customer #" trouvé (et y compris ce "Customer #") !

MFerrand a écrit :

Je ne suis pas sûr d'interpréter correctement ta réponse :

Sub SupprimerToutAprèsCustomerDièse()
    Dim n&
    With ActiveSheet.UsedRange
        For n = 1 To .Rows.Count
            If .Cells(n, 1).Value Like "*Customer [#]*" Then Exit For
        Next n
        .Offset(n - 1).Clear
    End With
End Sub

On supprime tout après le premier "Customer #" trouvé (et y compris ce "Customer #") !

ahh c'est parfait comme ca !!

super bon boulot merci beaucoup