Formule avec un onglet masqué

chris

XLDnaute Barbatruc

• 13 Juillet 2014

• #2

Re : Formule avec un onglet masqué

Bonjour

Pas de fonction native.

On peu écvrire une fonction personnalisée

Code:

Function Onglet_Visible(NomFeuille As String)
    If Worksheets(NomFeuille).Visible = True Then
        Onglet_Visible = "OK"
    Else
        Onglet_Visible = 1
    End If
End Function

Il serait préférable de renvoyer toujours le même type de donnée : texte ou bien numérique...

 

Dernière édition: 13 Juillet 2014

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 13 Juillet 2014

• #3

Re : Formule avec un onglet masqué

merci

mais comment utiliser cette fonction et comment afficher la valeur dans la cellule B5 et et non A1

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Juillet 2014

• #4

Re : Formule avec un onglet masqué

Bonjour

Il faut la copier dans un module VBA de ton classeur ou du classeur de macros personnelles si elle doit servir dans plein de classeurs.

Ensuite, comme pour toute fonction, il faut dans la cellule où le résultat est attendu, taper =Onglet_Visible(...) en mettant le nom de l'onglet dont on teste la visibilité dans les parenthèses avec des " puisque c'est du texte.

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 13 Juillet 2014

• #5

Re : Formule avec un onglet masqué

Merci

mais dans le cellule ça affiche #Valeur vois fichier joint

 

Pièces jointes

• Test.xlsm

  15.4 KB · Affichages: 28
• Test.xlsm

  15.4 KB · Affichages: 30
• Test.xlsm

  15.4 KB · Affichages: 29

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Juillet 2014

• #6

Re : Formule avec un onglet masqué

RE,

Tu dois recopier à l'identique le code que j'ai donné, pas y insérer le nom de tes feuilles actuelles !

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 13 Juillet 2014

• #7

Re : Formule avec un onglet masqué

Ok j'ai compris, mais ça fonctionne pas automatiquement, il faut faire un double clic dans
la cellule pour que le changement intervienne.
Comment faire

Merci pour ton implication

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Juillet 2014

• #8

Re : Formule avec un onglet masqué

RE
Qu'entends-tu par cela ne fonctionne pas automatiquement ?

Si tu veux dire quand tu masques ou démasque un onglet, c'est normal car cela ne provoque pas de recalcul des formules.

Il faudrait ajouter :
dans la fonction, sous la 1ère ligne

Application.Volatile

Cliquez pour agrandir...

et dans le module thisworkbook de ton classeur :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.Calculate
End Sub

Cliquez pour agrandir...

Mais les fonctions volatile ralentissent légèrement Excel...

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 13 Juillet 2014

• #9

Re : Formule avec un onglet masqué

Merci c'est parfait

 

Vote positif 0 Vote négatif