Bonjour,
Je souhaiterais savoir comment faire pour qu'un lien hypertext me permette
d'afficher une feuille masquer et inversement...?!
Je pense qu'il doit s'agir d'un code macro mais je n'arrive pas à trouvé les
bonne commande.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benead
Salut Baptiste,
Par lien hypertexte, impossible... Par macro, oui :
Sub Test() Dim IndexFeuille As Integer IndexFeuille = 2 Call InverseAffichageFeuille(IndexFeuille) End Sub
Sub InverseAffichageFeuille(wIndex As Integer) If ActiveWorkbook.Worksheets.Count > 1 Then ' Ligne Facultative On Error Resume Next ActiveWorkbook.Sheets(wIndex).Visible = Not ActiveWorkbook.Sheets(wIndex).Visible If ActiveWorkbook.Sheets(wIndex).Visible Then ActiveWorkbook.Sheets(wIndex).Select On Error GoTo 0 End If End Sub
-- A+ Benead Bretagne Xl97 -------- ;-)
Baptiste Schwartzbart a écrit:
Bonjour, Je souhaiterais savoir comment faire pour qu'un lien hypertext me permette d'afficher une feuille masquer et inversement...?! Je pense qu'il doit s'agir d'un code macro mais je n'arrive pas à trouvé les bonne commande.
Merci d'avance pour vos réponses.
Salut Baptiste,
Par lien hypertexte, impossible... Par macro, oui :
Sub Test()
Dim IndexFeuille As Integer
IndexFeuille = 2
Call InverseAffichageFeuille(IndexFeuille)
End Sub
Sub InverseAffichageFeuille(wIndex As Integer)
If ActiveWorkbook.Worksheets.Count > 1 Then ' Ligne Facultative
On Error Resume Next
ActiveWorkbook.Sheets(wIndex).Visible = Not ActiveWorkbook.Sheets(wIndex).Visible
If ActiveWorkbook.Sheets(wIndex).Visible Then ActiveWorkbook.Sheets(wIndex).Select
On Error GoTo 0
End If
End Sub
--
A+
Benead
Bretagne
Xl97
-------- ;-)
Baptiste Schwartzbart a écrit:
Bonjour,
Je souhaiterais savoir comment faire pour qu'un lien hypertext me permette
d'afficher une feuille masquer et inversement...?!
Je pense qu'il doit s'agir d'un code macro mais je n'arrive pas à trouvé les
bonne commande.
Par lien hypertexte, impossible... Par macro, oui :
Sub Test() Dim IndexFeuille As Integer IndexFeuille = 2 Call InverseAffichageFeuille(IndexFeuille) End Sub
Sub InverseAffichageFeuille(wIndex As Integer) If ActiveWorkbook.Worksheets.Count > 1 Then ' Ligne Facultative On Error Resume Next ActiveWorkbook.Sheets(wIndex).Visible = Not ActiveWorkbook.Sheets(wIndex).Visible If ActiveWorkbook.Sheets(wIndex).Visible Then ActiveWorkbook.Sheets(wIndex).Select On Error GoTo 0 End If End Sub
-- A+ Benead Bretagne Xl97 -------- ;-)
Baptiste Schwartzbart a écrit:
Bonjour, Je souhaiterais savoir comment faire pour qu'un lien hypertext me permette d'afficher une feuille masquer et inversement...?! Je pense qu'il doit s'agir d'un code macro mais je n'arrive pas à trouvé les bonne commande.
Merci d'avance pour vos réponses.
Baptiste Schwartzbart
Merci beaucoup Benead! Je vais tester ça... Ciao!
Salut Baptiste,
Par lien hypertexte, impossible... Par macro, oui :
Sub Test() Dim IndexFeuille As Integer IndexFeuille = 2 Call InverseAffichageFeuille(IndexFeuille) End Sub
Sub InverseAffichageFeuille(wIndex As Integer) If ActiveWorkbook.Worksheets.Count > 1 Then ' Ligne Facultative On Error Resume Next ActiveWorkbook.Sheets(wIndex).Visible = Not ActiveWorkbook.Sheets(wIndex).Visible If ActiveWorkbook.Sheets(wIndex).Visible Then ActiveWorkbook.Sheets(wIndex).Select On Error GoTo 0 End If End Sub
-- A+ Benead Bretagne Xl97 -------- ;-)
Baptiste Schwartzbart a écrit:
Bonjour, Je souhaiterais savoir comment faire pour qu'un lien hypertext me permette d'afficher une feuille masquer et inversement...?! Je pense qu'il doit s'agir d'un code macro mais je n'arrive pas à trouvé les bonne commande.
Merci d'avance pour vos réponses.
Merci beaucoup Benead!
Je vais tester ça...
Ciao!
Salut Baptiste,
Par lien hypertexte, impossible... Par macro, oui :
Sub Test()
Dim IndexFeuille As Integer
IndexFeuille = 2
Call InverseAffichageFeuille(IndexFeuille)
End Sub
Sub InverseAffichageFeuille(wIndex As Integer)
If ActiveWorkbook.Worksheets.Count > 1 Then ' Ligne Facultative
On Error Resume Next
ActiveWorkbook.Sheets(wIndex).Visible = Not ActiveWorkbook.Sheets(wIndex).Visible
If ActiveWorkbook.Sheets(wIndex).Visible Then ActiveWorkbook.Sheets(wIndex).Select
On Error GoTo 0
End If
End Sub
--
A+
Benead
Bretagne
Xl97
-------- ;-)
Baptiste Schwartzbart a écrit:
Bonjour,
Je souhaiterais savoir comment faire pour qu'un lien hypertext me permette
d'afficher une feuille masquer et inversement...?!
Je pense qu'il doit s'agir d'un code macro mais je n'arrive pas à trouvé les
bonne commande.
Par lien hypertexte, impossible... Par macro, oui :
Sub Test() Dim IndexFeuille As Integer IndexFeuille = 2 Call InverseAffichageFeuille(IndexFeuille) End Sub
Sub InverseAffichageFeuille(wIndex As Integer) If ActiveWorkbook.Worksheets.Count > 1 Then ' Ligne Facultative On Error Resume Next ActiveWorkbook.Sheets(wIndex).Visible = Not ActiveWorkbook.Sheets(wIndex).Visible If ActiveWorkbook.Sheets(wIndex).Visible Then ActiveWorkbook.Sheets(wIndex).Select On Error GoTo 0 End If End Sub
-- A+ Benead Bretagne Xl97 -------- ;-)
Baptiste Schwartzbart a écrit:
Bonjour, Je souhaiterais savoir comment faire pour qu'un lien hypertext me permette d'afficher une feuille masquer et inversement...?! Je pense qu'il doit s'agir d'un code macro mais je n'arrive pas à trouvé les bonne commande.
