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

[ilcocodrillo]

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

[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

[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

[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

[melodyyy]

effectivement j'ai pas pensé à la feuille :p
elle se trouve sur la feuille synthèse je suis blonde, limite je ferais du saut à l'élastique sans élastique :p

[ilcocodrillo]

Ayé ça c fé !

ciao n'oublie pas de noter ton post [Résolu]

[melodyyy]

j'ai testé ça et ça marche pas (au nom de la feuille il me dit menmbre de méthode introuvable)

Code :

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

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

[franck.automaticien]

Objectifs CMMI

sa c pas le nom de ton onglet mais le nom qui est sur le coté gauche dans VBE



@++

[ilcocodrillo]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
If sheets("synthèse").cells("V4").Value = "oui" Then
sheets("Objectifs CMMI").Visible = TRUE
ELse
 
    If sheets("synthèse").cells("V4").Value = "non" Then
    sheets("Objectifs CMMI").Visible = FALSE
    End If
 
End If
 
End Sub

[melodyyy]

incompatibilité de type

[ilcocodrillo]

met ton fichier en pièce jointes on va pas y arriver sinon...

[franck.automaticien]

arf... c'est clair...

[melodyyy]

il est classé comme étant confidentiel désolé

[franck.automaticien]

il est classé comme étant confidentiel désolé

Secret Défense Une Macro pour la Navy....ou le FBI....