Rendre visible ou invisible un ou plusieurs onglets via le VB
5 réponses
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 ...
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 wrote:
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.
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:
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 <nfrac...@discussions.microsoft.com> wrote:
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 ...
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 wrote:
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
Bonjour Sur Excel 2003 : xlSheetVeryHidden
Cordialement Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/ Afficher:
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 wrote:
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.
Bonjour
Sur Excel 2003 : xlSheetVeryHidden
Cordialement
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1174041413.290462.87520@d57g2000hsg.googlegroups.com...
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:
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 <nfrac...@discussions.microsoft.com> wrote:
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 ...
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 wrote:
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
Re Je confirme, je me suis limité aux propriétés disponibles de l'objet feuille dans l'éditeur.
Cordialement Pascal
"MichDenis" a écrit dans le message de news:
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" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: % Bonjour Sur Excel 2003 : xlSheetVeryHidden
Cordialement Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/ Afficher:
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 wrote:
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.
Re
Je confirme, je me suis limité aux propriétés disponibles de l'objet feuille
dans l'éditeur.
Cordialement
Pascal
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O7gLrK8ZHHA.4616@TK2MSFTNGP03.phx.gbl...
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" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23G8hdl7ZHHA.4552@TK2MSFTNGP05.phx.gbl...
Bonjour
Sur Excel 2003 : xlSheetVeryHidden
Cordialement
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1174041413.290462.87520@d57g2000hsg.googlegroups.com...
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:
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 <nfrac...@discussions.microsoft.com> wrote:
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 ...
Re Je confirme, je me suis limité aux propriétés disponibles de l'objet feuille dans l'éditeur.
Cordialement Pascal
"MichDenis" a écrit dans le message de news:
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" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: % Bonjour Sur Excel 2003 : xlSheetVeryHidden
Cordialement Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/ Afficher:
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 wrote:
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
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" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: % Bonjour Sur Excel 2003 : xlSheetVeryHidden
Cordialement Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/ Afficher:
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 wrote:
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.
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" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%23G8hdl7ZHHA.4552@TK2MSFTNGP05.phx.gbl...
Bonjour
Sur Excel 2003 : xlSheetVeryHidden
Cordialement
Pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1174041413.290462.87520@d57g2000hsg.googlegroups.com...
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/
Afficher:
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 <nfrac...@discussions.microsoft.com> wrote:
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 ...
Dim X As Excel.XlSheetVisibility 'Les 3 constantes disponibles ... X = xlSheetVeryHidden ' xlSheetVisible xlSheetHidden Worksheets("Feuil1").Visible = X
OU
Worksheets("Feuil1").Visible = xlVeryHidden
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: % Bonjour Sur Excel 2003 : xlSheetVeryHidden
Cordialement Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sheets("crédit amortissable 1").Visible =True
Pour les masquer et les rendre inaccessibles par Format/Feuilles/ Afficher:
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 wrote:
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
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:
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 wrote:
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.
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:
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 <nfrac...@discussions.microsoft.com> wrote:
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 ...
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:
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 wrote:
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 ...
