Discussion :

[MartySalade2]

Bonjour,

J'ai sur une feuil de mon classeur ("saisie") un bouton et je souhaite compter le nombre de lignes non vides triées d'une autre feuil ("data").
Cependant le nombre de lignes renvoyées n'est pas le bon.
Pourriez vous m'aider ?
Cordialement.

Code derrière le bouton sur la feuil ("saisie") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    nblignes = Application.Subtotal(3, Columns("A")) - 1
    MsgBox nblignes

Vous allez me dire que le fait d'utiliser Application.Subtotal va compter les lignes sur la feuil ("saisi") et je suis d'accord mais je n'arrive pas à utiliser la fonction SubTotal sur la feuil ("data"). J'ai essayé d'utiliser WorkSheets("data").SubTotal mais ça ne fonctionne pas

[Menhir]

Il faut indiquer à la zone Columns("A") à quelle feuille elle appartient.
Sinon VBA la considère comme appartenant à la feuille active.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    nblignes = Application.Subtotal(3, Worksheets("data").Columns("A")) - 1

Lire ça : https://docs.microsoft.com/fr-fr/off...ge%28object%29

[MartySalade2]

Merci Mehnir ça fonctionne très bien. J'ai une autre question. Si jamais je souhaites affecter une valeur aux lignes filtrées comment faire ? (je souhaite rajouter une colonne ou je place un "x" pour seulement les lignes respectant le filtre.

Worksheets("data").Cells(I, 1).Value me renverra la première valeur de la ligne non filtrée alors que je veux qu'elle me renvoie la ligne filtrée

[Menhir]

Utilise la méthode SpecialCells(xlCellTypeVisible) pour limiter ta plage aux cellules visibles.
https://msdn.microsoft.com/fr-fr/lib...7(v=office.15)

[MartySalade2]

Dans ce cas je dois utiliser cela ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("data").Range("A1:A1200").SpecialCells(xlCellTypeVisible).Count

Il me renvoie pas le bon nombre de cellule visibles...