bonjour à tous,

je suis bloquée malgré une recherche de plusieurs heures sur le site... Pas encore très douée.

Dans une cellule Excel, j'ai une série de données (du texte), rangées sur plusieurs lignes. Les lignes commencent toujours par le même texte, par ex j'ai "Fax:xxxx", "Office:yyyyyyyyy", etc

Mon problème est le suivant : je voudrais enlever la ligne qui correspond à "Fax:" mais seulement s'il n'y a pas de n° de fax derrière ! Donc Enlever "Fax:" mais pas "Fax:+331etc". De plus, je voudrais qu'elle s'enlève complètement, sans créer une ligne vide.

Merci pour votre aide, ça doit être simple mais je n'y arrive vraiment pas.

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