Suppression automatique de lignes

Bonjour à tous,

Je souhaite dans mon fichier joint, supprimer les lignes qui ne concernent pas les totaux dans l'onglet "à traiter".

Cela revient à supprimer les lignes 2, 5, 8 à 14, 16 à 31...

Si quelqu'un peut m'indiquer comment créer un programme, je suis preneur.

Je vous remercie par avance.

Bonne journée à vous.

Sébastien

Bonjour Seb0904 le forum

ah bah moi je suis passé à coté, en fait il faut conservé que les lignes comportant un "Total" et moi je cherchais dans les colonnes valeurs !!! bref j'étais pas réveillé sur le coup là!!!

la macro de Dan m'a ouvert les yeux.

a+

Papou

Bonjour

...supprimer les lignes qui ne concernent pas les totaux dans l'onglet "à traiter".

Essayez avec ce code qui supprime toutes les lignes ne contenant pas le mot Total

Sub test()
Application.Calculation = xlCalculationManual
With ActiveSheet
For i = .UsedRange.Rows.Count To 2 Step -1
    On Error Resume Next
    lig = .Range("A" & i).EntireRow.Find("total", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows).Row
    If lig = 0 Then .Rows(i).EntireRow.Delete
    lig = 0
Next i
Application.Calculation = xlCalculationAutomatic
End Sub

Cordialement

Merci Dan,

Je ne sais plus comment on enregistre ce code, j'ai perdu la main, peux-tu me renseigner stp ?

Je te remercie vivement.

Sébastien

Re

Je ne sais plus comment on enregistre ce code, j'ai perdu la main, peux-tu me renseigner stp ?

Pour placer le code

• Clck droite sur l"onglet "a traiter" pour accéder à VBE
• CTRL + R pour voir la fenêtre VBAProject à gauche
• Sélectionner "Microsoft excel Objects"
• Dans la barre de menu, aller dans INSERTION et choisir Module
• Coller le code dans cette fenêtre
• Retourner sur la feuille "A traiter"
• Dessinez y un bouton via Menu / Insertion / Illustration / Formes
• Une fois le bouton dessiné, click droite sur le bouton
• Choisir "Affecter à une macro"
• Sélectionnez la macro dans la fenetre puis OK

Si souci dites moi

Cordialement

Super les explications, j'ai ce message d'erreur.

Merci beaucoup pour ton aide.

Re

Juste....

Mettez END WITH juste en dessous de NEXT i

Crdlt

Excellent, merci.

Va falloir que je me forme à Visual Basic.

Merci.

Sébastien