développement visual basic excel 2007

salim bel hassen

XLDnaute Nouveau
bonjour ,

je travaille dans un centre d'appel et ont travaille avec des fiches Excel { nom, adresse , code postal , et téléphone}
et je veut vous signaler qui ont travaille pas sur les numéros Professional ( maire, restaurant , hôtel , magasin... etc)

NOTE : j'ais fait un filtre automatique par développement Visual basic de l'excel mais il n'a pas fait le trie de touts les numéros !
SVP , prière de m'aider à vérifier le script de filtre



Private Sub CommandButton6_Click()
Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*med*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*abd*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*ben *", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=salah", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=bilel", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=omar", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=fatma", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=nagiba", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=SALIM", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=SLIM", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Faouzi", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=cabinet", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=.", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=mairie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=(", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=ecole", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=action", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=cabine", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=société", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=entreprise", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=adhérent", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=service", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=club", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=agence", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=agent", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=agenés", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=ambulance", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=armée", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=assistance", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=boutique", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=association", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=atelier", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=auberge", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=auto", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=banque", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=boulangerie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=camping", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=centre", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=chambre", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=chateau", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=clinique", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=coiffure", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=collége", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=comité", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=GAEC", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=restaurant", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=communauté", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=compagnie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=comptoir", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=concept", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=concessionnaire", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=département", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=conseil", _
Operator:=xlAnd
Rows.Delete
ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=conservatoire", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=coropérative", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=crédit", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=direction", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=distribteur", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=domaine", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=EARL", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=electric", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=espace", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=etablissement", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=foyer", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=syndicat", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*{*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=allo", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=taxi", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*1*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*0*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*2*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*3*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*4*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*5*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*6*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*7*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*8*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*9*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=école", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=avocats", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=mairie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=lyceé", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=monprix", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=carrefour", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=champion", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=cabine", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=police", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=gendarmerie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=telecom", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=orange", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=ambulance", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=urgence", _
Operator:=xlAnd
Rows.Delete


ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Hôpital", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=*Théâtre*", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Cinéma", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Mairie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Avocat", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Hôtel", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=école", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Universit", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Maison de retraite", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=catholique", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=hopital", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=pompier", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=medecin", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=hopital", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=electricien", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=avocat", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=ortho lionst", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=bibliothéque", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=particulier", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=poste", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=féderation", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=compte", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=express", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=conexion", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=CNP", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=SDF", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=construction", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=CMC", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=Meubles", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=transport", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=bijoutrie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=optique", _
Operator:=xlAnd
Rows.Delete


ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=boucherie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=citroen", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=pharmacie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=la pataterie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=labortoire", _
Operator:=xlAnd
Rows.Delete


ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=la scala", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=avenir", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=SCP", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=camiss", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=escapades", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=temsol", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=le sorbier", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=SNC.v", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=passage", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=patisserie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=tannerie", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=moulin", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=comité", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=décoration", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=etains", _
Operator:=xlAnd
Rows.Delete

ActiveSheet.Range("$A$1:$E$714").AutoFilter Field:=1, Criteria1:="=thectre", _
Operator:=xlAnd
Rows.Delete


End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 848
Messages
2 092 783
Membres
105 533
dernier inscrit
TAF