Rendre visible ou invisible un ou plusieurs onglets via le VB

Le
nfrachon
Bonjour à tous,

J'ai un dossier Excel ou j'ai créé une zone de texte dans l'onglet
Présentation du dossier.
En fonction du chiffre saisi (compris entre 1 et 3), je peux rendre visible
des onglets initialement cachés à l'ouverture du dossier :
1 --> rendre visible onglet crédit amortissable 1
2 --> rendre visible onglets crédits amortissables 1 et 2
3 --> rendre visible onglets crédits amortissables 1, 2 et 3

Voici le texte du VB :

Private Sub CreditAmortissable_Change()

Dim CA As Variant
CA = TextBox.Value
Select Case CA
Case 3
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Sheets("crédit amortissable 3").Visible
Case 2
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Case Else
Sheets("crédit amortissable 1").Visible
End Select

End Sub

De plus, à l'ouverture, la zone de texte doit être initialisée à vide.

Malheureusement, pour le moment, ça ne fonctionne pas et je ne sais pas
pourquoi

D'avance, merci à tous pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4248521
Bonjour,

Sheets("crédit amortissable 1").Visible =True

Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:

Sheets("crédit amortissable 1").Visible =XlVeryHidden

Il est préférable de les masquer à la sauvegarde. Ainsi, si les macros
ne pas actives à l'ouverture, les feuilles resteront masquées.

JB
On 16 mar, 11:24, nfrachon
Bonjour à tous,

J'ai un dossier Excel ou j'ai créé une zone de texte dans l'onglet
Présentation du dossier.
En fonction du chiffre saisi (compris entre 1 et 3), je peux rendre visib le
des onglets initialement cachés à l'ouverture du dossier :
1 --> rendre visible onglet crédit amortissable 1
2 --> rendre visible onglets crédits amortissables 1 et 2
3 --> rendre visible onglets crédits amortissables 1, 2 et 3

Voici le texte du VB :

Private Sub CreditAmortissable_Change()

Dim CA As Variant
CA = TextBox.Value
Select Case CA
Case 3
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Sheets("crédit amortissable 3").Visible
Case 2
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Case Else
Sheets("crédit amortissable 1").Visible
End Select

End Sub

De plus, à l'ouverture, la zone de texte doit être initialisée à vide.

Malheureusement, pour le moment, ça ne fonctionne pas et je ne sais pas
pourquoi ...

D'avance, merci à tous pour votre aide.


papou
Le #4248491
Bonjour
Sur Excel 2003 : xlSheetVeryHidden

Cordialement
Pascal

"JB"
Bonjour,

Sheets("crédit amortissable 1").Visible =True

Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:

Sheets("crédit amortissable 1").Visible =XlVeryHidden

Il est préférable de les masquer à la sauvegarde. Ainsi, si les macros
ne pas actives à l'ouverture, les feuilles resteront masquées.

JB
On 16 mar, 11:24, nfrachon
Bonjour à tous,

J'ai un dossier Excel ou j'ai créé une zone de texte dans l'onglet
Présentation du dossier.
En fonction du chiffre saisi (compris entre 1 et 3), je peux rendre
visible
des onglets initialement cachés à l'ouverture du dossier :
1 --> rendre visible onglet crédit amortissable 1
2 --> rendre visible onglets crédits amortissables 1 et 2
3 --> rendre visible onglets crédits amortissables 1, 2 et 3

Voici le texte du VB :

Private Sub CreditAmortissable_Change()

Dim CA As Variant
CA = TextBox.Value
Select Case CA
Case 3
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Sheets("crédit amortissable 3").Visible
Case 2
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Case Else
Sheets("crédit amortissable 1").Visible
End Select

End Sub

De plus, à l'ouverture, la zone de texte doit être initialisée à vide.

Malheureusement, pour le moment, ça ne fonctionne pas et je ne sais pas
pourquoi ...

D'avance, merci à tous pour votre aide.


papou
Le #4246271
Re
Je confirme, je me suis limité aux propriétés disponibles de l'objet feuille
dans l'éditeur.

Cordialement
Pascal

"MichDenis"
Les 2 approches fonctionnent sous Excel 2003


Dim X As Excel.XlSheetVisibility
'Les 3 constantes disponibles ...
X = xlSheetVeryHidden ' xlSheetVisible xlSheetHidden
Worksheets("Feuil1").Visible = X

OU

Worksheets("Feuil1").Visible = xlVeryHidden



"papou" %
Bonjour
Sur Excel 2003 : xlSheetVeryHidden

Cordialement
Pascal

"JB"
Bonjour,

Sheets("crédit amortissable 1").Visible =True

Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:

Sheets("crédit amortissable 1").Visible =XlVeryHidden

Il est préférable de les masquer à la sauvegarde. Ainsi, si les macros
ne pas actives à l'ouverture, les feuilles resteront masquées.

JB
On 16 mar, 11:24, nfrachon
Bonjour à tous,

J'ai un dossier Excel ou j'ai créé une zone de texte dans l'onglet
Présentation du dossier.
En fonction du chiffre saisi (compris entre 1 et 3), je peux rendre
visible
des onglets initialement cachés à l'ouverture du dossier :
1 --> rendre visible onglet crédit amortissable 1
2 --> rendre visible onglets crédits amortissables 1 et 2
3 --> rendre visible onglets crédits amortissables 1, 2 et 3

Voici le texte du VB :

Private Sub CreditAmortissable_Change()

Dim CA As Variant
CA = TextBox.Value
Select Case CA
Case 3
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Sheets("crédit amortissable 3").Visible
Case 2
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Case Else
Sheets("crédit amortissable 1").Visible
End Select

End Sub

De plus, à l'ouverture, la zone de texte doit être initialisée à vide.

Malheureusement, pour le moment, ça ne fonctionne pas et je ne sais pas
pourquoi ...

D'avance, merci à tous pour votre aide.








MichDenis
Le #4246201
Les 2 approches fonctionnent sous Excel 2003


Dim X As Excel.XlSheetVisibility
'Les 3 constantes disponibles ...
X = xlSheetVeryHidden ' xlSheetVisible xlSheetHidden
Worksheets("Feuil1").Visible = X

OU

Worksheets("Feuil1").Visible = xlVeryHidden



"papou" %
Bonjour
Sur Excel 2003 : xlSheetVeryHidden

Cordialement
Pascal

"JB"
Bonjour,

Sheets("crédit amortissable 1").Visible =True

Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:

Sheets("crédit amortissable 1").Visible =XlVeryHidden

Il est préférable de les masquer à la sauvegarde. Ainsi, si les macros
ne pas actives à l'ouverture, les feuilles resteront masquées.

JB
On 16 mar, 11:24, nfrachon
Bonjour à tous,

J'ai un dossier Excel ou j'ai créé une zone de texte dans l'onglet
Présentation du dossier.
En fonction du chiffre saisi (compris entre 1 et 3), je peux rendre
visible
des onglets initialement cachés à l'ouverture du dossier :
1 --> rendre visible onglet crédit amortissable 1
2 --> rendre visible onglets crédits amortissables 1 et 2
3 --> rendre visible onglets crédits amortissables 1, 2 et 3

Voici le texte du VB :

Private Sub CreditAmortissable_Change()

Dim CA As Variant
CA = TextBox.Value
Select Case CA
Case 3
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Sheets("crédit amortissable 3").Visible
Case 2
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Case Else
Sheets("crédit amortissable 1").Visible
End Select

End Sub

De plus, à l'ouverture, la zone de texte doit être initialisée à vide.

Malheureusement, pour le moment, ça ne fonctionne pas et je ne sais pas
pourquoi ...

D'avance, merci à tous pour votre aide.


nfrachon
Le #4245411
Bonjour JB,
Merci pour ces premiers éléments. Je les ai pris en compte.
Seulement, j'ai aussi un problème au niveau de la variable CA. De mémoire,
Excel me répond onjet manquant.
Concernant, les rendre masquer et inaccessibles par Format / Feuilles /
Afficher, n'est-ce pas aussi simple si je protège le classeur ?
Merci pour les informations.
Cordialement.


Bonjour,

Sheets("crédit amortissable 1").Visible =True

Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:

Sheets("crédit amortissable 1").Visible =XlVeryHidden

Il est préférable de les masquer à la sauvegarde. Ainsi, si les macros
ne pas actives à l'ouverture, les feuilles resteront masquées.

JB
On 16 mar, 11:24, nfrachon
Bonjour à tous,

J'ai un dossier Excel ou j'ai créé une zone de texte dans l'onglet
Présentation du dossier.
En fonction du chiffre saisi (compris entre 1 et 3), je peux rendre visible
des onglets initialement cachés à l'ouverture du dossier :
1 --> rendre visible onglet crédit amortissable 1
2 --> rendre visible onglets crédits amortissables 1 et 2
3 --> rendre visible onglets crédits amortissables 1, 2 et 3

Voici le texte du VB :

Private Sub CreditAmortissable_Change()

Dim CA As Variant
CA = TextBox.Value
Select Case CA
Case 3
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Sheets("crédit amortissable 3").Visible
Case 2
Sheets("crédit amortissable 1").Visible
Sheets("crédit amortissable 2").Visible
Case Else
Sheets("crédit amortissable 1").Visible
End Select

End Sub

De plus, à l'ouverture, la zone de texte doit être initialisée à vide.

Malheureusement, pour le moment, ça ne fonctionne pas et je ne sais pas
pourquoi ...

D'avance, merci à tous pour votre aide.







Publicité
Poster une réponse
Anonyme