histoire d onglet suite

arf !!!!!!!!!!
c est presque bon mais c est pas encore tout a fait ca

:-(

J ai testé un programme
le voici

> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim Var As Integer
> If Target.Address = "$A$1" Then
> Select Case Target.Value
> Case "isabelle moreau"
> Sheets(2).Name = "isabelle"
> Sheets(2).Visible = False
> Case ""
> Var = MsgBox("Etes-vous sûr ?", vbOKCancel)
> If Var = 1 Then
> Sheets(2).Visible = True
> End If
> Case Else
> Sheets(2).Name = Target.Value
> Sheets(2).Visible = True
> End Select
> ElseIf Target.Address = "$A$2" Then
> End If
> Select Case Target.Value
> Case "damien guilbert"
> Sheets(3).Name = "damien"
> Sheets(3).Visible = True
> Case ""
> Var = MsgBox("Etes-vous sûr ?", vbOKCancel)
> If Var = 1 Then
> Sheets(3).Visible = False
> End If
> Case Else
> Sheets(3).Name = Target.Value
> Sheets(3).Visible = True
> End Select
> End Sub





Voici ce ki ne peut pas marcher et mes attentes :

Dans la cellule a1 de la feuille 1
on ecrit isabelle moreau :

L'onglet feuille 2 s'active et devient visible. c est ok elle se nomme
isabelle.

Quand je supprime le nom de la cellule a1 de la feuille 1 ("isabelle
moreau"), la feuille 2 ne se cache pas. Elle devrait se cacher
(sheet2.visible=false)
de plus si je resaisi en a1 feuille 1 un nouveau nom (car par exemple cette
collaboratrice a demissioné) :
ex "arnaud"
il y a une erreur il faudrait que la feuille 1 redevienne visible avec le
nom arnaud.

En gros la cellule a1 de la feuille 1 marche avec la feuille 2 qui devient
visible ou pas

Sur le meme principe

La cellule a2 de la feuille 1 marche avec la feuille 3 qui devient visible
ou pas.
En a2 de la feuille1, je saisie "dede". La feuille 3 s'active et le nom de
l'onglet est "dede".

Quand je supprime le nom de la cellule a2 de la feuille 1 ("dede") la
feuille devra se cacher.
De plus si je resaisi en a2 feuille 1 un nouveau nom (car par exemple dede a
demissioné) il y a l'embauche de "gaston".
La feuille 3 redevient visible avec le nom d'onglet gaston.

je prevois 10 collaborateurs comme ca de la feuille 2 à la feuille 12

Note :
Dans les feuilles 2 à 12 il y aura des formules. je les saisisrais 1 fois.
C est pour ca que je veux que les feuille se cache et s'affiche (pour garder
les formules)
car la notion add/delete me fais perdre les formules de base des feuilles 2
à 12 (j avais prevue des plannings dans les feuilles 2 à 12)

c est vraiment simpa de ton aide car ca commence à devenir complexe mon
prog
gerer une bare d'outil ca va mais je ne sais pas gerer en vba des "si
conditionné"

c est trop fort pour moi

merci beaucoup

j aii remis le script vba

> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim Var As Integer
> If Target.Address = "$A$1" Then
> Select Case Target.Value
> Case "isabelle moreau"
> Sheets(2).Name = "isabelle"
> Sheets(2).Visible = False
> Case ""
> Var = MsgBox("Etes-vous sûr ?", vbOKCancel)
> If Var = 1 Then
> Sheets(2).Visible = True
> End If
> Case Else
> Sheets(2).Name = Target.Value
> Sheets(2).Visible = True
> End Select
> ElseIf Target.Address = "$A$2" Then
> End If
> Select Case Target.Value
> Case "damien guilbert"
> Sheets(3).Name = "damien"
> Sheets(3).Visible = True
> Case ""
> Var = MsgBox("Etes-vous sûr ?", vbOKCancel)
> If Var = 1 Then
> Sheets(3).Visible = False
> End If
> Case Else
> Sheets(3).Name = Target.Value
> Sheets(3).Visible = True
> End Select
> End Sub