Boucle For Each

[Denis491018]

Bonjour,

Je souhaite Masquer les lignes selon le contenu (vide) des cellules d'une zone sélectionnée. Ma macro s'interrompt à l'instruction Hidden. Quel est mon problème. Merci.

Sub test()

Sheets("Activités").Select
Range("B1:B100").Select

For Each cell In Selection
If cell.Value = "" Then
cell.EntireRow.Hidden = True
End If
Next

End Sub

 

[Papou-net]

Re : Boucle For Each

Bonsoir Denis491018, et bienvenue à toi,

J'ai testé ta macro, elle fonctionne parfaitement chez moi;

Peux-tu joindre ton fichier ?

Cordialement.


Edit : oups, bonsoir CC. Au plaisir de te re-croiser.

 

[Denis491018]

Re : Boucle For Each

Merci de tenter de m'aider.

À la ligne, cel.EntireRow.Hidden = True, j'obtiens le message suivant: Impossible de définir la propriété Hidden de la classe Range.

Merci

 

[Denis491018]

Re : Boucle For Each

Eureka ...
J'ai trouvé ... il y avait une protection sur le feuille rendant impossible l'exécution de la commande masquer.
Je vous remercie
denis491018

 

[Papou-net]

Re : Boucle For Each

re

salutation papou-net

j'ai raccourci le code , mais, en effet le code de Denis491018 fonctionne 😕

Salut CC,

Tu as raison, et moi aussi j'aime les raccourcis.

Pour ma part, j'aurais écrit :

Sub test()
Range("B1:B100").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

A +