Erreur 1004-La méthode Sort de la classe Range a échoué

Ruffian15 Messages postés 9 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Excel2013

J'ai un code VBA :

Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
If sh.Name Like "##" Then

With sh
.Range("D3:P41").Sort key1:=.Range("D3"), order1:=xlAscending, Header:=xlNo
End With
End If

End Sub

Et chaque fois cela m'indique Erreur d’exécution 1004
La méthode Sort de la classe Range a échoué. Etant novice là dessus je voudrais savoir si quelqu'une ou quelqu'un puisse m'aider.
Merci

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    le code marche chez moi......!!
    0
    1. Ruffian15 Messages postés 9 Statut Membre
       
      Bonjour,
      Moi c'est pareil, cela fonctionne mais pas quand la feuille est protégée.
      Et toi, quand la feuille est protégée est-ce que cela fonctionne?Merci
      0
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonjour,

    Chez moi aussi mais pas quand la feuille est protégée !
    0
    1. Ruffian15 Messages postés 9 Statut Membre
       
      Bonjour,
      Moi c'est pareil, cela fonctionne mais pas quand la feuille est protégée. Merci
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > Ruffian15 Messages postés 9 Statut Membre
         
        Bonjour,

        Ben, enlevez/remettez la protection par programme ou faites une protection userinterfaceonly a l'ouverture du fichier
        0