Microsoft 365 utiliser la ligne +1 des lignes filtrées

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Je coince encore sur un code que je n'arrive pas à faire :
dans l'exemple fichier joint
exemple : filtre appliqué sur col B chiffre 1
je voudrais que si la cellule NON VISIBLE "B17" - soit lignes filtrées + 1
Si "B17" (NON VISIBLE = "OK" écrire "OK" en "F9"

Malgré mes recherches et tentatives, je n'ai pas réussi
Auriez-vous la solution ?
Avec mes remerciements,
Amicalement,
lionel,

 

[Usine à gaz]

Bonjour Gérard,

Merci encore une fois pour ton aide et pour ta volonté de m'aider
Je suis vraiment désolé mais mon fichier exemple est juste un exemple car dans mon fichier de travail les lignes filtrées ne sont jamais fixes et ne se suivent pas.

J'ai 5 filtrages en fonction des appels Vendeurs réalisés ... actuellement de la ligne 7 à la ligne 13854
Les lignes filtrées ne se suivent jamais car elles créées au fur à mesure des appels et leurs classements se modifient (d'où les filtrages) selon les dates de rappels.
A cet instant, A Rappeler :
- 1 Maintenant 76 lignes
- 2 date dépassée A rappeler 7712 lignes
- 3 date dépassée Répondeur 5414 lignes
- 4 OK RdV Plus tard 371 lignes
- 5 Plus tard 275 lignes j'ai 76 lignes qui apparaissent
J'aurais en du expliquer autrement
Si je filtre :
sur 1 je voudrai que la ligne 13203 soit visible,
sur 2 je voudrai que la ligne 13110 soit visible,
sur 3 je voudrai que la ligne 13126 soit visible,
sur 4 je voudrai que la ligne 13849 soit visible,
sur 5 je voudrai que la ligne 13847 soit visible,

Dit différemment, j'ai besoin que la ligne suivant la dernière ligne affichée devienne visible
ou, j'ai besoin que la 1ère ligne filtrée suivant la dernière ligne visible ... devienne visible.

Je ne peux pas mettre mon fichier de travail car beaucoup trop lourd (12ko) et avec des données confidentielles.
Je sais c'est pas simple et tu dois te demander ce que je vais encore "pondre" lol

Je ne sais pas si c'est possible mais s'il le faut, je prendrais le temps de faire un fichier tests plus approprié.

Je ne sais plus quoi dire et je suis désolé Merci Gérard
lionel,

 

[job75]

Dit différemment, j'ai besoin que la ligne suivant la dernière ligne affichée devienne visible

Mais oui bien sûr, fichier (4) avec cette macro :

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("B" & Rows.Count).End(xlUp)(2).EntireRow.Hidden = False
Application.EnableEvents = True
End Sub

 

[Usine à gaz]

Vraiment merci Gérard pour ta patience

Entre temps, j'ai refait un code de Pierre-Jean qui, avant intégration dans mon fichier de travail semble me convenir pour le fichier test.
Il me semble plus facile à incorporer à mon fichier de travail.
Evidemment, j'essaierai également d'intégrer ton code.

Je joins le classeur avec les codes en feuilles "Pierre_Jean1" et "Gérard"
Pour le code de "Pierre_Jean1", je voudrais que ça se fasse par code dans la feuille "SelectionChange" au changement de filtrage mais je n'y arrive pas.

Encore merci Gérard
lionel,