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 : 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
|
Forums