ouvrir une feuille avec formule

[tinet]

Bonjour à tous,

existe-t-il un moyen d'ouvrir des feuilles masquées avec une fonction.

Exemple :

Si sur ma feuille principale le champ A1 si il est rempli il ouvre à ce moment là la feuille masquée feuille (1)
le nom de la feuille est sur la même ligne en O1

 

[tinet]

Re : ouvrir une feuille avec formule

Ma formule serait en P1

 

[ROGER2327]

Re : ouvrir une feuille avec formule

Bonjour tinet

Essayez ceci :

[COLOR=DarkSlateGray][B]Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells(1, 1).Address(0, 0) = "P1" Then
    On Error Resume Next
    With Sheets([O1].Value)
      On Error Resume Next
      If IsEmpty(Target.Cells(1, 1)) Then .Visible = xlSheetHidden Else .Visible = xlSheetVisible
    End With
    On Error GoTo 0
  End If
End Sub[/B][/COLOR]

à placer dans le module de la feuille où est placé le nom de la feuille à afficher ou à masquer.
​

ROGER2327
#4715

Lundi 9 Sable 138 (Saint Sagouin, homme d'Etat, SQ)
19 Frimaire An CCXIX
2010-W49-4T10:14:23Z

 

[tinet]

Re : ouvrir une feuille avec formule

Bonjour Roger2327

je n'ai pas bien compris la fonction, j'envoie un petit fichier test

a+

 

[ROGER2327]

Re : ouvrir une feuille avec formule

Re...

Voyez le classeur joint.
​

ROGER2327
#4716

Lundi 9 Sable 138 (Saint Sagouin, homme d'Etat, SQ)
19 Frimaire An CCXIX
2010-W49-4T12:37:35Z

 

[tinet]

Re : ouvrir une feuille avec formule

Merci Roger,

et si je veux reproduire la même fonction sur plusieurs lignes

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Address(0, 0) = "P1" Then
On Error Resume Next
With Sheets([o1].Value)
On Error Resume Next
If IsEmpty(Target.Cells(1, 1)) Then .Visible = xlSheetHidden Else .Visible = xlSheetVisible
End With
On Error GoTo 0
End If
End Sub

 

[ROGER2327]

Re : ouvrir une feuille avec formule

Re…

Quelque chose comme ceci :

[COLOR=DarkSlateGray][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range, Zone As Object
  Set Zone = Intersect(Target, Columns("P:P"))[COLOR=DarkOrange] 'Adapter à la zone de saisie[/COLOR]
  If Not Zone Is Nothing Then
    For Each oCel In Zone.Cells
      On Error Resume Next
      With Sheets(oCel.Offset(0, -1).Text)
        On Error Resume Next
        If IsEmpty(oCel) Then .Visible = xlSheetHidden Else .Visible = xlSheetVisible
      End With
      On Error GoTo 0
    Next oCel
  End If
End Sub[/B][/COLOR]

Toute la colonne P est utilisable. On peut limiter à une partie seulement en remplaçant Columns("P😛") par Range("P1😛9") pour limiter la saisie à la plage P1😛9.
​

ROGER2327
#4719

Lundi 9 Sable 138 (Saint Sagouin, homme d'Etat, SQ)
19 Frimaire An CCXIX
2010-W49-4T17:04:28Z

 

[tinet]

Re : ouvrir une feuille avec formule

Merci Roger2327,

Avec du retard.