Inputbox
Bonjour à tous,
Je désirerai apporter une amélioration à mon projet au niveau de la Macro qui suit :
Sub MAJ()
'
' MAJ_JAN Macro
' Macro enregistrée le 27/02/2010 par Utilisateur de la version d'évaluation de Office 2004
'
'
Sheets("TCD").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois"). _
CurrentPage = "Mars-10"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "Mois", _
xlButton
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Sheets("Accueil").Select
End Sub
CurrentPage = "Mars-10"Je voudrai pouvoir saisir le mois concerné afin que ma liste soit affiché sans pour autant aller trifouiller dans le TCD.
Merci de votre aide
Amicalement
Noel
Bonjour,
La saisie doit se faire où et d'où viennent les données "Mars-10" ?
Amicalement
Dan
Re,
Bonjour Dan,
Je pense avoir résolu ma recherche par :
Sub MAJ()
'
' MAJ_JAN Macro
' Macro enregistrée le 27/02/2010 par Utilisateur de la version d'évaluation de Office 2004
'
'
Sheets("TCD").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois"). _
CurrentPage = inputbox("")ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "Mois", _
xlButton
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
Sheets("Accueil").Select
End Sub
Pour répondre à ta question en page d'accueil de mon projet je désirai avoir la liste des adhérents dont leur cotisation arrive à échéance par un sytème TCD.
Je récupère le mois qui est en filtre dans le TCD par INPUTBOX("").
Rassure moi si cela risque pas de générer des erreurs par la suite.
Merci
Noel
Amicalement
Noel
re,
Je ne vois pas trop l'intérêt de cette inputbox car le choix devra se faire via une liste en VBA. Alors pourquoi ne pas choisir directement dans le TCD...
Le TCD ne m'a pas l'air approprié pour faire cela mais bon sans voir ton fichier ce n'est pas facile de te donner une solution valable.
Si la date d'échéance se trouve dans ta base de données, pourquoi ne pas utiliser le filtre automatique dans lequel tu fais un choix de cette date ?
Dan