Erreur de compilation 1004

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion chris6999
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
chris6999

chris6999

XLDnaute Impliqué
Bonjour le FORUM

Quelqu'un pourrait-il m'expliquer pourquoi ma macro affiche une erreur de type 1004 (impossible d'exécuter car feuille protégée).

Le principe est le suivant:
La macro filtre sur la valeur contenue dans B4 et retire le filtre lorsque B4 vide.
Le filtre fonctionne nickel lorsque la feuille n'est pas protégée mais impossible de l'exécuter dans le cas contraire (bloque sur la ligne en rouge)
Je préfèrerais ne pas alourdir à mon code avec des ordres de type protect et unprotect.
Je précise que dans les paramètres de protection j'ai autorisé l'utilisation des filtres automatiques

SI quelqu'un a une idée sur la question!
Merci d'avance et bonne journée à tous

Private Sub Worksheet_Change(ByVal Target As Range)

'fitre les lignes à partir du nom


' Si modification de la cellule B4
If Target.Address(0, 0) = "B4" Then
' Si la cellule contient une valeur
If Target.Value <> "" Then
' Filter sur cette valeur
Range("A6:F6").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
Else
' Supprimer le filtre
Range("A6:F6").AutoFilter Field:=1
If Range("B4") = "" Then
Exit Sub
End If
 

Pièces jointes

Trier par date Trier par votes
Re : Erreur de compilation 1004

Bonjour à tous,

Peux-tu essayer en enlevant la Protection et en la remettant en fin de procédure :

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)


 'fitre les lignes à partir du nom
 
 ActiveSheet.Unprotect
   ' Si modification de la cellule B4
   If Target.Address(0, 0) = "B4" Then
     ' Si la cellule contient une valeur
     If Target.Value <> "" Then
       ' Filter sur cette valeur
       Range("A6:F6").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
           
     Else
       ' Supprimer le filtre
       Range("A6:F6").AutoFilter Field:=1
 If Range("B4") = "" Then
 Exit Sub
 End If
 
 


'identification personne qui a saisi la décision
'affiche username et la date dans colonne U et V lorsque colonne Q différent de ""
If Target.Column = 18 Then
  If Target.Value = "" Then
    Range("w" & Target.Row & ":x" & Target.Row).ClearContents
    Else
    Range("w" & Target.Row) = Application.UserName
    Range("x" & Target.Row) = Date
End If
End If
 
 'identification personne qui a saisi l'état
'affiche username et la date dans colonne w et x lorsque colonne p différent de ""
If Target.Column = 16 Then
  If Target.Value = "" Then
    Range("y" & Target.Row & ":z" & Target.Row).ClearContents
    Else
    Range("y" & Target.Row) = Application.UserName
    Range("z" & Target.Row) = Date
End If
End If
End If
End If
ActiveSheet.Protect
 End Sub

A + à tous
 
Vote positif 0 Vote négatif
Re : Erreur de compilation 1004

Merci JCGL pour ta proposition. Comme je l'ai dit dans l'énoncé du message je préférerais éviter les ordres de type protect et unprotect car il mes emble que cela alourdit le code à l'exécution.
Si je ne trouve pas d'autre solution je suivrai ta proposition.
A+
chris6999 à dit:
Bonjour le FORUM

Quelqu'un pourrait-il m'expliquer pourquoi ma macro affiche une erreur de type 1004 (impossible d'exécuter car feuille protégée).

Le principe est le suivant:
La macro filtre sur la valeur contenue dans B4 et retire le filtre lorsque B4 vide.
Le filtre fonctionne nickel lorsque la feuille n'est pas protégée mais impossible de l'exécuter dans le cas contraire (bloque sur la ligne en rouge)
Je préfèrerais ne pas alourdir à mon code avec des ordres de type protect et unprotect.
Je précise que dans les paramètres de protection j'ai autorisé l'utilisation des filtres automatiques

SI quelqu'un a une idée sur la question!
Merci d'avance et bonne journée à tous

Private Sub Worksheet_Change(ByVal Target As Range)

'fitre les lignes à partir du nom


' Si modification de la cellule B4
If Target.Address(0, 0) = "B4" Then
' Si la cellule contient une valeur
If Target.Value <> "" Then
' Filter sur cette valeur
Range("A6:F6").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
Else
' Supprimer le filtre
Range("A6:F6").AutoFilter Field:=1
If Range("B4") = "" Then
Exit Sub
End If
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Erreur de compilation 1004

Bonjour Dranreb
Je suis très intéressée par ce bout de code mais je ne comprends pas trop sa fonction
Pourrais-tu me dire à quoi il sert exactement?
Merci

JCGL à dit:
Bonjour à tous,

Peux-tu essayer en enlevant la Protection et en la remettant en fin de procédure :

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)


 'fitre les lignes à partir du nom
 
 ActiveSheet.Unprotect
   ' Si modification de la cellule B4
   If Target.Address(0, 0) = "B4" Then
     ' Si la cellule contient une valeur
     If Target.Value <> "" Then
       ' Filter sur cette valeur
       Range("A6:F6").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
           
     Else
       ' Supprimer le filtre
       Range("A6:F6").AutoFilter Field:=1
 If Range("B4") = "" Then
 Exit Sub
 End If
 
 


'identification personne qui a saisi la décision
'affiche username et la date dans colonne U et V lorsque colonne Q différent de ""
If Target.Column = 18 Then
  If Target.Value = "" Then
    Range("w" & Target.Row & ":x" & Target.Row).ClearContents
    Else
    Range("w" & Target.Row) = Application.UserName
    Range("x" & Target.Row) = Date
End If
End If
 
 'identification personne qui a saisi l'état
'affiche username et la date dans colonne w et x lorsque colonne p différent de ""
If Target.Column = 16 Then
  If Target.Value = "" Then
    Range("y" & Target.Row & ":z" & Target.Row).ClearContents
    Else
    Range("y" & Target.Row) = Application.UserName
    Range("z" & Target.Row) = Date
End If
End If
End If
End If
ActiveSheet.Protect
 End Sub

A + à tous
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Erreur de compilation 1004

Extrait de l'aide sur Protect :
UserInterfaceOnly Argument de type Variant facultatif. Cet argument a la valeur True pour protéger l'interface utilisateur, mais pas les macros. Si cet argument n'est pas spécifié, la protection s'applique à la fois aux macros et à l'interface utilisateur.
Cliquez pour agrandir...
Le bout de code applique la note plus bas :
Si vous appliquez la méthode Protect et que l'argument UserInterfaceOnly a la valeur True dans une feuille de calcul et que vous enregistrez le classeur, l'intégralité de la feuille de calcul (et pas uniquement l'interface) sera protégée lors de la réouverture du classeur. Pour réactiver la protection de l'interface utilisateur après l'ouverture du classeur, vous devez de nouveau appliquer la méthode Protect avec la valeur True affectée à l'argument UserInterfaceOnly.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
Microsoft 365 problème de filtre avec une checkbox
2
Réponses
18
Affichages
804
ChTi160
ChTi160
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
142
Ang3lina
A
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
439
Phil69970
Phil69970
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
643
Gestionnaire_rh
G
J
  • Question Question
XL 2021 Créer une fonction qui renvoie le nombre de critères sélectionné dans 1 filtre
Réponses
2
Affichages
271
Johann RSW
J
J
  • Question Question
Microsoft 365 Erreur de compilation: sub, fonction ou property attendue
Réponses
4
Affichages
564
dysorthographie
dysorthographie
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
243
ManuEven
M
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
531
florian50470
F
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
798
crocrocro
C
Chaton77
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
472
Chaton77
Chaton77
S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
598
selkis
S
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
890
Phil69970
Phil69970
oguruma
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
311
oguruma
oguruma
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
254
JJ69
J
B
  • Question Question
Microsoft 365 Erreur de compilation
Réponses
3
Affichages
829
oguruma
oguruma
E
  • Question Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
493
Elisa47
E
R
  • Résolu(e)
XL 2019 Plusieurs Worksheet_Change sur la même feuille
Réponses
9
Affichages
627
Rabeto
R
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Erreur d'exécution 1004
Réponses
3
Affichages
539
chaelie2015
chaelie2015
Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
642
Usine à gaz
Usine à gaz
herve62
  • Question Question
XL 2010 Erreur en VBA > Cdbl
Réponses
9
Affichages
1 K
herve62
herve62
Retour