Bonjour,
Comment fait ton pour masquer un onglet ?
Bonjour,
Comment fait ton pour masquer un onglet ?
Envoyé par melodyyy
Essaye sa:
Code : Sélectionner tout - Visualiser dans une fenêtre à part VBAProject.Feuil1.Visible = xlSheetHidden
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets("ton onglet").visible= false
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
Tu as mis le nom de l'onglet ou un chiffre (sans les " ") à la place de ton onglet ?
Bonjour
Tu mets tes instructions sur ton classeurs, mais à aucune moment tu lui dis dans quelle feuille tu prends la cellule V4.
Starec
Envoyé par melodyyy
pourquoi tu essaye pas sa....
Code : Sélectionner tout - Visualiser dans une fenêtre à part VBAProject.Feuil1.Visible = xlSheetHidden
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
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
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
Ayé ça c fé !
ciao n'oublie pas de noter ton post [Résolu]
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
Objectifs CMMI
sa c pas le nom de ton onglet mais le nom qui est sur le coté gauche dans VBE
@++
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
met ton fichier en pièce jointes on va pas y arriver sinon...
il est classé comme étant confidentiel désolé
Secret Défense Une Macro pour la Navy....ou le FBI....Envoyé par melodyyy
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager