Creer une macro qui prend en compte une valeur que je saisi sur une cellule
soniatouns777
Messages postés16Date d'inscriptionmercredi 26 janvier 2011StatutMembreDernière intervention26 février 2011
-
25 févr. 2011 à 12:09
soniatouns777
Messages postés16Date d'inscriptionmercredi 26 janvier 2011StatutMembreDernière intervention26 février 2011
-
25 févr. 2011 à 21:15
Bonjour,
je bloque depuis plusieurs jours,merci de m'aider !!:
J'ai une macro qui récupère des valeurs à partir d'un Tableau croisé dynamique, ma macro selectionne plusieurs champs et les copie colle dans une cellule. Elle selectionne notamment le champ « année » qui est égal à 2010.
Je souhaiterais saisir l'année sur une cellule excel, par exemple 2011, et qu'a partir de ma saisie dans la cellule « A1 » par exemple, ma macro s'execute en récupérant la valeur de l'année que j'ai saisi
A voir également:
Creer une macro qui prend en compte une valeur que je saisi sur une cellule
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 25 févr. 2011 à 12:41
Salut,
intéresse toi aux événements d'une feuille ou du fichier.
Par exemple au niveau du fichier, code de "ThisWorkbook"
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name "Feuil1" And Target.Address(False, False) "A1" Then
Call MaMacro
End If
End Sub
Private Sub Worksheet_change(ByVal Target As Range)
?c est dans la cellule D15 que je souhaite saisir manuellement l'année
If Target.Adress = "$D$15" Then
Windows("suivi budget version 1.2.xls").Activate
Sheets("TCD").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Exercice"). _
CurrentPage = "Target.Adress"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Sens"). _
CurrentPage = "D"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Section"). _
CurrentPage = "F"
Range("B7:B17").Select
Selection.Copy
Windows("tableaux de bord - objectif-1.2.xls").Activate
Sheets("Tableau Fonctionnement").Select
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
en fait, j'ai un fichier avec un tableau croisé dynamique , qui contient un filtre sur plusieurs champs . mais je souhaite saisir manuellement l'exercice qui sera automatiquement prise dans ma macro
merci de ta patience car je ne suis pas calé en programmation, j'essaye de me débrouiller comme je peux.