critère contenu dans une celllule

[cococh]

bonjour a tous, j'ai ujn souci avec un code VBA. Je veut que dans une macro de trie par fonction de trie d'une liste classique mais en utilisant le comme critère le texte contenu dans la cellule E5. seulement je ne sait pas comment lui dire.
merci d'avance , voici le code actuel, qui ne marche pas.

Sub triermachines()
'
' triermachines Macro
' Macro enregistrée le 19/09/2008 par mecanique
'

'
    Range("C3").Select
    Selection.Copy
    Range("E5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("E2").Select
    
    ActiveWindow.SmallScroll Down:=-6
    Range("A7").Select
    Selection.AutoFilter Field:=1, [U][B][I]Criteria1:="E5"[/I][/B][/U]
    Range("A5").Select
    
    Range("E5").Select
    Selection.ClearContents
    
    Range("E5").Select

 

[wilfried_42]

Re : critère contenu dans une celllule

bonjour

Selection.AutoFilter Field:=1, Criteria1:=range("E5").value

mais tu peux modifier beacoup de choses:

[COLOR="Red"]    Range("C3").Select
    Selection.Copy
    Range("E5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("E2").Select
    [/COLOR]
    ActiveWindow.SmallScroll Down:=-6
 [COLOR="Blue"]   Range("A7").Select
    Selection.AutoFilter Field:=1, Criteria1:="E5"
    Range("A5").Select
    
    Range("E5").Select
    Selection.ClearContents
    
    Range("E5").Select

[/COLOR]
en rouge devient :

Range("E5") = range("C3").value

en bleu devient

range("A7").AutoFilter Field:=1, Criteria1:=range("E5").value
range("A5").clearcontents
range("A5").select

plus de select, le copier / coller est inutile, Gain de temps et plus agreable à regarder (pas de saut d'ecran

 

[cococh]

Re : critère contenu dans une celllule

merci beaucoup!!!!!