Discussion :

[mouftie]

Bonjour,
Dans un usf de consultation, qui filtre sur la référence client saisie ; puis il y a un bouton "Modif" qui ouvre un nouvel USF, envoie un message oui / non.
Oui : envoie un InputBox pour connaître le nouveau nom du client, qu'il faut ensuite modifier sur toutes les lignes le concernant.
pour connaître la 1ère ligne filtrée, j'ai essayé

Code :

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

1
2
3
4
5
6
With Range("TbSv")
            LgMm = .SpecialCells(xlCellTypeVisible).Rows.Count
            Range("A8:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Select
            LgMm = ActiveCell.Rows
           LgMm = Sheets("SRA").AutoFilter.Range.Columns(1). _
                SpecialCells(xlCellTypeVisible).Rows.Count

Aucune de ces méthodes fonctionnent.
Est-ce que quelqu'un voit ce qui ce passe ?
Merci d'avance

[Marc-L]

Bonjour,

les lignes n°3, 4, 5 & 6 n'ont aucun sens !

La ligne n°2 pourrait en avoir un si appliquée à la bonne plage de cellules de la bonne feuille de calculs …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[mouftie]

Bonjour Marc,
Merci pour ta réponse,
Comme je l'ai dit dans mon message initial, toutes ces lignes ne sont que des testes qui ne fonctionnent pas.
D'habitude, j'utilise la méthode de la ligne 2, mais ici, cela ne fonctionne pas.

La ligne n°2 pourrait en avoir un si appliquée à la bonne plage de cellules de la bonne feuille de calculs …

Chez moi, il s'agit d'une table référencée : With Range("TbSv"), donc le code s'applique bien à la bonne plage et sur la bonne feuille.
Est-ce qu'il peut y avoir une explication par le fait que les filtres sont mis à travers un USF ?

[Marc-L]

Edit : en fait c'est juste une mauvaise utilisation de SpecialCells !

Il faut boucler sur chaque Area pour sommer le nombre de lignes …

Et donc en réchauffant une paire de neurones pour juste une colonne pas besoin de boucle
car ce n'est pas .Rows.Count mais logiquement .Cells.Count pour la ligne n°2 ! … … …

[mouftie]

Bonsoir Marc,

car ce n'est pas .Rows.Count mais logiquement .Cells.Count pour la ligne n°2 !

Effectivement, cela fonctionne mieux ; je ne comprends pas bien, même si je fais la différence entre cells et rows.
Merci

[Marc-L]

Admettons que les lignes visibles du Range sont les n°3, 5 & 6, 8 & 9 …
Avec SpecialsCells sur une colonne Rows.Count retournera 1 (le nombre de lignes du premier objet Area (ligne n°3)
tandis que Cells.Count prend bien en compte l'intégralité des cellules de la colonne, à savoir ici 5 …