Macro pour supprimer lignes selon texte en colonne C

[WITER]

Bonjour à tous , je cherche ubne macro pour supprimer dans ma feuille toutes les lignes qui ont dans la colonne B un nombre qui commence par 6***** ou par 7*****

Voici en piece jointe le fichier exemple
en feuille1 avant la macro
et en feuille2 apres la macro



merci d avance pour votre aide

 

[Staple1600]

Re : Macro pour supprimer lignes selon texte en colonne C

Bonjour


J'abdique le Like

Ca ne fonctionne que partiellement
(Il faut répéter la macro plusieurs fois)

Si j'avais à résoudre ce problème de 6 et 7
personnellement je choisirais celle de Philippe

Sub test3()
derlig = Range("C65536").End(xlUp).Row
For lig = 1 To derlig
a = Range("C" & lig).Value
If IsNumeric(a) Then a = Left((Trim(Str(a))), 1) Else a = Left(Trim(a), 1)
If a = "6" Or a = "7" Then
Range("C" & lig).EntireRow.Delete
End If
Next
End Sub

ou celle de pierrejean

 

[pierrejean]

Re : Macro pour supprimer lignes selon texte en colonne C

bonjour a tous

une autre version

Sub test()
With Sheets("Feuil1")
For n = .Range("C65536").End(xlUp).Row To 2 Step -1
x = CStr(.Range("C" & n))
If Left(x, 1) = "7" Or Left(x, 1) = "6" Then .Rows(n).Delete
Next n
For n = .Range("C65536").End(xlUp).Row To 2 Step -1
Range("C" & n) = Val(.Range("C" & n))
Next n
End With
End Sub