Macro masquer des lignes sous conditions

LOLO13130

XLDnaute Nouveau
Bonjour à tous, comme beaucoup j'ai cherché, bidouillé... mais sans succès. Je m'en remets à votre expertise pour me dépatouiller s'il-vous-plaît, mes compétences en vba étant trop limitées pour ce genre de macro.
J'aimerais donc créer cette macro qui s'exécute à chaque changement de valeur des cellules de condition, le tout sur des feuilles protégées (mot de passe figurant dans le fichier coquille joint) :

Tout se passe dans les plages de lignes suivantes (les autres lignes sont toujours affichées)
[Renseignements!35 : Renseignements!59]
[Prévisionnel!41 : Prévisionnel!94]
['Suivi des heures'!13 : 'Suivi des heures'!59]

SI(Renseignements!$F$21="") , alors :
MASQUER
[Renseignements!35 : Renseignements!59]
[Prévisionnel!41 : Prévisionnel!94]
['Suivi des heures'!13 : 'Suivi des heures'!59]
EFFACER le contenu de la cellule Renseignements!$D$35

SI(ET(Renseignements!$F$21<>"";OU(Renseignements!$D$35=""; Renseignements!$D$35=0))) , alors :
AFFICHER [Renseignements!35 : Renseignements!39]
MASQUER
[Renseignements!40 : Renseignements!59]
[Prévisionnel!41 : Prévisionnel!94]
['Suivi des heures'!13 : 'Suivi des heures'!59]

SI(ET(Renseignements!$F$21="Trimestres";Renseignements!$D$35=1 à 20)) avec n étant la valeur de 1 à 20 , alors :
AFFICHER
[Renseignements!35 : Renseignements!39+n]
[Prévisionnel!41 : Prévisionnel!42+n] ET Prévisionnel!63
['Suivi des heures'!13 : 'Suivi des heures'!14+n] ET 'Suivi des heures'!35
MASQUER toutes les autres lignes des plages concernées

SI(ET(Renseignements!$F$21="Périodes";Renseignements!$D$35=1 à 20)) avec n étant la valeur de 1 à 20 , alors :
AFFICHER
[Renseignements!35 : Renseignements!39+n]
[Prévisionnel!72 : Prévisionnel!73+n] ET Prévisionnel!94
['Suivi des heures'!37 : 'Suivi des heures'!38+n] ET 'Suivi des heures'!59
MASQUER toutes les autres lignes des plages concernées

Merci d'avance pour votre aide si précieuse pour les débutants.
Je joins un fichier coquille.
Laurent
 

Pièces jointes

  • Afficher masquer lignes.xlsx
    16.1 KB · Affichages: 40

Papou-net

XLDnaute Barbatruc
Bonsoir Laurent,

Ci-joint une copie vite faite de ton fichier.

Pas testé toutes les possibilités, alors je te laisse le soin de vérifier par toi-même.

Bonne soirée.

Cordialement.
 

Pièces jointes

  • Copie de Afficher masquer lignes.xlsm
    25.3 KB · Affichages: 41

LOLO13130

XLDnaute Nouveau
Bonjour papou'net et un grand merci pour ton aide.
C'est un excellent point de départ. Je vais essayer de modifier le code pour atteindre le résultat attendu.
J'espère pouvoir marquer cette discussion comme résolue après mon bidouillage.
Encore merci au forum.
Cordialement.
Laurent
 

Discussions similaires

Statistiques des forums

Discussions
312 075
Messages
2 085 078
Membres
102 772
dernier inscrit
bluetesteur