Nombres de valeur dans une colonne filtrée

Fermé
vince_nus - 19 juin 2012 à 15:16
bonjour à tous,

voici un code que j'ai crée et qui me permet de récup des infos d'un fichier (WBA) vers un fichier de synthèse (WBO). Au début tout se passe, quand je fais un 1er filtre perso sur la colonne C pour les valeurs commençant par C puis en colonne F pour retirer les cellules vides. compte le nombre de valeurs à partir de F3 et je retire 1.

Mon problème est quand je recommence mais en modifiant le 1er critère du filtre (commence par F au lieu de C) et idem en F, je retire les cellules vides. Ben il trouve 28 valeurs (nbrs de valeurs totales dans la colonne F) et non 1 cellule remplie qui correspond à mes criètres de filtres.?? d'où peut venir le problème

Sub test()

WBO = ActiveWorkbook.Name
Application.Workbooks.Open "C:\Documents and Settings\k004418\Bureau\PAQD\Fichier global de suivi PAQD LEAP.xlsm"
WBA = ActiveWorkbook.Name

''''DBP1''''
'CONCEPTION'
''''''''''''
'ETAPE 1
Sheets("E1_livrables").Select
Rows("3:3").Select
Selection.AutoFilter
Range("C3").Select
ActiveSheet.Range("$A$3:$AB$35").AutoFilter Field:=3, Criteria1:="=C*", _
Operator:=xlAnd
ActiveSheet.Range("$A$3:$AB$35").AutoFilter Field:=6, Criteria1:="<>"
a = Range("F3", Range("F3").End(xlDown)).Count - 1 'compte le nbrs de valeurs dans la colonne C
Windows(WBO).Activate
Sheets("DBP1").Select
Range("E3").Value = a

''''DBP1''''
''FONDERIE''
''''''''''''
'ETAPE 1
Windows(WBA).Activate
Sheets("E1_livrables").Select
Rows("3:3").Select
Selection.AutoFilter
Selection.AutoFilter
Range("C3").Select
ActiveSheet.Range("$A$3:$AB$35").AutoFilter Field:=3, Criteria1:="=F*", _
Operator:=xlAnd
ActiveSheet.Range("$A$3:$AB$35").AutoFilter Field:=6, Criteria1:="<>"
e = Range("F3", Range("F3").End(xlDown)).Count - 1 'compte le nbrs de valeurs dans la colonne C
Windows(WBO).Activate
Sheets("DBP1").Select
Range("E14").Value = e
End Sub



Merci pour votre aide
Excel 2007, windows xp pro