supprimer ligne ne contenant pas @, colonne B 5200 lignes.

jonjoneh

XLDnaute Nouveau
bonjour,

je voudrais supprimer d'un listing de mail faussé toutes le lignes de contenant pas "@". Mon listing est sur la colonne B. Et j'ai plus de 5200 lignes.

merci
 

R@chid

XLDnaute Barbatruc
Re : supprimer ligne ne contenant pas @, colonne B 5200 lignes.

Salut,
sans fichier joint pas facile de te repondre exactement.
alors @ tout Hasard :
Code:
=SI(ESTERREUR(INDEX($B$2:$B$5200;PETITE.VALEUR(SI(NON(ESTERREUR(CHERCHE("@";$B$2:$B$5200)));LIGNE(INDIRECT("1:"&LIGNES($B$2:$B$5200))));LIGNES($1:1))));"";INDEX($B$2:$B$5200;PETITE.VALEUR(SI(NON(ESTERREUR(CHERCHE("@";$B$2:$B$5200)));LIGNE(INDIRECT("1:"&LIGNES($B$2:$B$5200))));LIGNES($1:1))))
@ valider par Ctrl+Maj+Entree
@ tirer vers le bas
va recopier juste les lignes contenant "@" tu peux l'adapter pour la mettre dans un autre Onglet.
Amicalement
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : supprimer ligne ne contenant pas @, colonne B 5200 lignes.

Bonjour jonjoneh

voir fichier joint
il est nécessaire d'activer les macros

à+
Philippe
 

Pièces jointes

  • 111.xls
    46 KB · Affichages: 75
  • 111.xls
    46 KB · Affichages: 86
  • 111.xls
    46 KB · Affichages: 85

Softmama

XLDnaute Accro
Re : supprimer ligne ne contenant pas @, colonne B 5200 lignes.

Bonjour,

je t'ai répondu sur l'autre fil... :


(A tester). Cette macro devrait faire l'affaire.
Code VBA:
VB:
Sub test()
With Range("IV:IV")
  .FormulaR1C1 = "=FIND(""@"",RC2)"
  .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
  .Clear
End With
End Sub
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 668
Messages
2 090 739
Membres
104 643
dernier inscrit
adriano22