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 : Sélectionner tout - Visualiser dans une fenêtre à part
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