Masquer onglet suite ventilation BI Reporting
Bonjour,
J'ai besoin d'aide. J'ai créé une liste par le BI que je ventile pour me permettre de surveiller les encours clients. Après ventilation j'ai un onglet par client ayant eu des mouvements. Mon problème est que je souhaiterai n'avoir que les onglets pour les clients ayant un encours négatif qui se trouve dans la cellule B11. Est-il possible de créer une macro ou autre chose pour masquer les onglets ayants en cellule B11 un montant positif. Par avance merci.
Bonjour
Oui c'est possible...
Mais sans fichier....
A+ François
Bonjour,
Ci-joint le fichier en modèle.
Il s'agit des onglets après l'onglet nommé DETAIL, commençant par FR pour lequel je souhaiterai masquer ceux dont la cellule B11 est positive.
Par avance merci de votre aide.
Bonjour à tous,
Je n'ai pas l'assistant Sage donc je ne peux pas recalculer le calsseur. Cependant une macro de ce type devrait fonctionner. J'ai ajouté le prefixe "FR" pour ne traiter que les feuilles commençant par ce prefix.
Public Sub MasquerEncoursNeg()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "FR*" And ws.Range("B11").Value > 0 Then
ws.Visible = xlSheetHidden
Else
ws.Visible = xlSheetVisible
End If
Next ws
End SubEDIT : correction < en > suite à remarque de fanfan...
Bonjour,
Cela ne fonctionne pas, ça me marque une erreur
Ah oui il faut une petite sécurité pour gérer les cas où la plage est ERREUR ou non numérique. Essayez plutôt ceci
Public Sub MasquerEncoursNeg()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Not IsError(ws.Range("B11").Value) And IsNumeric(ws.Range("B11").Value) Then
If ws.Name Like "FR*" And ws.Range("B11").Value > 0 Then
ws.Visible = xlSheetHidden
Else
ws.Visible = xlSheetVisible
End If
End If
Next ws
End SubMerci beaucoup. Tout fonctionne
Merci pour votre retour, n'oubliez pas de clôturer le fil. Bonne journée