Boucle For Each

Papou-net

XLDnaute Barbatruc

• 6 Juillet 2012

• #2

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.

 

Vote positif 0 Vote négatif

D

Denis491018

Guest

• 6 Juillet 2012

• #3

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

 

Vote positif 0 Vote négatif

D

Denis491018

Guest

• 6 Juillet 2012

• #4

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 6 Juillet 2012

• #5

Re : Boucle For Each

carcharodon-carcharias à dit:

re

salutation papou-net

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

Cliquez pour agrandir...

Salut CC,

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

Pour ma part, j'aurais écrit :

Code:

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

A +

 

Vote positif 0 Vote négatif