Bonjour le forum,
dans un fichier excel contenant 10 feuilles, je supprime dans 6 de ces feuilles les lignes (entre 1 et 2050) qui ne comprennent pas le code BE1 en colonne H. Je fais cela dans chaque feuille via un code que j'ai récupéré sur la toile (mes excuses de ne pas me souvenir du nom du site et du nom de l'auteur du code). Ce code est le suivant:J'aimerais transformer ce code pour que automatiquement il passe dans les feuilles 1,2 3 4 5 et 6 du fichier excel et que donc je ne doive le lancer qu'une seule fois plutot que 6 fois.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Sub KillLigne() Dim Valeur As String, Colonne As Integer, FirstLine As Long, LastLine As Long ' Valeur : valeur à comparer au contenu de la cellule ' Colonne : colonne où se trouve la valeur à vérifier ' FirstLine : première ligne à vérifier ' LastLine : dernière ligne à vérifier Dim lngL As Long Application.ScreenUpdating = False Application.DisplayAlerts = False For lngL = 2050 To 1 Step -1 If Cells(lngL, 8).Value <> "BE1" Then Rows(lngL).Delete Shift:=xlShiftUp End If Next lngL Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Pourriez vous m'aider ?
D'avance je vous remercie.
Djepi.
Partager