Discussion :

[Vadorblanc]

Bonjour,
J'exécute et j'enregistre des macro avec l'éditeur de macro, ensuite je lance ma première macro mais je suis obligé de supprimer des lignes manuellement du fichier pour lancer ma deuxième macro car j'ai une variable de lignes selon les fichiers, je souhaiterais automatiser cette partie manuelle, pourriez vous m'aider ? je recherche le code qui supprimerait toutes les lignes en dessous du dernier mot "Opérationnel" de la colonne AD de la Sheets(1) sachant que la colonne AD est déjà trier par noms et qu'elle contient un certain nombre de mots "Opérationnel".
Un grand Merci pour l'aide si vous le voulez bien.

[mercatog]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SupprFin()
Dim LastLig As Long
Dim c As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")  'à adapter
   LastLig = .Cells(Rows.Count, "AD").End(xlUp).Row
   Set c = .Range("AD1:AD" & LastLig).Find("Opérationnel", LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious)
      If Not c Is Nothing Then
         If c.Row < LastLig Then .Rows(c.Row + 1 & ":" & LastLig).EntireRow.Delete
      End If
   Set c = Nothing
End With
End Sub

[Vadorblanc]

Génial, ça a marché du premier coup, encore une fois Mercatog merci pour ses quelques lignes de codes qui me comblent de bonheur et dont je vais pouvoir adapter à d'autres fichiers.
MERCI