Je suis novice en VBA et j'ai besoin de votre aide. J'ai cherche longuement une reponse a ma question, mais apres quelques heures de recherches je fais appel a votre aide.
Sur la premiere page, on choisit une categorie parmi 4 categories.
J'ai une macro qui telecharge diverses photos selon la categorie selectionnee - sur divers pages representant des sous-categories - et renomme les pages avec le nom de cette sous categorie.
Tout ceci est base sur un tableau croise dynamique. Donc si l'on choisit une categorie (dans la case "selection" ci-dessous) le code ci-dessous permet de modifier un des filtres du tableau. Je veux faire exactement la meme chose pour les sous-categorie (cellule "range") mais cela ne marche pas. Je n'ai pas de message d'erreur mais simplement le filtre dans le tableau croise dynamique ne change pas.
Voici mon code:
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("selection")) Is Nothing Then
a = ActiveSheet.Range("selection").Value
ThisWorkbook.Worksheets("Input").Range("E2") = a
ThisWorkbook.Worksheets("Top subcats").Range("B1") = a
End If
If Not Intersect(Target, Me.Range("range")) Is Nothing Then
b = ActiveSheet.Range("range").Value
ThisWorkbook.Worksheets("Input").Range("E3") = b
End If
End Sub
Merci infiniment pour l'aide que vous pourrez m'appporter.
