Bonjour a tous,
Dans le cadre d'un projet étudiant, j'ai besoin de créer une interface via Excel 2010.
Cette interface doit pouvoir afficher ou cacher des colonnes selon le choix d'une cellule.
Je m'explique. J'ai une cellule ou je peut selon une liste déroulante choisir le nom d'une association.
J'ai des renseignements sur chaque association modifiables, est présent sur des colonnes différentes. Sachant que certaines infos sont communes à plusieurs assos.
J'aimerais selon le choix de l'association dans ma cellule de référence. Faire apparaître les infos de l'association en référence et masquer les colonnes d'informations des autres associations.
C'est la première macro que j'essai de faire donc c'est pas évident.
Voici ce que j'avais écrit dans ma macro:
Sub Affichageinfo()
If Cells(2, b) = "Assos1" Or "Assos2" Or "Assos3" Then
Range("p:ak").EntireColumn.Hidden = True
If Cells(2, b) = "Assos4" Or "Assos5" Or "Assos6" Then
Range("aa;aj").EntireColumn.Hidden = True
If Cells(2, b) = "Assos7" Or "Assos8" Then
Range("d:z").EntireColumn.Hidden = True
End If
End Sub
Je vous remercie d'avance pour vos réponses!!!!!
Dans le cadre d'un projet étudiant, j'ai besoin de créer une interface via Excel 2010.
Cette interface doit pouvoir afficher ou cacher des colonnes selon le choix d'une cellule.
Je m'explique. J'ai une cellule ou je peut selon une liste déroulante choisir le nom d'une association.
J'ai des renseignements sur chaque association modifiables, est présent sur des colonnes différentes. Sachant que certaines infos sont communes à plusieurs assos.
J'aimerais selon le choix de l'association dans ma cellule de référence. Faire apparaître les infos de l'association en référence et masquer les colonnes d'informations des autres associations.
C'est la première macro que j'essai de faire donc c'est pas évident.
Voici ce que j'avais écrit dans ma macro:
Sub Affichageinfo()
If Cells(2, b) = "Assos1" Or "Assos2" Or "Assos3" Then
Range("p:ak").EntireColumn.Hidden = True
If Cells(2, b) = "Assos4" Or "Assos5" Or "Assos6" Then
Range("aa;aj").EntireColumn.Hidden = True
If Cells(2, b) = "Assos7" Or "Assos8" Then
Range("d:z").EntireColumn.Hidden = True
End If
End Sub
Je vous remercie d'avance pour vos réponses!!!!!
Dernière édition: