Bonjour,
Cela fait des jours que je bloque sur ma macro qui a pour but d'appliquer le même le filtre sur mes quatre segments. J'ai une macro qui fonctionne mais cependant mon code fait que l’exécution est trop long a cause des boucles car le code fait que je parcours toute une liste de pays et sur 4 segments ça le fait pas trop..
Comme vous pouvez le remarquer j'ai réussi a placer un Exit For pour éviter qu'il continue a boucler une fois qu'il a trouvé la valeur toto que l'utilisateur entre dans une cellule d'une autre onglet.
J'aimerai trouver l'équivalent lorsqu'il désélectionne l'ancien filtre, ici il est obliger de tout parcourir le Exit For ne fonctionne pas car la première boucle rencontrera la condition et en sortira sans passer sur l'ancien filtre.
J'ai ce même code pour les 3 autres segments..
Merci d'avoir pris le temps de lire mon post.
Cela fait des jours que je bloque sur ma macro qui a pour but d'appliquer le même le filtre sur mes quatre segments. J'ai une macro qui fonctionne mais cependant mon code fait que l’exécution est trop long a cause des boucles car le code fait que je parcours toute une liste de pays et sur 4 segments ça le fait pas trop..
Code:
Dim toto As String
With ActiveWorkbook.SlicerCaches("Segment_COUNTRYCODE1")
Set k = ActiveWorkbook.SlicerCaches("Segment_COUNTRYCODE1")
Sheets("Selection").Select
toto = Range("C3").Value
Sheets("OngletFinal").Select
For i = 1 To .SlicerItems.Count
If k.SlicerItems(i).Name = toto Then
k.SlicerItems(i).Selected = True
Exit For
End If
Next i
For i = 1 To .SlicerItems.Count
If k.SlicerItems(i).Name <> toto Then
k.SlicerItems(i).Selected = False
End If
Next i
End With
Comme vous pouvez le remarquer j'ai réussi a placer un Exit For pour éviter qu'il continue a boucler une fois qu'il a trouvé la valeur toto que l'utilisateur entre dans une cellule d'une autre onglet.
J'aimerai trouver l'équivalent lorsqu'il désélectionne l'ancien filtre, ici il est obliger de tout parcourir le Exit For ne fonctionne pas car la première boucle rencontrera la condition et en sortira sans passer sur l'ancien filtre.
J'ai ce même code pour les 3 autres segments..
Merci d'avoir pris le temps de lire mon post.
Dernière édition: