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

[Usine à gaz]

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,

 

[phlaurent55]

Bonjour Lionel,

Quelle que soit ma demande, il m'affiche toujours entre 994 et 999 lignes.

dans le fichier tel que je l'ai découvert, quelle devrait être la réponse ?

à+
Philippe

 

[phlaurent55]

Re,

S'agit-il de compter le nombre de cellules non-vides en colonne I ?
dans ce cas utilise ceci:
For Each Cel In Range("I3:I" & i)

à+
Philippe

 

[mapomme]

Bonsoir,

Tu peux essayer ce code:

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

 

[Usine à gaz]

Bonjour Philippe,

J'ai fait la modif mais ça ne marche pas.
Pour vérifier, j'ai mis un contrôle de la colonne R à Y qui me donne le nombre de lignes que le code devrait m'afficher.
Je cherche encore LOL.
Fichier avec contrôles en pièce jointe.
Amicalement,
Lionel,

 

[Usine à gaz]

Bonsoir mapomme,
J'ai essayé mais ça na marche pas.
peut-être ce serait mieux de partir du fichier ci-dessus dans lequel j'ai mis un contrôle;
Amicalement,
Lionel,

 

[Usine à gaz]

Re-Philippe,

Je reviens pour vous dire que c'est le nombre de lignes affichées de la colonne G

 

[Paf]

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+

 

[Usine à gaz]

Bonsoir Philippe, Mapomme, Paf,

Merci à vous trois et avec les éclaircissements de paf, ça marche super bien.
Je joins pour tous le fichier corrigé.
Bonne fin de soirée,
Amicalement,
Lionel,