Discussion :

[Gwilym]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[Gwilym]

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

[Menhir]

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.

[patricktoulon]

bonsoir
rien de plus simple au contraire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gwilym]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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