Macro avec fonction recherche

[Sylvain]

Bonjour le forum !!!!

Ca faisait un certain temps que je suis pas revenu sur le site, et quelle surprise, un forum tout beau tout neuf 😱hmy:

Mon p'ti probleme est le suivant :

J'aimerai pouvoir (a l'aide d'une macro) supprimer des cellules dont le contenu comporte le mot 'test' (par exemple), mais dans cette meme cellule la valeur peut etre 'test de la phase 1' dans ce cas il faut également supprimer la ligne.

generalement j'utilise le code :

...
For Each c In Range('a2:a10000')
If ActiveCell.Value = 'test' Then
...

Mais la, cela ne fonctinne pas, car la valeur n'est pas forcement égale a 'test'

D'avance merci.

Sylvain

 

[porcinet82]

salut Sylvain,

il y a différentes fonction qui te permette de réaliser ce que tu veux, mais tout dépend de tes données.
si le mot test est toujours le premier mot de ta chaine de caratères, tu peux utiliser le code

Left(Tachaine, 4)

qui te permet d'extraire 4 caratères (a partir du premier) de ta chaine.

si tu ne sais pas ou se trouve le mot test dans ta chaine tu peux utiliser la fonction InStr coupler de vbTextCompare, qui te permet de tester si test est dans une chaine de caractères (pour plus d'info regarde dans l'aide vba excel)

voila j'espere que ca pourra t'aider, et si tu as un soucis fait signe

@+

 

[sylvain]

Merci pour le code mais je n'y arrive pas... J'ai cherché ds vb aide mais j'ai rien trouvé

Peux tu m'écrire le code en plein stp. 😱

 

[sylv900]

salut

essaye à l'intérieur de ta boucle for :
tachaine=ActiveCell.Value
if left (tachaine,4)='test' then
ActiveCell.delete ou si tu préfère Activerows.delete
endif

bon courage