XL 2010 Erreur 1004.

Dudu2

XLDnaute Barbatruc

• 6 Septembre 2021

• #2

Bonjour,
Cela semble arriver après une suppression de ligne.
Dans la suppression de ligne tu finis par protéger la feuille active.
Je ne crois pas que tu puisses modifier les FormatConditions si la feuille est protégée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2021

• #3

Bonjour DAVID-44-, Dudu2,

Oui, à l'ouverture du classeur la feuille STOCK est protégée ainsi :

VB:

.Protect Contents:=True, Password:="DAbaju042013@44@", UserInterfaceOnly:=True, AllowFormattingCells:=True

Il faut que ça serve à quelque chose !!!

Or dans la macro SupprimerLignesSélection vous annulez cet état en déprotégeant/protégeant la feuille.

Alors que c'est inutile et nuisible, donc corrigez cette macro.

A+

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 6 Septembre 2021

• #4

Bonjour job75, Dudu2,
Je me suis aperçu que le bouton "Insérer ligne" avait le même souci.
Pouvez-vous m'aider à corriger la macro?
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2021

• #5

Je suppose que ces macros ne sont pas de vous.

Alors demandez à leur auteur d'enlever tout ce qui concerne la protection.

Ce n'est vraiment pas sorcier.

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 6 Septembre 2021

• #6

Oui en effet ce n'est pas de moi.
Ok je vais essayer.
Merci.
Bonne journée.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Septembre 2021

• #7

Bonjour @job75,

En effet, la feuille STOCK est protégée à l'ouverture, il faut croire qu'il y a une raison.
Mais je dirais qu'elle est "bien" protégée compte tenu de ce qui est fait dans le Sub Worksheet_SelectionChange(), c'est à dire du FormatConditions.

C'est dans le Sub SupprimerLignesSélection() qu'elle est "mal" protégée, ne reprenant pas l'option AllowFormattingCells:=True.

D'ailleurs:
1 - Il n'y a pas de cohérence dans les .Protect qui tantôt utilise 2 options, tantôt 1 seule et tantôt aucune.
2 - La déprotection / protection ne tient pas compte de savoir si la feuille est initialement protégée ou pas.
3 - Dans le Sub SupprimerLignesSélection() c'est le chaos complet avec les .UnProtect et .Protect cités à différents endroits, avec un mot de passe tantôt en dur et tantôt en variable.

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 6 Septembre 2021

• #8

J'avoue que je suis perdu et si vous pouvez m'aider cela serait super.
Cordialement.
David.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2021

• #9

Bon j'ai corrigé les 2 macros du Module4, ça m'a pris 1 minute.

 

Pièces jointes

• STOCK - 03 - 09 - 2021 - PROBLEME(1).xlsm

  244.1 KB · Affichages: 7

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 6 Septembre 2021

• #10

Merci beaucoup
J’apprécie le geste.
Bonne journée.
Cordialement.
David.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Septembre 2021

• #11

Et oui, UserInterfaceOnly. Bien joué !
Je pense pas assez à l'utiliser celle-là. Bien pratique.
Du coup tous les autres UnProtect / Protect sont inutiles non ?

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 15 Septembre 2021

• #12

Bonjour job75, Dudu2, le forum,
Je reviens vous demander de l'aide, je vais sur une ligne (ex : jambon) je clique droit, puis je clique sur "insérer produit" j'ai une erreur "400"!
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

Pièces jointes

• STOCK - 03 - 09 - 2021 - PROBLEME(1).xlsm

  244.1 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Septembre 2021

• #13

Bonjour DAVID-44-,

Comme indiqué au post #3 la feuille est protégée avec l'option AllowFormattingCells:=True.

Il n'est pas prévu de pouvoir insérer des lignes manuellement.

Pour cela il y a le bouton INSÉRER.

A+

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 15 Septembre 2021

• #14

Bonjour job75,
Merci de votre réactivité.
Est-il possible d'avoir cette option ?
Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Septembre 2021

• #15

DAVID-44- à dit:

Est-il possible d'avoir cette option ?

Cliquez pour agrandir...

Pourquoi tout attendre du forum ? Cherchez d'abord de votre côté.

 

Vote positif 0 Vote négatif