Effacer/masquer lignes par macro - compliqué

[Mi_]

Bonjour le forum,

Sur mes feuilles, il y a toujours une cellule avec le contenu XYZ.

Je cherche un macro qui trouverait cette cellule et éffacerait toutes les lignes en dessous d'elle, puis masquerait les lignes jusqu'à la fin, à partir de 2 lignes en dessous de cette cellule.

Je sais comment rechercher/trouver une cellule au contenu d'XYZ par VBA, je sais comment éffacer et masquer les lignes, mais je ne sais pas comment dire 'à partir de 1 ou 2 lignes en dessous de la ligne avec la cellule XYZ, n'importe où se trouverait cette cellule sur la feuille'.

A l'aide !

Merci pour vos suggestions,
Mi_

 

[justine]

bonjour Mi
masquer toutes les cellules en dessous de XYZ est a tes risques et perils, car une fois masquees, elles ne pourront plus reapparaitre car il faut laisser au moins la dernierespour faire reapparaitre les intermedaires. (ou alors je connais pas le code)
pour rechercher ta valeur:

dim mot as string
dim ligne as double
mot=inputbox('mot a trouver')
range('a1').select
while isempty(activecell)=false
if activecell=mot then
ligne=activecell.offset(activecell+2,0).row
rows(ligne:'65535').entirerow.hidden=true
else
activecell.offset(1,0).select
wend

 

[Mi_]

Encore une fois, merci justine. 🙂