Bonjour
J'aimerais parcourir un fichier excel et supprimer les lignes ne commençant pas par le mot que je définis par var1
Voila ce que j'ai fait mais ça supprime tout

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
20
21
22
23
Dim Var As String
On Error Resume Next
var1 = "valeur1"
 
 
nbr_lignes = ActiveSheet.UsedRange.Rows.Count
 
   Set MotTrouvé = Cells.Find(What:="*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
 
For compteur = 1 To nbr_lignes
 
    If Not MotTrouvé = var1 Then
        MotTrouvé.Select
        ActiveCell.EntireRow.Select
        Selection.Delete Shift:=xlUp
        Cells.FindNext(After:=ActiveCell).Activate
    Else
         Cells.FindNext(After:=ActiveCell).Activate
    End If
 
Next compteur
Merci de votre aide

Edit
Bonjour,
Utiliser les balises Code et /code facilite la lecture. Tu sélectionnes ton code et tu cliques sur [ Code ] Et lis les règles du forum, ça te facilitera la recherche de solutions
Balises gentiment ajoutées par moi...