Discussion :

[madion]

Bonjour,
Suite à la discussion :
http://www.developpez.net/forums/d13...vot-table-vba/

merci pour cette réponse rapide qui fonctionne bien lorsque je l'applique à un pivot table basé sur un fichier xls. Par contre, lorsque je l'applique à un pivot table basé sur un cube "analysis services", cela ne fonctionne plus:



.. et la phrase suivante se met en surbrillance:

ActiveSheet.PivotTables("PivotTable2").PivotFields("BPA").PivotItems(str).Visible = False

??? Merci pour votre aide!


FS

j'ai enregistré une macro pour filtrer dans une table pivot les évènements du jour. lorsqu'il n'y a pas encore eut d'évènement je reçoit ce code d'erreur.
j'aimerais, plutôt que d'avoir cette erreur, avoir un msgbox m'avisant qu'il n'y a pas encore eut d'évènement et retourner à la feuille1. mais je ne sais pas comment faire. pouvez-vous m'aider svp?

voici mes codes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Autorisation_sur_bureau()
'
' Autorisation_sur_bureau Macro
'
 
'
    Sheets("Feuil2").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _
        CurrentPage = Date
End Sub

Merci pour votre aide
Madion

[Invité]

Bonjour,

Une solution consisterait à décompter les évènements du jour dans votre feuille de données et de lancer le rafraichissement du TCD si ce nombre est > 0 et à quitter la macro sinon.

Pour cela il suffirait d'ajouter un test dans votre macro Autorisation sur bureau comme dans le code joint plus bas.

Dans la capture d'écran, la cellule B6 correspond à la zone nommée NombreEvenementsDuJour et contient la formule NB.SI.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Autorisation_sur_bureau()
'
' Autorisation_sur_bureau Macro
'
 
    If Sheets("Feuil1").Range("NombreEvenementsDuJour") = 0 Then
            MsgBox ("Aucun événement aujourd'hui !")
            Exit Sub
    End If
 
    Sheets("Feuil2").Activate
    With ActiveSheet.PivotTables("Tableau croisé dynamique2")
            .PivotFields("Date").ClearAllFilters
            .PivotCache.Refresh
            .PivotFields("Date").CurrentPage = Date
    End With
 
End Sub

Cordialement.

[madion]

Bonjour Eric,
Merci pour ta réponse rapide.
la solution que tu me propose est bien pensée, mais j'aurais préféré que la recherche se fasse sans intervention autre que celle de lancer ma macro et donc que la recherche se fasse directement en VBA.
Encore merci

Madion

[78chris]

Bonjour

Il suffit de tester par VBA que la date est présente dans la source soit par une recherche soit par une boucle...

[madion]

Bonjour Chris,
Merci, c'est la solution que je recherche. seulement je suis novice dans ce domaine et je ne parviens pas à trouver comment faire cette recherche ou cette boucle.
Madion

[78chris]

Bonjour

Par exemple si la colonne date est B dans la source

Code :

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

1
2
3
4
5
6
7
8
    Set x = Worksheets("Factures").Range("B:B").Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
    If x Is Nothing Then
        MsgBox "Pas de ..."
    Else
        Code de modif du TCD
    End If

[madion]

Merci beaucoup, ça fonctionne très bien
Madion