Discussion :

[elodc]

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

[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.

[elodc]

Je le calcule à l'ouverture de mon fichier :

Code :

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

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

[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 :

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

If WS_PC.Range("A1:A" & Lastlig_PC).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then

[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é.