Lire un Morceau de mot dans une cellule
Bonjour,
ATTENTION le "MOTCLE" n'est pas forcement au meme endroit dans les phrases !!!
J'ai donc ca :
For i = 2 to nb_ligne
if cells(i,"B").value <> "*MOTCLE*" then cells(i,1).entirerow.clearcontents
[B:B].SpecialCells(x1cellTypeBlanks.EntireRow.Delete
En gros, comme je ne sais pas comment coller en incrementant j'utilise une autre technique, je nettoie toutes les lignes qui ne contiennent pas mon mot clé dans la colonne B , une fois nettoyées, je supprime les lignes vides, et je peux ensuite recuperer toute les valeurs restantes de mes colonnes B C D E et les copier dans mon autre fichier (ca fait un peu moche mais je pense que ca peut marcher)
Ici, dans mon code, la ligne contenant la fonction "IF" ne fonctionne pas , il n'arrive pas a reperer le "MOTCLE" dans le texte de ma cellule B et me nettoie toutes mes lignes ^^
Merci d'avoir pris le temps de me lire
Bonne soirée !
Bonjour
Joins un fichier et donne un exemple de ce que tu veux obtenir.
Bye !
Le fichier est vraiment trop gros, difficile de joindre un doc
Mais en gros
Je veux recuperer d'une feuille de classeur, les cellules des colonnes B C D E où "MOTCLE" est présent dans la phrase de la cellule B et les coller dans une autre feuille.
C'était pas si dur a expliquer en fait quand je regarde comme ca
Bonsoir,
- Un exemple simple en PJ
- Un exemple de recherche rapide de mot dans une phrase avec 60.000 lignes:
http://boisgontierjacques.free.fr/fichiers/Cellules/PhrasesMotsRechercheMot.xlsm
-Recherche de rue dans des adresses:
http://boisgontierjacques.free.fr/fichiers/Cellules/PhrasesMotsRechercheMotAdresses2.xlsm
Ceuzin
bonjour
une contribution pour les refractaires au VBA avec petit fichier
merci GMB pour le support
cordialement
Bonjour,
un simple filtre avec Contient et un copié-collé ne suffit pas ?
Ca prend 5s.
eric