Discussion :

[l.escavia]

Bonjour,
J'ai besoin de votre aide, j'ai crée une macro permettant de modifier plusieurs cellules en même temps en mettant la même valeur à chaque (ce sont des rapports hebdomadaires). Sauf que chaque semaine je dois modifier la valeur dans la macro. Ce n'est pas très compliqué un CTRL + H suffit mais j'aimerai automatiser ce système. J'aimerai savoir si il était possible, lors de l’exécution de la macro, afficher une fenêtre demandant à l'utilisateur la valeur voulue. Voici un bout de la macro pour mieux vous expliquer.

Range("B1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Semaine de résolution").CurrentPage = "21"
Range("B11").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Semaine de résolution").CurrentPage = "21"
Range("G11").Select
Sheets("Ticket en cours").Select
Range("B1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Semaine de résolution").CurrentPage = "21"

Merci d'avance

[jerome.vaussenat]

Salut,

Avant de te répondre, deux choses :
Tu as mis la discussion en résolue. Du coup tu ne risque pas d'avoir beaucoup de réponses ...
Quand tu mets du code (c'est une très bonne idée) penses à utiliser la balise code (le # en haut). Ton message sera plus lisible (et donc plus lu)

Pour ton problème, je te propose ceci :

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
'on défini une variable de type texte
dim reponse as string
'on demande à l'utilisateur de saisir la valeur. Cette saisie est mémorisée dans la variable déclarée plus haut
reponse = inputbox("Saisir la valeur","merci",vbokonly)
 
Range("B1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Semaine de résolution").CurrentPage = reponse 
Range("B11").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
"Semaine de résolution").CurrentPage = reponse 
Range("G11").Select
Sheets("Ticket en cours").Select
Range("B1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Semaine de résolution").CurrentPage = reponse

et voila. Tu peux aussi voir a quoi ressemble un poste avec la balise code !!

[l.escavia]

Bonjour,
J'ai mis résolu car j'ai trouvé la solution dans les discussions similaires ! Je suis désolé d'en avoir crée une, j'aurai dû mieux chercher avant !
Merci quand même d'avoir pris la peine de répondre, et merci pour l'information du "#".
Bonne journée