Supprimer ligne contenant du texte

Bonjour,

Ma demande va paraître basique, mais je n'arrive pas à adapter une macro trouver sur le forum.

Je souhaite supprimer toute les lignes contant du texte en colonne A

Sub SupLign()

Dim i As Long

For i = Range("a65536").End(xlUp).Row To 1 Step -1

If Not UCase(Cells(i, 1).Value) Like UCase(" ") Then Rows(i).Delete

Next i

End Sub

tel quel la macro supprime les ligne commençant par un espace

je joint un fichier

Merci d'avance

27test.xlsx (28.33 Ko)

j'ai trouvé ma réponse dans un autre fil

pour info

sub sup_ligne_txt()

Dim i As Integer, dlg As Integer

dlg = ActiveSheet.Range("A65536").End(xlUp).Row

For i = 1 To dlg

'For Each cel In Range("A1:A" & dlg)

If Not IsNumeric(Range("A" & i)) Then

Rows(i).Delete

i = i - 1

End If

End Sub

Bonjour,

Parfait !

Pense à marquer ton sujet comme clôturé