Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Ci joint mon fichier avec les explications,pour me permettre le parametrage de l'affichage selon la vue souhaitee
En vous remerciant par avance pour les conseils...
pour faire hyper simple :
tu crées autant de feuilles qu'il y a de vues à faire
tu "dessines" les vues sur chaque feuille, avec les cases = case correspondante de la feuille 1
(la feuille1 reste telle que, elle sert de base de données)
sur chaque feuille tu fais un petit USF basé sur la feuille 1
tu crées des boutons pour naviguer d'une feuille à l'autre (enregistre les macros nécessaires)
En cherchant un peu dans les discussions,j'ai trouvé mon bonheur,
MERCI à CHRISTOPHE@.....
j'ai modifié (trop fort le mec!!) et ca marche
Merci a JEAN PIERRE,et à JMD2,pour leur participation à la discussion
d'autre demande vont apparaitre....
a plus ...
ci joint le code ( toujours utile a conserver... sans sterilisé )
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.ScreenUpdating = False
Columns("B:NC").Hidden = True
Select Case Target
Case "Année complète"
Columns("B:NC").Hidden = False
Case "JANVIER"
Columns("B:AF").Hidden = False
Case "FEVRIER"
Columns("AG:BI").Hidden = False
Case "MARS"
Columns("BJ:CN").Hidden = False
Case "AVRIL"
Columns("COR").Hidden = False
Case "MAI"
Columns("DS:EW").Hidden = False
Case "JUIN"
Columns("EX:GA").Hidden = False
Case "JUILLET"
Columns("GB:HF").Hidden = False
Case "AOUT"
Columns("HG:IK").Hidden = False
Case "SEPTEMBRE"
Columns("IL:JO").Hidden = False
Case "OCTOBRE"
Columns("JP:KT").Hidden = False
Case "NOVEMBRE"
Columns("KU:LX").Hidden = False
Case "DECEMBRE"
Columns("LY:NC").Hidden = False
End Select
Application.ScreenUpdating = True
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.