macro filtrer liste selon valeur cellule

[carlos]

Bonsoir ,

j'utilise ce code pour filtrer une liste d'apres un critere "4 5" dans ce cas .
j'aimerais MODIFIER ce critere directement en fonction de la valeur d'une cellule nommée "gréussi" .


Sub NouvelleListe()
Selection.AutoFilter Field:=3, Criteria1:="4 5"
Range("A4").CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Copy
Sheets("classe").Select
Range("a4").Select
ActiveSheet.Paste
End Sub

Merci

 

[Lord Nelson]

Salut Carlos,

Essaie ceci :

Selection.AutoFilter Field:=3, Criteria1:=Range("gréussi").Text

A+
Horatio

 

[imanuelga]

bonsoir,

Dans ta macro déclare une variable (créussi par ex) puis attribue à ta variable la valeur de ta cellule gréussi , puis trie en fonction de ta variable créussi

en gros çà dois donner ceci :

Sub NouvelleListe()
Dim créussi as string ' 4 5 es t bien du texte, n'est-ce pas ?

créussi.valu=Gréussi.value ' ou cells(,).value
Selection.AutoFilter Field:=3, Criteria1:=créussi
Range("A4").CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Copy
Sheets("classe").Select
Range("a4").Select
ActiveSheet.Paste
End Sub

 

[carlos]

Un grand merci à imanuelga ; Wilfried et Lord Nelson pour vos différentes propositions .

Comme quoi l'informatique est un jeu de creation .