Effacer les cellules du dessous si condition remplie

Bonjour à toutes est tous,

Pouvez-vous m'aider à modifier le code ci-dessous,

Il me sert à remplacer des mots clés par un mot spécifique.

Je souhaite y ajouter une portion de code qui me permettrait d'effacer le contenu de la cellule en dessous de laquelle on trouverait le mot recherché.

Columns("B:M").Select
Selection.Replace what : ="HBO*", Replacement:="AAB", lookat:=xlPart,_
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,_
ReplaceFormat=False

Merci beaucoup pour votre aide

Bonjour,

Ce que tu utilises là, c'est un Rechercher-Remplacer ... Quand tu fais cette manipulation "à la main", tu ne disposes pas d'options supplémentaires qui permettraient de modifier le contenu d'une autre cellule ... En VBA, c'est pareil: il n'y a pas de "portion de code" que tu puisses ajouter.

Il faut donc t'y prendre autrement! La bonne nouvelle est que c'est sans doute possible ... mais le mieux serait de fournir un fichier représentant les données que tu dois traiter (le contenu des autres colonnes peut être supprimé ou modifié). Précise aussi le volume à prendre en considération: 200 lignes ou 500.000 ?

Rechercher des sujets similaires à "effacer dessous condition remplie"