Variabe dans une macro

Bonjour,

Je suis novice dans les macros Excel et je vous expose mon blocage :

Je souhaite utiliser la valeur d'une date (cellule "B1" exemple : 20121008) pour faire un tri dans un nouvel onglet.

J'ai donc enregistré une macro manuellement et je souhaite la modifier afin qu'elle fonctionne quelque soit la date entrée en "B1".

Je vous joins la macro enregistrée et la modification que je souhaite y apporter :

Macro d'origine :

Sub test()
' test Macro
    Sheets("Feuil1").Select
    Range("B1").Select
    Selection.Copy
    Sheets("Feuil2").Select
    ActiveSheet.Range("$A$1:$B$13").AutoFilter Field:=2, Criteria1:= _
        ">=20121008", Operator:=xlAnd
End Sub

Macro modifiée :

Sub test()
' test Macro
    Dim maj110 As Long

    Sheets("Feuil1").Select
    maj110 = Range("B1")
    Sheets("Feuil2").Select
    ActiveSheet.Range("$A$1:$B$13").AutoFilter Field:=2, Criteria1:= _
        ">=maj110", Operator:=xlAnd
End Sub

Mon soucis est que la variable maj110 est bien égal à ma date (vérifié par un espion) mais dans pour le tri la val est maj110 et non la valeur de la date ?

Avez vous une solution pour que mon tri s'effectue bien avec la valeur de "B1" quelque soit cette valeur ?

Merci

JcditJo

Il faut écrire :

Merci d'utiliser la balise "Code" dans tes messages pour citer du code VBA

ActiveSheet.Range("$A$1:$B$13").AutoFilter Field:=2, Criteria1:= _
 ">="maj110, Operator:=xlAnd
End Sub

A+

Ok Galopin01 : 1er Message édité.

Par contre ta solution (en déplaçant le ") me retourne :

Erreur de compilation : Attendu : fin d'instruction

JcditJo

Mea Culpa !

ActiveSheet.Range("$A$1:$B$13").AutoFilter Field:=2, Criteria1:= _
 ">=" & maj110, Operator:=xlAnd
End Sub

la macro optimisée :

Sub test()
Dim maj110&
    maj110 = Sheets("Feuil1").Range("B1")
    Sheets("Feuil2").Range("$A$1:$B$13").AutoFilter Field:=2, Criteria1:= _
        ">=" & maj110, Operator:=xlAnd
End Sub

A+

Macro débloquée. Un grand merci .

JcditJo