Suppression lignes

MrSaladin à dit:

Bonjour,

J'ai un fichier excel dans lequel j'ai des lignes commençant toujours par le même caractère (#), je souhaite trouver une formule me permettant de supprimer entièrement la ligne commençant par ce caractère....
Avez-vous une idée ?

merci d'avance
MrSaladin

Cliquez pour agrandir...

Sub Test()
Dim X as long
 
For X=range("A65536").end(xlup).row to 1 step -1
if left(range("A" & x),1)="#" then rows(x).delete
next X
end sub

bqtr à dit:

Bonjour MrSaladin, le forum

Essaye avec ce code à mettre dans un module standard.
Un exemple avec les données dans la colonne A, elle supprime entièrement la ligne.

Code:

Sub SupLigne()
 
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Left(Cells(i, 1), 1) = "#" Then Rows(i).Delete
Next
 
End Sub

Bonne journée

Edit : bonjour Gorfael pas rafraichi !

Cliquez pour agrandir...