Discussion :

[chipster62]

bonjour

j'ai le code suivant :

Code :

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

1
2
3
4
5
'Supprimer ligne inutile
Ligne = Range("A1048576").End(xlUp).Row
For i = Ligne To 2 Step -1
If Cells(i, 3) = "F" Then Rows(i).EntireRow.Delete Else
Next i

je voudrais que la macro puisse regarder le 1er caractere de la 3ème colonne, et si c'est un "F" (F12, Fligament, F98123, ...) il faut supprimer la ligne, sinon rien

Comment puis-je faire ?

Merci bien

[BENNASR]

bonjour
essayer avec LEFT

Code :

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

1
2
 
If Left(Cells(I, 3), 1) = "A" Then Rows(I).Delete

[chipster62]

C'est résolu

merci de la rapidité.

[MarcelG]

Salut,

Processus plus "fun" car d'un seul bloc (sans balayage).
En utilisant le Joker *

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
Option Explicit
 
Public Sub Remplace()
 
Dim dernl As Long
 
Application.ScreenUpdating = False
 
With Worksheets("Feuil1")
    dernl = .Cells(.Rows.Count, 1).End(xlUp).Row
    With .Range("A1:A" & dernl)
            .Replace What:="A*", Replacement:=""
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End With
 
End Sub