[VBA] Mettre à jour un segment en fonction d'une liste filtrée

Question

Je viens à vous car j'ai un petit soucis. J'ai un tableau de données qui est alimenté toutes les deux semaines et j'ai appliqué un filtre sur ce tableau. Mon problème : Après que ma macro applique le filtre sur ce tableau, j'aimerais qu'elle les cellules résultantes de ce filtre apparaîssent dans mon segment et uniquement celles-ci. Est-ce possible ? Pouvez-vous m'aider ? Si vous avez besoin de plus d'informations, je reste à disposition. Je vous met un fichier expliquant ce que je n'arrive pas à faire. Cordialement...

78chris · Answer

Cross post pris en main ailleurs par Hasco A noter que le profil n'est pas à jour puiqu'ailleurs est signalée 2016...

21Formatic · Answer

Arf, je bossais dessus. Merci ...

21Formatic · Answer

Pour info, j'étais arrivé à ça ...

Sub Macro1()
'
Dim oSegment As SlicerItem, tablo() As Variant
LRow = Range("A1", Range("A1").End(xlDown)).Rows.Count
ActiveWorkbook.SlicerCaches("Segment_Prénoms").ClearManualFilter
ReDim Preserve tablo(LRow)
x = 0
For i = 2 To LRow
    If Rows(i).Hidden = False Then
    tablo(x) = Cells(i, 2).Value
    x = x + 1
Else: End If
Next i

For Each oSegment In ActiveWorkbook.SlicerCaches("Segment_Prénoms").SlicerItems
    If IsError(Application.Match(oSegment.Name, tablo, 0)) Then oSegment.Selected = False
Next oSegment

End Sub

Si l'autre solution est meilleure, ce dont je ne doute pas, je suis preneur.

78chris · Answer

En fait on remet les choses à plat car il est probable que pour arriver à la finalité réelle, ce n'est pas forcément le meilleur chemin... L'exemple est, comme souvent, peu représentatif donc on creuse encore.....

21Formatic · Answer

Qu'est-ce que je peux haïr les gens comme Delsart59 ...

78chris · Answer

Tu te fais du mal pour rien : je les oublie vite (y compris s'ils reviennent) Bonne journée...