Witold2008
XLDnaute Nouveau
Bonjour,
Je suis sur Excel 2002
J'ai un problème, j'ai un nom d'un champ que je rempli et que je réussi à changer via macro par:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, _
Range("D6")) Is Nothing Then
Dim Selection_Liste As String
Selection_Liste = Range("D6").Value
Sheets("InfoBP").PivotTables("InfoBP").PivotFields("NomProjet").CurrentPage = Selection_Liste
End If
End sub
Mais je n'arrive pas à mettre d'autres variables pour changer d'autres TCD (Temps; Contrat; Lettre) à partir de celulles (D9; D11; D13)qui changent de valeurs selon mon choix que j'ai fait dans mon premier tableau (InfoBP avec la cellule D6)
Est-ce que quelqu'un peut m'aider?
Je suis sur Excel 2002
J'ai un problème, j'ai un nom d'un champ que je rempli et que je réussi à changer via macro par:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, _
Range("D6")) Is Nothing Then
Dim Selection_Liste As String
Selection_Liste = Range("D6").Value
Sheets("InfoBP").PivotTables("InfoBP").PivotFields("NomProjet").CurrentPage = Selection_Liste
End If
End sub
Mais je n'arrive pas à mettre d'autres variables pour changer d'autres TCD (Temps; Contrat; Lettre) à partir de celulles (D9; D11; D13)qui changent de valeurs selon mon choix que j'ai fait dans mon premier tableau (InfoBP avec la cellule D6)
Est-ce que quelqu'un peut m'aider?