Rebonsoir,
J'ai déclaré la variable i, i= nb.si(r2:r6;VRAI)
Mais... j'ai dû faire une bêtise quelque part car le macro ne fonctionne pas
Vous pouvez m'aider
Voici le code modifié, j'espère ne pas paraître trop nulle, mais c'est ma première tentative...
Sub EXTRAIRE()
'
' EXTRAIRE Macro
' Macro enregistrée le 07/03/2005 par Anynoor
Sheets('Données extraits').Select
Dim I As Integer
I= nb.si(r2:r6;VRAI)
Cells.Select
Selection.EntireRow.Hidden = False
Range('A2:F6').Select
Selection.Sort Key1:=Range('B2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range('D10').Select
Range('BD').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('A1:Q' & I), CopyToRange:=Range('A10'), Unique:=False
Rows('1:9').Select
Range('A9').Activate
Selection.EntireRow.Hidden = True
End Sub
Merci
Anynoor