Afficher/masquer en vba et cellules fusionnées

Bonjour à tous ceux qui passerons par ici,
après avoir arpenté le forum depuis un bout de temps je ne trouve pas de réponse a mon cas...
c'est pourquoi je me tourne vers vous aujourd'hui.

J'ai la macro suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Cacher2()     Dim cell As Range For Each cell In Range("f104:f200") If cell.Value = "?" Then cell.EntireRow.Hidden = True Next cell     End Sub

---

qui me sert dans une de mes feuille à cacher des lignes

Sauf que dans une autre feuille elle ne fonctionne pas car contrairement a la précédente j'ai des cellule fusionné...

si elle cache bien la première ligne elle ne cache pas la deuxième...

Suis je clair ?

Une idée Géniale pour m'aider ?

Merci pour votre temps passée a lire mon post

et merci d'avance pour votre éventuelle réponse

EDIT : j'ai oublié de dire que j'étais sous excel 2010

Citation:

---

Envoyé par Gwilym

contrairement a la précédente j'ai des cellule fusionné...

---

Mauvaise idée.
La fusion de cellule, il n'y a rien de tel pour venir mettre de l'embrouille dans un code. Ton cas confirme cet adage.

Je sais bien. Je voulais faire sans mais impossible de faire sans...
Sinon mon tableau déjà relativement grand aurait été encore plus imbuvable

Citation:

---

Envoyé par Gwilym

Je sais bien. Je voulais faire sans mais impossible de faire sans...

---

Le problème c'est que, d'après ce que tu décris, il est également "impossible de faire avec".
Ton problème n'est donc plus technique : c'est une décision à prendre entre deux choix dont aucun n'est satisfaisant mais qu'il faudra quand même accepter.

bonsoir
rien de plus simple au contraire;)

Code:

---

1 2 3 4 5 6

Sub Cacher2() Dim cell As Range For Each cell In Range("f2:f20") If cell.Value = "?" Then cell.MergeArea.EntireRow.Hidden = True Next cell End Sub

---

quand tu boucle sur les cells tu boucle vraiment sur les cells et pas les arrangement par fusion

la proprité "mergeaera" te donne le range fusionné

exemple f3:f6 fusionné dans la boucle cell te donnera f3 puis f4 puis f5 puis f6

si tu fait cell.mergearea ca te donnera f3:f6 4 fois dans ta boucle

il faut savoir que la valeur dans une fusion est dans le cells(1) donc quand tu boucle sur cell et quand il tombe sur f4 ou f5 ou f6 il passe le tour puisque c'est deja fait en etant passé par la cells(1)dans le tour de boucle precedent

non rien de compliqué vraiment
tout simplement
;)

Citation:

---

Envoyé par patricktoulon

Code:

---

1 2 3 4 5 6

Sub Cacher2() Dim cell As Range For Each cell In Range("f2:f20") If cell.Value = "?" Then cell.MergeArea.EntireRow.Hidden = True Next cell End Sub

---

---

Un grand merci cela fait longtemps que je cherche cette solution. j'avais bien croiser "mergearea" sur d'autre forum mais pas avec une explication de qualité comme la votre.

Avec tout mes remerciement pour avoir fait évoluer mon tableau une nouvelle fois