Masque un onglet en fonction d'une valeur d'une cellule

Fermé
Sean81 - 26 juin 2017 à 15:34
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 26 juin 2017 à 17:13
Bonjour,

J'ai beau fouiller sur internet et je trouve pas ma solution.

J'ai un onglet principal qui a une liste de chantier et je créé un onglet pour chaque chantier.

Je souhaiterai cacher l'onglet du chantier en question dès que je rempli dans une cellule " Terminé" et qu'il sois réaffiché si je remets " En cours".

Dans l'onglet principal , en colonne A : nom du chantier , en colonne B : Statut (en cours ou terminé) cette cellule est recopié dans chaque onglet pour faire un point de référence.

J'aimerai avoir un code générique qui se copie tout seul à chaque copier/coller de chaque onglet afin qu'automatiquement dès que je finis un chantier et que j'ai saisie dans l'onglet principal : terminé, il soit masqué et si c'est "en cours" il soit visible.

Pouvez vous m'aider.

Merci par avance
Mathieu

3 réponses

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
26 juin 2017 à 16:06
Bonjour

Un début de réponse à adapter
https://mon-partage.fr/f/94XPsFGJ/

Cdlmnt
0
Grand merci, c'est tout simple quand on sait ;)

Cordialement
Sean81
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
26 juin 2017 à 16:55
De rien

Il faudrait quand même y ajouter le traitement d'erreur en cas de nom de feuille incorrect

Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)

Cdlmnt
0
Pas totalement,

Je rencontre un souci dès que je supprimer une ligne ou rajoute une ligne

If Target.Count > 1 Or Target.Value = "" Then Exit Sub

blocage à ce niveau :( dsl
0
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
26 juin 2017 à 17:13
ok, coupes la ligne en deux
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

Cdlmnt
0