Masquer des feuilles sous condition

[AL Khayyam]

J'ai un document Excel qui contient 3 feuilles. la 1ère sert à identifier mon client. Ce que je voudrais c'est que les 2 dernières ne s'affichent que lorsque mon client a saisi son nom dans la 1ère. Est-ce possible de faire une macro pour ça ?
Merci à tous.

 

[fanfan38]

Re : Masquer des feuilles sous condition

Bonsoir
Oui c'est possible.
A quel endroit ce situe la saisie (a1 ou iv65500)?
Un fichier joint est le bienvenue

A+ François

 

[AL Khayyam]

Re : Masquer des feuilles sous condition

Bonsoir
Oui c'est possible.
A quel endroit ce situe la saisie (a1 ou iv65500)?
Un fichier joint est le bienvenue

A+ François

Sur la feuille 1 , à la cellule C5 je voudrais que le client saisisse son numéro avant de pouvoir remplir les feuilles suivantes. Pour forcer la saisie, je veux que les 2 feuilles de saisie soient masquées tant que le numéro du client n'a pas été saisi.
Mezrci

 

[Robert]

Re : Masquer des feuilles sous condition

Bonjour Al Khayyam, François, bonjour le forum,

Peut-être cette macro événementielle à placer par VBA dans le composant Feuil1(Feuil1) :

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque nouvelle édition
'si l'édition à lieu ailleurs que C5, sort de la procédure
If Target.Address <> "$C$5" Then Exit Sub
If Target.Value <> "" Then ' condition : si la cellule C5 n'est pas vide
    Sheets(2).Visible = True 'affiche l'onglet 2
    Sheets(3).Visible = True 'affiche l'onglet 3
Else 'sinon
    Sheets(2).Visible = False 'masque l'onglet 2
    Sheets(3).Visible = False 'masque l'onglet 3
End If 'fin de la condition
End Sub

Mais tout comme Fanfan je pense qu'un petit fichier joint eût été plus mieux bien...

 

[AL Khayyam]

Re : Masquer des feuilles sous condition

Bonjour Al Khayyam, François, bonjour le forum,

Peut-être cette macro événementielle à placer par VBA dans le composant Feuil1(Feuil1) :

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque nouvelle édition
'si l'édition à lieu ailleurs que C5, sort de la procédure
If Target.Address <> "$C$5" Then Exit Sub
If Target.Value <> "" Then ' condition : si la cellule C5 n'est pas vide
    Sheets(2).Visible = True 'affiche l'onglet 2
    Sheets(3).Visible = True 'affiche l'onglet 3
Else 'sinon
    Sheets(2).Visible = False 'masque l'onglet 2
    Sheets(3).Visible = False 'masque l'onglet 3
End If 'fin de la condition
End Sub

Mais tout comme Fanfan je pense qu'un petit fichier joint eût été plus mieux bien...

Merci pour cette macro que je vais essayer de suite. Je n'ai pas toujours le temps de revenir dans le forume et c'est pourquoi j'ai tardé à répondre.