Effacer/masquer lignes par macro - compliqué

Mi_

XLDnaute Occasionnel
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_
 
J

justine

Guest
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
 

Discussions similaires

Réponses
30
Affichages
2 K
Réponses
2
Affichages
365
Compte Supprimé 979
C
Réponses
12
Affichages
537