Supprimer une chaîne de caractères sous conditions | ||
---|---|---|
Inscription: 16/04/2015
De Paris
Messages:
1
Système d'exploitation: PC Version Excel utilisée: 2010 |
Posté le : 16-04-2015 11h46
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. |
|
|
Re: Supprimer une chaîne de caractères sous conditions | ||
---|---|---|
Inscription: 12/06/2008
De Ile de France Sud
Messages:
145
Système d'exploitation: PC Version Excel utilisée: 2003 _ 2010 |
Posté le : 16-04-2015 21h27
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
|
|
|