Rapport de message :*
 

Re: Supprimer une chaîne de caractères sous conditions

Titre du sujet : Re: Supprimer une chaîne de caractères sous conditions
par Eric le 16/04/2015 21:27:09

Bonsoir à toutes et tous

Bonsoir MLA

 

Peut-être comme ceci, si j'ai bien compris wink :

Option Explicit

Sub supp_fax()
Dim derlign As Integer  ' ou long
Dim i As Integer    ' ou long

' on suppose que "Fax:" est dans la colonne "A"
derlign = Range("A65536").End(xlUp).Row

For i = derlign To 1 Step -1
    If Range("A" & i) = "Fax:" Then Rows(i & ":" & i).Delete
Next i

End Sub

Dis nous

Eric