Plusieurs pages dans une feuille
Fermé
jfp22
Messages postés
31
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
29 août 2015
-
29 août 2015 à 11:34
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 - 29 août 2015 à 19:42
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 - 29 août 2015 à 19:42
A voir également:
- Plusieurs pages dans une feuille
- Supprimer une page word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Traduire une page web - Guide
- Feuille a5 - Guide
- Créer une page facebook - Guide
2 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
Modifié par via55 le 29/08/2015 à 12:18
Modifié par via55 le 29/08/2015 à 12:18
Bonjour
Plusieurs onglets dans le même , bien sûr ce n'est pas possible
Mais avec des boutons et des macros tu peux masquer ou afficher des colonnes
1) A l'ouverture du classeur une macro masque les colonnes A à F
macro à mettre dans This workbook :
2) Une macro associée à chaque bouton masque les colonnes etaffiche les celles voulues
Par exemple pour l'option 2 :
Crdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
Plusieurs onglets dans le même , bien sûr ce n'est pas possible
Mais avec des boutons et des macros tu peux masquer ou afficher des colonnes
1) A l'ouverture du classeur une macro masque les colonnes A à F
macro à mettre dans This workbook :
Private Sub Workbook_Open()
Sheets("Feuil1").Select
Columns("A:F").Select
Selection.EntireColumn.Hidden = True
End Sub
2) Une macro associée à chaque bouton masque les colonnes etaffiche les celles voulues
Par exemple pour l'option 2 :
Private Sub CommandButton2_Click()
Columns("A:F").Select
Selection.EntireColumn.Hidden = True
Columns("A:B").Select
Selection.EntireColumn.Hidden = False
Columns("D").Select
Selection.EntireColumn.Hidden = False
Columns("F").Select
Selection.EntireColumn.Hidden = False
End Sub
Crdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
Raymond PENTIER
Messages postés
58389
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
17 090
29 août 2015 à 19:42
29 août 2015 à 19:42
Et sans macro, utilise l'outil Affichage/Modes d'affichage/Personnalisé pour créer trois
affichages personnalisés.
