Formule avec un onglet masqué

[vmax67]

Bonjour les experts

J’ai encore besoin de vos lumières concernant une formule avec un onglet masqué.
Exemple :
Si onglet portant le nom [adr_mail] est masqué alors valeur cellule A1 de l’onglet [TEST] =1
et si visble valeur = ‘OK’
Merci

Vmax

 

[chris]

Re : Formule avec un onglet masqué

Bonjour

Pas de fonction native.

On peu écvrire une fonction personnalisée

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...

 

[vmax67]

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

 

[chris]

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.

 

[vmax67]

Re : Formule avec un onglet masqué

Merci

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

 

[chris]

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 !

 

[vmax67]

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

 

[chris]

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

et dans le module thisworkbook de ton classeur :

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

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

 

[vmax67]

Re : Formule avec un onglet masqué

Merci c'est parfait