CTRL+SHIFT+flèche bas dans variable ap filtre

Fermé
vince_nus - 20 juin 2012 à 15:37
bonjour à tous,

je souhaiterai faire la chose suivante :
- filtrer sur la colonne C, tout ce qui comment par C
- aller en R3
- descendre de 1 ligne dans la même colonne
- et à partir de cette cellule, faire un ctrl+shift+flèche du bas
- mettre de nb de valeurs de cette sélection dans une variable --> c'est là que je bloque

voici le code :



'comptage cellule verte
Windows(WBA).Activate
Sheets("E1_livrables").Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$AB$35").AutoFilter Field:=3, Criteria1:="=C*", _
Operator:=xlAnd
Range("R3").select
ActiveCell.Offset(1, 0).Activate
Range(Selection, Selection.End(xlDown)).Select --> nbrs de valeurs dans une variable ???????

Dim aaa As Range, nbv As Long
nbv = 0
For Each aaa In Range(plage)
If aaa.Interior.ColorIndex = clVert Then nbv = nbv + 1
Next
Windows(WBO).Activate
Range("G3").Value = nbv



Merci
windows xp pro, excel vba 2007