Sans macro: Alt+F11 pour aller dans VBE Cliquer sur la feuille dans l'arborescence F4 pour afficher les propriétés Modifier la propriété Visible
Et voilà!
Cordialement, -- AP
"Ardus Petus" a écrit dans le message de news: u3S5FX%
Pour masquer un onglet:
Sub test() sheets("Feuil2").visibleúlse end sub
Cordialement, -- AP
"crole" a écrit dans le message de news:
Bonjour le groupe
Je souhaiterais savoir la marche à suivre pour masquer un ou plusieurs onglets
Par la même occasion je souhaiterais également savoir comment, si Dans la colonne A, j'ai des noms Dans la colonne B, j'ai VRAI ou FAUX
Ma question dans la colonne C comment attribuer une entrée ex: TOTO si VRAI et TITI si FAUX
Merci au groupe pour les réponses. Amicalement Crole
Rai
Bonjour le groupe
Je souhaiterais savoir la marche à suivre pour masquer un ou plusieurs onglets
Par la même occasion je souhaiterais également savoir comment, si Dans la colonne A, j'ai des noms Dans la colonne B, j'ai VRAI ou FAUX
Ma question dans la colonne C comment attribuer une entrée ex: TOTO si VRAI et TITI si FAUX
Merci au groupe pour les réponses. Amicalement Crole
Bonjour Crole,
Si j'ai bien compris, la colonne A n'a pas d'impact sur le résultat cherché. Dans ce cas, tu peux utiliser la formule suivante : =SI(B1;"Toto";"Titi")
La fonction SI te permet de réaliser des tests sur le mode SI condition Alors (si la condition est remplie) calcul ou résultat 1 Sinon (si la condition n'est pas vérifiée) Calcul ou résultat 2
=SI(condition;calcul1;cacul2)
Dans notre cas, pas besoin d'écrire de condition puisque nous avons déjà vrai ou faux ...
Bonne continuation
Rai
Bonjour le groupe
Je souhaiterais savoir la marche à suivre pour masquer un ou plusieurs
onglets
Par la même occasion je souhaiterais également savoir comment,
si
Dans la colonne A, j'ai des noms
Dans la colonne B, j'ai VRAI ou FAUX
Ma question dans la colonne C comment attribuer une entrée ex: TOTO si
VRAI et TITI si FAUX
Merci au groupe pour les réponses.
Amicalement
Crole
Bonjour Crole,
Si j'ai bien compris, la colonne A n'a pas d'impact sur le résultat cherché.
Dans ce cas, tu peux utiliser la formule suivante :
=SI(B1;"Toto";"Titi")
La fonction SI te permet de réaliser des tests sur le mode
SI
condition
Alors (si la condition est remplie)
calcul ou résultat 1
Sinon (si la condition n'est pas vérifiée)
Calcul ou résultat 2
=SI(condition;calcul1;cacul2)
Dans notre cas, pas besoin d'écrire de condition puisque nous avons déjà
vrai ou faux ...
Je souhaiterais savoir la marche à suivre pour masquer un ou plusieurs onglets
Par la même occasion je souhaiterais également savoir comment, si Dans la colonne A, j'ai des noms Dans la colonne B, j'ai VRAI ou FAUX
Ma question dans la colonne C comment attribuer une entrée ex: TOTO si VRAI et TITI si FAUX
Merci au groupe pour les réponses. Amicalement Crole
Bonjour Crole,
Si j'ai bien compris, la colonne A n'a pas d'impact sur le résultat cherché. Dans ce cas, tu peux utiliser la formule suivante : =SI(B1;"Toto";"Titi")
La fonction SI te permet de réaliser des tests sur le mode SI condition Alors (si la condition est remplie) calcul ou résultat 1 Sinon (si la condition n'est pas vérifiée) Calcul ou résultat 2
=SI(condition;calcul1;cacul2)
Dans notre cas, pas besoin d'écrire de condition puisque nous avons déjà vrai ou faux ...
Ok j'ai bien compris pour la condition merci, mais j'aimerais l'insérer dans le code suivant
Private Sub Listeanne_Click() Sheets("Liste rapport").Select Cells.Select Selection.ClearContents For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A et j'aimerais que les cellules contenant la valeur des onglets sont des liens vers la feuille en question Merci Crole
Bonjour,
Ok j'ai bien compris pour la condition merci, mais j'aimerais
l'insérer dans le code suivant
Private Sub Listeanne_Click()
Sheets("Liste rapport").Select
Cells.Select
Selection.ClearContents
For Each sh In Sheets
ActiveCell = sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub
et bien entendu toujours mon problème de lien hypertexte pour ma liste
d'onglet
J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
et j'aimerais que les cellules contenant la valeur des onglets sont des
liens vers la feuille en question
Merci
Crole
Ok j'ai bien compris pour la condition merci, mais j'aimerais l'insérer dans le code suivant
Private Sub Listeanne_Click() Sheets("Liste rapport").Select Cells.Select Selection.ClearContents For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A et j'aimerais que les cellules contenant la valeur des onglets sont des liens vers la feuille en question Merci Crole
Fredo P
"et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A Avec une cellule attribuée du mot "Quitter" Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo gest Dim Sht As String ScrEvent False Sht = Cells(ActiveCell.Row, 1).Value If Sht <> "" Then If Sht = "Quitter" Then Workbooks("nom du classeur").Close End If Sheets(Sht).Activate End If Sheets("Menu").Range("B1:B65536").Find("", LookIn:=xlValues).Rows.Select gest: ScrEvent True End Sub Sub ScrEvent (Para as Boolean) Application.ScreenUpdating = Para Application.EnableEvents = Para End Sub
"et bien entendu toujours mon problème de lien hypertexte pour ma liste
d'onglet
J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
Avec une cellule attribuée du mot "Quitter"
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo gest
Dim Sht As String
ScrEvent False
Sht = Cells(ActiveCell.Row, 1).Value
If Sht <> "" Then
If Sht = "Quitter" Then
Workbooks("nom du classeur").Close
End If
Sheets(Sht).Activate
End If
Sheets("Menu").Range("B1:B65536").Find("", LookIn:=xlValues).Rows.Select
gest:
ScrEvent True
End Sub
Sub ScrEvent (Para as Boolean)
Application.ScreenUpdating = Para
Application.EnableEvents = Para
End Sub
"et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A Avec une cellule attribuée du mot "Quitter" Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo gest Dim Sht As String ScrEvent False Sht = Cells(ActiveCell.Row, 1).Value If Sht <> "" Then If Sht = "Quitter" Then Workbooks("nom du classeur").Close End If Sheets(Sht).Activate End If Sheets("Menu").Range("B1:B65536").Find("", LookIn:=xlValues).Rows.Select gest: ScrEvent True End Sub Sub ScrEvent (Para as Boolean) Application.ScreenUpdating = Para Application.EnableEvents = Para End Sub
Fredo P
"et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
Avec une cellule attribuée du mot "Quitter" Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo gest Dim Sht$ ScrEvent False Sht = Cells(ActiveCell.Row, 1).Value If Sht <> "" Then If Sht = "Quitter" Then Workbooks("nom du classeur").Close End If Sheets(Sht).Activate End If gest: ScrEvent True End Sub
Sub ScrEvent (Para as Boolean) Application.ScreenUpdating = Para Application.EnableEvents = Para End Sub
"et bien entendu toujours mon problème de lien hypertexte pour ma liste
d'onglet
J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
Avec une cellule attribuée du mot "Quitter"
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo gest
Dim Sht$
ScrEvent False
Sht = Cells(ActiveCell.Row, 1).Value
If Sht <> "" Then
If Sht = "Quitter" Then
Workbooks("nom du classeur").Close
End If
Sheets(Sht).Activate
End If
gest:
ScrEvent True
End Sub
Sub ScrEvent (Para as Boolean)
Application.ScreenUpdating = Para
Application.EnableEvents = Para
End Sub
"et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
Avec une cellule attribuée du mot "Quitter" Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo gest Dim Sht$ ScrEvent False Sht = Cells(ActiveCell.Row, 1).Value If Sht <> "" Then If Sht = "Quitter" Then Workbooks("nom du classeur").Close End If Sheets(Sht).Activate End If gest: ScrEvent True End Sub
Sub ScrEvent (Para as Boolean) Application.ScreenUpdating = Para Application.EnableEvents = Para End Sub
Fredo P
Oups trop c trop
"et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
Avec une cellule attribuée du mot "Quitter" Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo gest Dim Sht$ ScrEvent False Sht = Cells(ActiveCell.Row, 1).Value If Sht <> "" Then If Sht = "Quitter" Then Workbooks("nom du classeur").Close End If Sheets(Sht).Activate End If gest: ScrEvent True End Sub
Sub ScrEvent (Para as Boolean) Application.ScreenUpdating = Para Application.EnableEvents = Para End Sub
Oups trop c trop
"et bien entendu toujours mon problème de lien hypertexte pour ma liste
d'onglet
J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
Avec une cellule attribuée du mot "Quitter"
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo gest
Dim Sht$
ScrEvent False
Sht = Cells(ActiveCell.Row, 1).Value
If Sht <> "" Then
If Sht = "Quitter" Then
Workbooks("nom du classeur").Close
End If
Sheets(Sht).Activate
End If
gest:
ScrEvent True
End Sub
Sub ScrEvent (Para as Boolean)
Application.ScreenUpdating = Para
Application.EnableEvents = Para
End Sub
"et bien entendu toujours mon problème de lien hypertexte pour ma liste d'onglet J'ai les noms d'onglets dans une feuille "Liste rapport" en colonne A
Avec une cellule attribuée du mot "Quitter" Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error GoTo gest Dim Sht$ ScrEvent False Sht = Cells(ActiveCell.Row, 1).Value If Sht <> "" Then If Sht = "Quitter" Then Workbooks("nom du classeur").Close End If Sheets(Sht).Activate End If gest: ScrEvent True End Sub
Sub ScrEvent (Para as Boolean) Application.ScreenUpdating = Para Application.EnableEvents = Para End Sub
Fillip
Bonjour,
C'est très intéressant. Je me demandais comment procéder pour, par exemple dans un classeur contenant 3 feuilles: Sommaire Data1 Data2
...masquer Data1 et Data2, mais donner la possibilité d'y accéder grâce à des liens hypertexte situés dans la feuille sommaire (j'ai testé, en jouant uniquement sur la propriété Visible, les onglets demeurent toujours masqués). Faut-il modifier une autre propriété?
Merci d'avance,
Fillip
Sans macro: Alt+F11 pour aller dans VBE Cliquer sur la feuille dans l'arborescence F4 pour afficher les propriétés Modifier la propriété Visible
Et voilà!
Cordialement, -- AP
"Ardus Petus" a écrit dans le message de news: u3S5FX%
Pour masquer un onglet:
Sub test() sheets("Feuil2").visibleúlse end sub
Cordialement, -- AP
"crole" a écrit dans le message de news:
Bonjour le groupe
Je souhaiterais savoir la marche à suivre pour masquer un ou plusieurs onglets
Par la même occasion je souhaiterais également savoir comment, si Dans la colonne A, j'ai des noms Dans la colonne B, j'ai VRAI ou FAUX
Ma question dans la colonne C comment attribuer une entrée ex: TOTO si VRAI et TITI si FAUX
Merci au groupe pour les réponses. Amicalement Crole
Bonjour,
C'est très intéressant. Je me demandais comment procéder pour, par
exemple dans un classeur contenant 3 feuilles:
Sommaire
Data1
Data2
...masquer Data1 et Data2, mais donner la possibilité d'y accéder grâce
à des liens hypertexte situés dans la feuille sommaire (j'ai testé, en
jouant uniquement sur la propriété Visible, les onglets demeurent
toujours masqués). Faut-il modifier une autre propriété?
Merci d'avance,
Fillip
Sans macro:
Alt+F11 pour aller dans VBE
Cliquer sur la feuille dans l'arborescence
F4 pour afficher les propriétés
Modifier la propriété Visible
Et voilà!
Cordialement,
--
AP
"Ardus Petus" <ardus.petus@laposte.net> a écrit dans le message de news:
u3S5FX%23fGHA.4976@TK2MSFTNGP02.phx.gbl...
Pour masquer un onglet:
Sub test()
sheets("Feuil2").visibleúlse
end sub
Cordialement,
--
AP
"crole" <contactbruno@skynet.be> a écrit dans le message de news:
1148552283.967535.141960@38g2000cwa.googlegroups.com...
Bonjour le groupe
Je souhaiterais savoir la marche à suivre pour masquer un ou plusieurs
onglets
Par la même occasion je souhaiterais également savoir comment,
si
Dans la colonne A, j'ai des noms
Dans la colonne B, j'ai VRAI ou FAUX
Ma question dans la colonne C comment attribuer une entrée ex: TOTO si
VRAI et TITI si FAUX
Merci au groupe pour les réponses.
Amicalement
Crole
C'est très intéressant. Je me demandais comment procéder pour, par exemple dans un classeur contenant 3 feuilles: Sommaire Data1 Data2
...masquer Data1 et Data2, mais donner la possibilité d'y accéder grâce à des liens hypertexte situés dans la feuille sommaire (j'ai testé, en jouant uniquement sur la propriété Visible, les onglets demeurent toujours masqués). Faut-il modifier une autre propriété?
Merci d'avance,
Fillip
Sans macro: Alt+F11 pour aller dans VBE Cliquer sur la feuille dans l'arborescence F4 pour afficher les propriétés Modifier la propriété Visible
Et voilà!
Cordialement, -- AP
"Ardus Petus" a écrit dans le message de news: u3S5FX%
Pour masquer un onglet:
Sub test() sheets("Feuil2").visibleúlse end sub
Cordialement, -- AP
"crole" a écrit dans le message de news:
Bonjour le groupe
Je souhaiterais savoir la marche à suivre pour masquer un ou plusieurs onglets
Par la même occasion je souhaiterais également savoir comment, si Dans la colonne A, j'ai des noms Dans la colonne B, j'ai VRAI ou FAUX
Ma question dans la colonne C comment attribuer une entrée ex: TOTO si VRAI et TITI si FAUX
Merci au groupe pour les réponses. Amicalement Crole
