Selection des cellules triées par filtre auto

[Chris]

Salut le forum,



Depuis un petit moment je bidouille dans les macro mais la je bloque.

Comment faire pour selectionner une plage de cellules trié par un filtre automatique et nomé cette plage???

Voici le code que j'ai mais il ne fonctionne pas, si qqun à une idée ...

Private Sub CommandButton1_Click()
Dim opt As String

Dim i As Variant
For i = 1 To 21
opt = UserForm1.Controls('TextBox' & i).Text
If UserForm1.Controls('TextBox' & i).Text = '' Then
Exit Sub
Else
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=opt, Operator:=xlAnd
ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select
ActiveWorkbook.Names.Add Name:=opt
Exit Sub
End If
Next i
End Sub


Merci d'avance....

@+ Chris

 

[ptit.homm]

Merci qd même mais ca ne marche tjs pas car qq soit mon filtre il me donne la même valeur qui est une ligne vide deux lignes apres la fin du doc excel c'est a ne rien n'y comprendre.
Je vais essayer de trouver.
Vive Excel :angry:

 

[Bernard_XLD]

Re Bonjour

ActiveWorkbook.Names.Add Name:='resultat', RefersToR1C1:='=' & ActiveSheet.Range(ActiveSheet.AutoFilter _
.Range.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Address).EntireRow.Address( _
ReferenceStyle:=xlR1C1, RowAbsolute:=True, ColumnAbsolute:=True, external:=True)

ce code fonctionne chez moi et retourne bien la ligne entière résultante du filtre auto, tu as quelle version d'excel ?
:huh:

A+