Boucle sur Segment

Bonjour,

J'utilise actuellement une macro qui permet d'envoyer automatiquement par mail un TCD chaque mois.

Les données du TCD sont filtrées par 2 segments, un segment qui filtre sur le mois et un autre qui filtre sur le nom de l'agent à qui correspond les données.

L'envoie du mail se fait par une boucle sur un segment qui contient les noms des personnes. Cependant d'un mois à l'autre un agent peut ne pas avoir de données à envoyer, cependant lors de l'exécution de la macro, le nom de l'agent avec des éléments sans données, bien que masqués au niveau du segment, est utilisé pour l'envoie du mail, et donc la personne reçoit un mail sans données.

Y-a t'il un critère ou une condition à rajouter dans mon code afin que les éléments sans données du Segment soit écartés lors de la boucle permettant l'envoie des mails.

Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim nom Dim i As Integer Dim j As Integer   With ActiveWorkbook.SlicerCaches("Segment_Agents_de_saisie") .ClearManualFilter .ClearManualFilter For i = 2 To .SlicerItems.Count .SlicerItems(i).Selected = False Next i For i = 1 To .SlicerItems.Count - 1 .SlicerItems(i).Selected = True   nom = .SlicerItems(i).Name     'CODE POUR GENERATION DE LA PICE JOINTE ET ENVOIE DU MAIL   .SlicerItems(i + 1).Selected = True .SlicerItems(i).Selected = False Next i   .ClearManualFilter End With

---

Bonjour,

Regarde la priopriété HasData de ton sliceritem
https://msdn.microsoft.com/fr-fr/vba...property-excel

Bonjour Halaster08,

Merci pour ta réponse c'est effectivement la propriété Hasdata qui permet de gérer les éléments sans données de mon Segment.

J'ai donc rajouter la ligne suivante en début de code et l'envoie de mail sans données ne se fait plus.

Code:

---

If .SlicerItems(i).HasData = True Then

---

Merci