Erreur 1004 Impossible de définir la propriété Pattern

Bojnour ,

Je suis actuellement entrain de faire un filtre pour piece de rechange.

Je marque le nom d'une machine dans une pages et ça me copie/colle les pièces de l'autres pages, j'ai réussi a faire un bouton ' effacer' afin de supprimer le resultat.

J'ai du changer les titres de mes colonnes et depuis le bouton effacer ne marche plus :

Erreur d'exécution '1004' : Impossible de définir la propriété Pattern de la classe INTERIOR

Voici le petit code :

Sub Macro25()
'
' Macro25 Macro
'

'
    Sheets("2eme").Columns("A:M").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Feuil2!Criteria"), CopyToRange:=Range("A4:M12000"), _
        Unique:=False
    ActiveWindow.SmallScroll Down:=-42
End Sub
Sub Macro26()
'
' Macro26 Macro
'

'
    Range("A2:M2").Select
    Selection.ClearContents
    Range("A3:M12000").Select
    Range("M4").Activate
    With Selection.Interior
    .Pattern = xlNone
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.ClearContents
    Range("N3").Select
End Sub

Merci de m'aider !!! =)

Bonjour

Code à essayer

Sub Macro26()
'
' Macro26 Macro
Range("A2:M2").ClearContents
With Range("A3:M12000")
    .Interior.ColorIndex = xlNone
    .Borders.LineStyle = xlNone
End With
Range("N3").Select
End Sud

Dans le code Macro 25, enlevez cette ligne -> ActiveWindow.SmallScroll Down:=-42

Si ok et terminé, merci de clôturer le fil en cliquant sur le V vert à coté du bouton EDITER lors de votre réponse.

EDIT Dan : à la fin de code, Lire END SUB et non END SUD

Cordialement

Bonjour,

Erreur d'exécution '1004' : Impossible de définir la propriété Pattern de la classe INTERIOR

à tester,

remplacer,

.Pattern = xlNone

par,

.Pattern = xlPatternNone

Ça me mets une erreur de compilation et de syntaxe sur le

Sub Macro26 ()

Le remplacement .Pattern = xlPatternNone ne fonctionne pas ( enfin... )

Je viens de remarquer, que mon code de base marche pour certaines recherche , mais je pense qu'arriver a un certain nombre de ligne , ça bug ...

Re

Je ne sais si à moi que vous écrivez mais à la fin du code j'ai mis END SUD au lieu de END SUB

Vérifiez dans votre fichier

Cordialement

Bonjour,

End Sud

Tu étais à l'ouest

L'enregistreur de macro dit

.Pattern = xlSolid

eric