TCE- Periode selectionnable

B

banpo

Guest

• 15 Août 2008

• #2

Re : TCE- Periode selectionnable

Desole , je viens de realiser qu'il y a une erreur dans mon message ci-dessous : il faut lire " conserver que la periode (MM--> MM+11)." a la place "conserver que la periode (M-11 --> M)."

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 15 Août 2008

• #3

Re : TCE- Periode selectionnable

bonjour Banpo
dans le tcd,les dates mois et jour inversé ,changé ligne dans code et date ok
cela arrange t'il ton problème
à bientôt

 

Pièces jointes

• Copie de TCD - Selection Periode.xls

  31.5 KB · Affichages: 64

Vote positif 0 Vote négatif

B

banpo

Guest

• 15 Août 2008

• #4

Re : TCE- Periode selectionnable

Merci Bebere de ta reponse mais les deux colonnes indesirables sont malheureusement encore presentes. De mon cote, j ai essaye de completer la macro pour 'decocher' ces 2 colonnes dans le tableau dynamique mais je ne progresse pas (partie en rouge ci-dessous). Je n arrive pas a trouver la bonne syntaxe. Vois tu d ou peux venir le pb ? (desole mais ma version d excel est en anglais)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y As Long

If Target.Address = "$B$1" Then
x = Range("'" & ActiveWorkbook.Name & "'!" & "MM").Value
x = CLng(x)
y = DateSerial(Year(x), Month(x) + 12, 1)
Range("B6").Select
Selection.Group Start:=x, End:=y, Periods:=Array(False, False, _
False, False, True, False, False)
End If
LValue = "<" & x
HValue = ">" & y

With ActiveSheet.PivotTables("PivotTable3").PivotFields("Mois")
.PivotItems(LValue).Visible = False
.PivotItems(HValue).Visible = False
End With
End Sub

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 16 Août 2008

• #5

Re : TCE- Periode selectionnable

bonjour Banpo
essaye ce qui suit,chez-moi c'est ok
il faut une chaîne(string) pour lvalue et hvalue

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y As Long, LValue As String, HValue As String

If Target.Address = "$B$1" Then
x = Range("MM").Value
y = DateSerial(Year(x), Month(x) + 12, 1)
x = CLng(x)
Range("B6").Select
Selection.Group Start:=x, End:=y, Periods:=Array(False, False, _
False, False, True, False, False)

LValue = "<"
LValue = LValue & CStr(Format(x, "d/mm/yyyy"))
HValue = ">"
HValue = HValue & CStr(Format(y, "d/mm/yyyy"))

With ActiveSheet.PivotTables("PivotTable3").PivotFields("Mois")
.PivotItems(LValue).Visible = False
.PivotItems(HValue).Visible = False
End With
End If

End Sub

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 16 Août 2008

• #6

Re : TCE- Periode selectionnable

Banjo, écrit tel que,x est variant et non long
à bientôt

 

Vote positif 0 Vote négatif

B

banpo

Guest

• 17 Août 2008

• #7

Re : TCE- Periode selectionnable

Merci bebere pour ta nouvelle proposition . J ai fait les modifications mais, a l excution de la macro, j ai un bug sur la partie jaune que je n arrive pas a resoudre. Le debugger indique "Run Time error 1004 - Group Method of range class failed". Est-ce liee a la definition de la variable x ? (je ne sais pas si cela a un importance mais je suis sous Excel 2003)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y As Long, LValue As String, HValue As String

If Target.Address = "$B$1" Then
x = Range("MM").Value
y = DateSerial(Year(x), Month(x) + 12, 1)
x = CLng(x)
Range("B6").Select
Selection.Group Start:=x, End:=y, Periods:=Array(False, False, _
False, False, True, False, False)

LValue = "<"
LValue = LValue & CStr(Format(x, "d/mm/yyyy"))
HValue = ">"
HValue = HValue & CStr(Format(y, "d/mm/yyyy"))

With ActiveSheet.PivotTables("PivotTable3").PivotFields ("Mois")
.PivotItems(LValue).Visible = False
.PivotItems(HValue).Visible = False
End With
End If

End Sub

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 17 Août 2008

• #8

Re : TCE- Periode selectionnable

bonjour Banpo
j'ai aussi excel2003 et pas d'erreur
dans le menu outils références n'aurait tu pas une ligne marquée manquant
si oui tu décoches la case
à bientôt

 

Vote positif 0 Vote négatif

B

banpo

Guest

• 17 Août 2008

• #9

Re : TCE- Periode selectionnable

Ca y est, tout fonctionne. Le bug venait du format de la date :dans mon fichier d origine , les dates etaient au format anglais "m/d/yyyy"" .
Encore merci Bebere pour ton aide . Cela m'a permis d'en apprendre un peu plus sur le langage macro et la gestion des dates dans excel.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 17 Août 2008

• #10

Re : TCE- Periode selectionnable

Banpo j'ai ajouté du code pour avoir une liste sans doublons
elle s'initialise quand tu actives la feuille données brutes
à bientôt

 

Pièces jointes

• TCD - Selection Periode.xls

  37 KB · Affichages: 60
• TCD - Selection Periode.xls

  37 KB · Affichages: 59
• TCD - Selection Periode.xls

  37 KB · Affichages: 65

Vote positif 0 Vote négatif

B

banpo

Guest

• 18 Août 2008

• #11

Re : TCE- Periode selectionnable

Genial ce bout de code ! Cela simplifie grandement la selection du mois d'etude ( j'ai plus de 8,000 lignes dans le fichier couvrant une periode de plusieurs annees... ).

Sans vouloir abuser, je souhaiterais fignoler la mise en forme du document avec les deux ameliorations suivantes:
- Est-il possible que la macro pour supprimer les doublons se deroule lorsque l'on active la feuille "TCD" .C'est vraiment un detail mais cela permettrait d'utiliser directement le menu deroulant sans faire un "allez-retour" sur Data pour la mise a jour de la liste.
- Pour la liste deroulante sans doublons, y a t-il possibilite de supprimer les blancs pour ne conserver que les cellules non vides ?

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Août 2008

• #12

Re : TCE- Periode selectionnable

bonjour Banpo
citation:Vos désirs sont des ordres,Monseigneur
à bientôt

 

Pièces jointes

• TCD - Selection Periode.xls

  43 KB · Affichages: 55
• TCD - Selection Periode.xls

  43 KB · Affichages: 54
• TCD - Selection Periode.xls

  43 KB · Affichages: 55

Vote positif 0 Vote négatif

B

banpo

Guest

• 19 Août 2008

• #13

Re : TCE- Periode selectionnable

Whouaa .. impressionnant ce que l'on peut faire en VBA! Je n'ai pas tout compris au code mais ca fonctionne nickel ! je sens qu'il va me falloir un peu de travail pour digerer tout cela.
Merci infiniment Bebere de t'etre penche avec autant de reactivite et d'efficacite sur mes questions. Au risque d'abuser , j'en ai vraiment une toute derniere... pour des raisons d'ergonomie j'ai voulu mettre la liste deroulante sur une feuille separee. J'ai essaye de modifier le code pour que la macro s'excute sur la feuille "TCD" et que , apres l 'execution de la macro, la feuille active soit celle de la liste deroulante ("Parametres" dans le fichier joint). Jusqu'ici, j'enchaine bug sur bug. Cela parait-il faisable?.
Je joins le fichier sur l'etat de mes travaux...

 

Pièces jointes

• TCD-Selection periode (v2).xls

  34 KB · Affichages: 54

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Août 2008

• #14

Re : TCE- Periode selectionnable

Banpo
dans le code j'ai mis changé ou ajout en commentaires à la fin de la ligne de code
à bientôt

 

Pièces jointes

• TcdSelectionPeriodeV2.xls

  42.5 KB · Affichages: 53

Vote positif 0 Vote négatif

B

banpo

Guest

• 20 Août 2008

• #15

Re : TCE- Periode selectionnable

Un grand merci Bebere pour ton aide. Tout fonctionne parfaitement.

 

Vote positif 0 Vote négatif