Probleme avec auto filter

Version imprimable

Bonjour,

Dans mon programme Vba, j'utilise autofilter pour filtrer mon fichier.

mon problème est que je n'arrive pas à savoir si mon filtre ne remonte aucune ligne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'WS_PC est un objet worksheet qui pointe sur ma feuille ou je filtre 'LAstlig_PC est le numero de la dernière ligne active de ma base de données WS_PC.Range("A1:AV" & Lastlig_PC).AutoFilter Field:=13, Criteria1:="12" WS_PC.Range("A1:AV" & Lastlig_PC).AutoFilter Field:=17, Criteria1:="Type_sejour" If WS_PC.Range("A1:AV" & Lastlig_PC).SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then WS_devis.Range("A18") = WS_PC.Range("A2:AV" & Lastlig_PC).SpecialCells(xlCellTypeVisible).Cells(1, 23) Else msgbox ("probleme : le filtre ne remonte aucune ligne") End if
mon problème est que mon filtre remonte 1 ligne ou ne remonte aucune ligne : la ligne de commande WS_PC.Range("A1:AV" & Lastlig_PC).SpecialCells(xlCellTypeVisible).Rows.Count remonte toujours 1 donc il rentre toujours dans ma boucle avec mon message d'erreur :(

je ne comprends pas ce qui ne marche pas.

Merci de votre aide :-)

Elodie

05/03/2019, 08h53
Menhir

Comment est calculé Lastlig_PC ? Vérifie sa valeur avant le test.
Vérifie ce que renvoie WS_PC.Range("A1:AV" & Lastlig_PC).Rows.Count.

Je le calcule à l'ouverture de mon fichier :

Code:

1
2
3
4
5
6
7
8
 
 Call Workbooks.Open(Filename:=monFICHIER, UpdateLinks:=0)
    Set WB_PC = ActiveWorkbook
    Set WS_PC = Worksheets("MS")
 
  'apres avoir ouvert le fichier, on recupere la derniere ligne du fichier
  WS_PC.AutoFilterMode = False
  LastLig_PC = WS_PC.Cells(WS_PC.Rows.Count, "A").End(xlUp).Row

05/03/2019, 12h01
zenpbb

Bonjour,
Le problème c'est que ton SpecialCells te renvoie une plage discontinue (Areas) et que la propriété Rows ne renvoie que le nombre de lignes de la première Area qui correspond généralement uniquement à la ligne d'entête (sauf si la première ligne de données est affichée).
Essaie donc comme ça (compter les cellules visibles sur une seule colonne)

Code:

If WS_PC.Range("A1:A" & Lastlig_PC).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
05/03/2019, 12h50
elodc

ouiiii ca marche !!

merci beaucoup !! ca fait des heures que j'essaie peins de trucs qui ne marchent pas !!

je vais relire ton explication par contre, car je n'ai pas trop compris pourquoi ça marche mieux que ce que j'avais tapé.

:lol: