Affichage de lignes selon critère

[marcelio]

Bonsoir à tous
Je travail sur les lignes 21,23, 25, 27,29,31,33,35
Mes lignes 22,24,26,28,30,32,34,36 sont masquées
Sur la ligne 21 si les cases T21 et U21 sont identiques (même chiffre)
Je voudrait que la ligne 22 qui est masquée s'affiche
Idem pour les lignes 23,25,27,29,31,33,35

Je vous remercie d'avance de votre aide

Marcelio

 

[bqtr]

Re : Affichage de lignes selon critère

Bonsoir marcelio,

Voici une proposition:

Sur la feuille1, tu as un bouton "Test" qui vérifie la saisie dans les cellules Tx et Ux et affiche les lignes qui répondent aux critères.

Sur la feuille2, le test s'effectue à chaque changement des cellules Tx et Ux.

Bonne soirée

P.O


Edit: j'ai fait une petite modif sur le fichier

 

[marcelio]

Re : Affichage de lignes selon critère

Bonsoir et merci

La feuille2 est exactement ce que je voulais.

C'est superbe.

Par contre j'ai oublier de signaler que les cellules ont toutes une formules, elles attendent un calcul qui permettent d'affiche ou pas la ligne cachée.

Si vous avez une autre solution je vous en remercie d'avance.

Marcelio

 

[bqtr]

Re : Affichage de lignes selon critère

Bonsoir marcelio,

Effectivement l'évenement change d'une cellule modifiée par une formule n'est pas pris en compte. Pourquoi ???

Peux-tu joindre un fichier en PJ, car on peut mettre la macro sur une autre cellule, par exemple la cellule qui déclenche le calcul dans la colonne T ou U.
Ca sera plus simple que de travailler à taton.

Bonne soirée

P.O

 

[marcelio]

Re : Affichage de lignes selon critère

Bonsoir P.O

Désole de répondre si tard (travail oblige)

Je te joint un fichier, un extrait car le mien trop gros.

Bonne soirée

Marcelio

 

[bqtr]

Re : Affichage de lignes selon critère

Bonsoir marcelio,

Regarde si cela te convient (à adapter à ton fichier ):

La procédure se déclenche lorsque tu modifies une cellule dans les plages M12:N14 ou U12:T14.

Pour modifier les plages, click droit sur l'onglet de la feuille puis code, la procédure s'affichera dans la partie droite de l'écran. La ligne à modifier est celle là :

If Not Application.Intersect(Target, Range("T12:U14,M12:N14")) Is Nothing Then

Bonne soirée

P.O

 

[marcelio]

Re : Affichage de lignes selon critère

Bonsoir P.O

Superbe , magnifique

Je te remercie beaucoup c'est exactement ce que je voulais.

Encore merci et bonne soirée

A+++ Marcelio