Filtres élaborés avec ou sans extraction

Bonjour,

Je viens de créer une macro me permettant, par le biais de la fonction filtre élaboré, d'extraire des données.
Cette extraction vient alimenter ma feuille "Synthese", elle peut varier de 0 à 5 lignes sans compter la ligne des titres.

Comment faire lorsqu'aucune extraction ne se fait car elle ne correspond pas aux critères demandés que je puisse avoir sur la ligne sous les titres (ligne 25 de D à N), une phrase disant : "aucune extraction pour votre demande" et que cette phrase soit fusionnée de la colonne D26:N26

Voici une copie écran des 2 possibilités.
Pièce jointe 207058

Cordialement

Salut,

je te propose une solution simple. Il y aura certainement plus élégant mais c'est déjà çà.

Code:

---

1 2 3 4

If Range("D25").Value = "" Then Range("D25"). = "Vide" Range("D25:N25").Merge End If

---

j'ai testé, la fusion de cellule n'a pas d'effet sur le prochain filtre.

@jerome.vaussenat

Merci à toi, j'ai testé mais avec Value en plus en ligne 2, c'est mieux. :?

Code:

---

1 2 3 4

If Range("D25").Value = "" Then Range("D25"). Value = "Vide" Range("D25:N25").Merge End If

---