besoin d'aide

[tinet]

😛

Bonjour à tous,

je cherche à compléter la fonction suivante.
y a-t-il un moyen de faire apparaître un onglet masqué en se positionnant sur une cellule précise de la feuille principale.
En B3 je rentre un texte puis je valide, ceci fait apparaître l'onglet "recette"
Puis
En B4 je rentre un texte puis je valide, ceci fait apparaître l'onglet "recette 1"
et ainsi de suite.

Private Sub Worksheet_Change(ByVal Target As Range)

Range("B3").Select
Sheets("Recette").Visible = True


End Sub

merci à vous.

 

[kjin]

Re : besoin d'aide

Bonjour,
Il faut à mon sens délimiter la plage de fonctionnement de la macro (ici B1:B5)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B5")) Is Nothing And Target.Count = 1 Then
    On Error Resume Next 'si la feuille n'existe pas
    Set ws = Sheets(CStr(Target))
    If ws Is Nothing Then
        MsgBox "la feuille " & Target & " n'existe pas"
    Else
        'On Error GoTo 0
        With ws
            .Visible = True
            .Activate
        End With
    End If
End If
End Sub

A+
kjin

 

[Efgé]

Re : besoin d'aide

Bonjour tinet
Je ne sais pas si je pourrais t'aider mais il serai préférable de fournir un fichier exemple. Il me semble aussi qu'à un moment ou à un autre il faudra re-masquer les feuilles, non ?
A te re-lire
Cordialement

 

[tinet]

Re : besoin d'aide

bonjour à tous,

merci à ceux qui ont déjà répondu🙂

Voici mon fichier.
l'idée de construction de ce fichier est de réalisé des recettes.
Jusqu'à maintenant jamais créé une macro pour dupliquer un nouveau classeur pour chaque nouvelle recette.

après utilisation, je me suis aperçu qu'il me manquait un répertoire.

Ma première idée serait de créer plusieurs onglets qui seraient masqués, et qui apparaîtrait chaque fois qu'une nouvelle recette serait enregistrée en colonne B sur le classeur "liste".

Ou la deuxième idée serait de dupliquer un nouveau onglet à chaque saisie également dans la colonne B sur le classeur "liste".

j'espère être suffisamment clair dans mon approche.😎

on attend de vous lire

PM: il m'a fallu réduire le fichier pour pouvoir vous le passez