XL 2010 Résolu par la communauté : UserForm Nbr de lignes "AFFICHEES"

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

J'ai un code et userForm qui me donne un nombre de ligne "en cours'.
Je ne sais plus qui me l'a transmis ou qui me l'a donné (Merci à cet inconnu de moi aujourd'hui)
Il me serait très utile que le nombre de lignes indiqué soit le nombre des lignes affichées.
Quelle que soit ma demande, il m'affiche toujours entre 994 et 999 lignes.

J'ai tenté de modifier mais je n'y suis pas arrivé.
Auriez-vous une idée de magicien ?

Encore merci pour toutes vos aides précieuses et "enseignantes".
je joins un fichier test.
Amicalement,
Lionel,
 

Pièces jointes

Bonsoir,

Tu peux essayer ce code:
VB:
Sub comptevide()
Dim i&, j&, nbcel&, tablo, aux
   i = Range("g3").End(xlDown).Row
   If i <= 2 Then Exit Sub
   tablo = Range("k3:q" & i).Value

   For i = 1 To UBound(tablo)
      aux = ""
      For j = 1 To UBound(tablo, 2): aux = aux & tablo(i, j): Next j
      aux = Replace(aux, "0", "")
      If Len(Replace(aux, " ", "")) > 0 Then nbcel = nbcel + 1
   Next i
   MsgBox ("nbr lignes affichées : " & nbcel)
End Sub
 
Bonjour à tous,

pour que le nombre de ligne indiqué soit le nombre de lignes affichées, il faut faire le 'calcul' sur les lignes visibles.

For Each Cel In Range("g3:g" & i).SpecialCells(xlCellTypeVisible)

et, si on ne veut pas compter les lignes sans qualificatif en colonne I, adoptez le code de phlaurent55 (post 3), assorti de .SpecialCells(xlCellTypeVisible)

Pour fonctionner, la feuille doit être déprotégée (puis reprotégée en fin de code).

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour