Discussion :

[mike76]

Bonjour,

Je dois masquer des lignes dans un classeur Excel.
Ca fonctionne bien lorsque dans ma première colonne les cellules ne sont pas fusionnées.

Par contre lorsqu'elles sont fusionnées ça ne fonctionne pas.
Exemple :
Description de ce que j'ai :
Ligne 13
A13 est fusionnée avec A14 et A15

J'enregistre une macro.
Je sélectionne ma ligne 13 et je clique sur Masquer.
J'arrête l'enregistrement.

Ensuite je récupère le code généré par l'enregistrement de la macro :

Code :

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

1
2
3
Rows("13:13").Select
Range("C13").Activate
Selection.EntireRow.Hidden = True

Mais lorsque je veux utiliser cette macro, Excel me masque les lignes 13, 14 et 15.

Savez-vous pourquoi ça ne fonctionne pas ???

D'avance merci pour votre aide

[aalex_38]

Si les lignes 13 14 et 15 sont fusionnées, il me semble normal que le masquage de la ligne 13 fusionne aussi les 14 et 15 !

[mike76]

Merci aalex_38.
Je suis tout à fait de ton avis mais ce qui est surprenant c'est que si je sélectionne ma ligne 13 et que je fais un clic droit et masquer, il n'y a que ma ligne 13 qui est masquée, les lignes 14 et 15 sont visibles.
Donc on doit certainement pouvoir le faire en VBA.

[LeForestier]

Bonjour,
Par VBA je pense que tu doit, dans un premier temps dégrouper les cellules, supprimer la ligne qui t'intéresse et regrouper ce qui reste.
A+

[Invité]

Bonsoir,

Que voulez-vous faire ?
Masquer uniquement la ligne 13 ?

Si oui :

Code :

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

1
2
Range("C13").Activate
Selection.EntireRow.Hidden = True

[mike76]

Merci LeForestier pour ta réponse.

Dommage ça pouvait être si simple.

Comment puis-je faire ça en VBA (je débute) ??
D'avance pour votre aide

[Invité]

Regardez la réponse ci-dessus.
Bien sûr selon le contenu des cellules fusionnées, celui-ci peut être à réadapter.

[mike76]

Merci jacques jean !!!!
ça fonctionne à merveille
bonne soirée

[Bino_Thierry]

Bonjour

ColIdx entier représente le numéro de la colonne à masquer
Columns(ColIdx).Hidden = True