Affichage d'un endroit en fonction d'un choix

  • Initiateur de la discussion Initiateur de la discussion BadRaf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BadRaf

XLDnaute Nouveau
Bonjour

Je cherche a afficher une partie de mon document en fonction d'un choix dans une liste de choix déroulant.
Pour la partie liste de choix pas de soucis mais je n'arrive pas à trouver comment associer la partie du document qui m'intéresse en fonction de ce choix.

étant au travail je ne peut pas poster de document excel car je suis sur un poste internet.

le BUT en haut de mon document une cellule avec comme choix tout les mois de l'année et en fonction du choix affiché le tableau (les mois sont les un en-dessous des autres) qui correspond.

Merci d'avance de vos réponse
 
Re : Affichage d'un endroit en fonction d'un choix

Bonjour,

En A1 : liste déroulante : choix du mois à imprimer.

Puis clic sur " Aperçu avant impression".

Travail réalisé pour les trois premiers mois de l'année.

Tu n'as plus qu'à compléter.

excfl
 

Pièces jointes

Dernière édition:
Re : Affichage d'un endroit en fonction d'un choix

Bonjour BadRaf, bienvenue sur XLD, salut excfl,

Voyez le fichier joint avec la liste de validation en B1.

Regardez attentivement les noms définis Janvier Février Mars.

La macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1]) Is Nothing Then
  Dim i As Byte
  If [B1] = "Tous" Or [B1] = "" Then Rows.Hidden = False: Exit Sub
  On Error Resume Next 'si des mois n'existent pas
  For i = 1 To 12
    Evaluate(Format("1/" & i, "mmmm")).EntireRow.Hidden = True
  Next
  Evaluate([B1].Text).EntireRow.Hidden = False
End If
End Sub
A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
164
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
317
Réponses
40
Affichages
1 K
Réponses
5
Affichages
104
Réponses
10
Affichages
149
Réponses
5
Affichages
464
Retour