Discussion :

[mickisa]

j'aimerais faire une recherche unqiquement sur les trois premiéres lettre de ma cellule.
si vous avez une idée

Code :

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

1
2
3
4
5
6
    derlig = [A65000].End(xlUp).Row
    For i = 1 To derlig Step 1
    If Range("B" & i) <> "Tra" Then
    Rows(i).Delete
    End If
    Next i

merci

[dodo69]

Bonjour Mickisa

tu peux utilisé l'instruction left

Code :

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

1
2
3
 
 
premiere_lettre=application.left(plage,3)

[mercatog]

Pour les suppressions de lignes commencer du fin et remonter

Code :

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

1
2
3
4
5
6
7
8
9
Dim DerLig As Long, i As Long
 
Application.ScreenUpdating = False
With Sheets("Feuil1") 'à adapter
   DerLig = .Cells(.Rows.Count, "B").End(xlUp).Row
   For i = DerLig To 1 Step -1
      If Not UCase(.Range("B" & i).Value) Like "TRA*" Then .Rows(i).Delete
   Next i
End With