Discussion :

[melodyyy]

Bonjour,

Comment fait ton pour masquer un onglet ?

[franck.automaticien]

Bonjour,

Comment fait ton pour masquer un onglet ?

Essaye sa:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBAProject.Feuil1.Visible = xlSheetHidden

[ilcocodrillo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("ton onglet").visible= false

[melodyyy]

ça me fait rien...

[melodyyy]

j'ai ça et ça me donne rien du tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Workbook_Open()
 
If Range("V4").Value = "oui" Then
Sheets("Objectifs CMMI").Activate
Else
End If
If Range("V4").Value = "non" Then
Sheets("Objectifs CMMI").Visible = False
Else
End If
 
End Sub

[Invité]

Bonjour

Tu mets tes instructions sur ton classeurs, mais à aucune moment tu lui dis dans quelle feuille tu prends la cellule V4.

Starec

[franck.automaticien]

j'ai ça et ça me donne rien du tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Workbook_Open()
 
If Range("V4").Value = "oui" Then
Sheets("Objectifs CMMI").Activate
Else
End If
If Range("V4").Value = "non" Then
Sheets("Objectifs CMMI").Visible = False
Else
End If
 
End Sub

pourquoi tu essaye pas sa....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBAProject.Feuil1.Visible = xlSheetHidden

[franck.automaticien]

j'ai testé sa marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Workbook_Open()
 
If Range("A1").Value = "oui" Then
VBAProject.Feuil2.Visible = xlSheetVisible
Else
If Range("A1").Value = "non" Then
VBAProject.Feuil2.Visible = xlSheetHidden
Else
End If
End If
 
 End Sub

[ilcocodrillo]

Tu as mis le nom de l'onglet ou un chiffre (sans les " ") à la place de ton onglet ?

[ilcocodrillo]

Initialise la feuille sur laquelle tu fais la condition. V4 se trouve dans quelle feuille ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Workbook_Open()
 
 
If Sheets("toto").cells("V4").Value = "oui" Then
Sheets("Objectifs CMMI").visible=true
Sheets("Objectifs CMMI").select
Else
End If
If Sheets("toto").cells("V4").Value = "non" Then
Sheets("Objectifs CMMI").Visible = False
Else
End If
 
End Sub