Lignes cachées

Bonjour à tous !

Je me trouve en difficulté pour faire marcher une petite macro permettant de m'indiquer si des lignes sont masquées dans un classeur de plusieurs feuilles.

J'ai commencé ces quelques lignes mais ça ne fonctionne pas :

Est ce que quelqu'un pourrait jeter un oeil ?

Merci !!

Sub Lignescachees()

Dim Sht As Worksheet

For Each Sht In ThisWorkbook.Sheets

If Rows.Hidden = True Then

MsgBox ("Attention lignes cachées")

End If

Next Sht

End Sub

Bonjour

Que penses-tu de celà?

Sub NbLignesMasquees()

Nb = 1048576 - Range("A:A").SpecialCells(xlCellTypeVisible).Count

If Nb <> 0 Then

MsgBox ("Attention " & Nb & " Lignes Masquées")
End If
End Sub

@+

Merci Berbard22,

J'ai rajouté la 2e ligne :

Sub NbLignesMasquees()

Dim nb As Integer

nb = 1048576 - Range("A:A").SpecialCells(xlCellTypeVisible).Count

If nb <> 0 Then

MsgBox ("Attention " & nb & " Lignes Masquées")

End If

End Sub

Quand j’exécute la macro il m'indique "un dépassement de capacité".

J'ai essayer de réduire cette valeur 1048576.

As-tu une petite idée du problème ?

Merci !

Bonsoir,

1048576 est le nombre maxi de lignes sur EXCEL 2013. Su excel 2010 c'est la meme chose je crois.

Par contre sur les versions antérieures c'était 65536. Voir si ton fichier ne serait pas enregistré sous une version compatible (.xls).

Dans ce cas tu mets 65535 ou tu le converti en .XLSX.

Le code ne marche malheureusement pas il met en permanence qu'il y a 1 ligne de masquée

(cas où il y en à plusieurs et cas où il n'y en a aucune)...

Auriez-vous une autre idée ?

Merci

Bonsoir,

Regarde le fichier.

Chez moi ça marche, que ce soient des lignes masquées par un filtre ou manuellement

@+

11classeur1.xlsm (16.33 Ko)

Oui effectivement, je comprend d'où viens le problème.

Le bouton qui lance la macro se trouve sur la première feuille de mon classeur qui comporte 25 feuilles.

Je vais essayer de l'appliquer sur toutes les feuilles de mon classeur.

Merci

Bonsoir,

Copie le code dans nouveau module.

4classeur2.xlsm (22.06 Ko)

Il ne s'agit pas d'une macro par feuille mais d'un bouton + une macro pour le classeur entier.

Avec la fonction "For each sheet in this worksheets" par exemple est-ce possible d'y arriver?

Merci

Bonsoir,

Nouvel essai

6classeur3.xlsm (28.12 Ko)
Rechercher des sujets similaires à "lignes cachees"