Discussion :

[JM741]

Bonjour à tous,

Ce problème a déjà été traité dans ce forum il y a peu mais je ne parviens pas à retrouver la discussion le concernant.
Donc, dans une feuille j'ai une base de données déclarée comme liste à l'aide du menu Données/Liste/Créer une liste.
Dans une macro je sélectionne des enregistrements de cette liste à l'aide de Autofilter et je copie les enregistrements sélectionnés dans une autre feuille. Tout va bien sauf lorsque le résultat du filtrage est vide: dans ce cas c'est toute la base qui est copiée au lieu de rien.

Merci d'avance pour votre aide
JM741

[NVCfrm]

bonjour,
il y a pas mal d'approches.
_La fonction SubTotal tient compte seulement des lignes visibles d'un filtre. Un test.
_La propriété SpecialCells(xlCellTypeVisible).Rows.Count renvoi le nombre de lignes visibles. Elle génère une erreur s'il n'y a pas de lignes visible de la plage.

Une autre solution (que je préférée). exemple:

Code :

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

1
2
3
4
5
6
 
if maPlage.End(xlDown).Row <= maPlage.Rows.Count then
    'des données sont presentes
else
     ' il n'y a pas de résultat
end if

[JM741]

Merci beaucoup pour ces informations, je vais les noter dans mon fichier 'aide' pour ne plus avoir à les demander.

Cordialement
JM741