Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Executer le macro dans un classeur protegé

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Eric kankonde
  • 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
E

Eric kankonde

Guest
BONJOUR À TOUS. POUVEZ-VOUS M'AIDER SVP? J'AI UN PROBLÈME AVEC LES MACROS.
Ci-joint mon fichier Excel

Vous trouverez dans la feuille "facture" de mon classeur un bouton "sauvegarder". Ce bouton me sert à enregistrer le montant au bas de la facture (il enregistre dans la feuille "historique des factures"). Mais le problème est qu’il le fait même si la quantité saisie dépasse le stock. Quelqu’un peut-il m’aider ? J’aimerai sauvegarder le montant seulement si la quantité demandée est inférieure au stock. Sinon un message d’alerte s’affiche. (Quantité : de la cellule « I10 :I19 » de la feuille "facture".Stock : de la cellule « j10 :j19 » de la feuille « facture »
CI-JOINT MON CLASSEUR
MERCI
 

Pièces jointes

Trier par date Trier par votes
Bonjour.
Essayez comme ça :
VB: 
Sub SAVEFACTURE()
Dim TDF(), TH(1 To 1, 1 To 5), L&, LOt As ListObject
TDF = Sheet1.[A1:J23].Value
For L = 10 To Sheet1.[I21].End(xlUp).Row
   If TDF(L, 9) > TDF(L, 10) Then
      Application.Goto Sheet1.Cells(L, "I")
      MsgBox ActiveCell.Address & ": Qté " & TDF(L, 9) & " dépasse de " & TDF(L, 9) - TDF(L, 10) _
         & " stock " & TDF(L, 10), vbExclamation, "Sauvegarde"
      Exit Sub: End If: Next L
Set LOt = Sheet4.ListObjects(1)
TH(1, 1) = WorksheetFunction.Max(LOt.ListColumns("N° Facture").DataBodyRange) + 1
TH(1, 2) = TDF(1, 1)
TH(1, 3) = TDF(1, 4)
TH(1, 4) = TDF(23, 7)
TH(1,5)= ? ' pas compris ce que vous vouliez y mettre
LOt.ListRows.Add(1).Range.Value = TH
LOt.ListRows(1).Range.Interior.ColorIndex = xlNone
End Sub
Supprimez les ligne vide dans l'historique: elles ne servent à rien.
 
Vote positif 0 Vote négatif
Merci
Merci beaucoup ce a bien marché.
 
Vote positif 0 Vote négatif
Eric kankonde à dit:
Merci

Merci beaucoup ce a bien marché.
Cliquez pour agrandir...
Merci une autre question
Posez votre question Lien supprimé


Voici ci-joint mon fichier. Il a un bouton login et logout pour masquer et afficher des feuilles. Mais moi je veux protéger mon classeur puis, appuyer sur logout sans enlever la protection sans qu'il y ait erreur. J'ai essayé mais en vain. Quelqu'un peut-il m'aider ? (Nom d'utilisateur : "ERIC". Mot de passe: " 123") utilisez le même mot de passe pour protéger mon classeur.
Aidez-moi svp.

https://www.cjoint.com/c/IDtfnaL2g1r
 
Vote positif 0 Vote négatif
tactic6 à dit:
Bonjour en attendant la réponse d'un pro en vba je t'ai bricolé une solution pour que tu puisses travailler si besoin
Cliquez pour agrandir...
Bonjour
Posez votre question Lien supprimé


Voici ci-joint mon fichier. Il a un bouton login et logout pour masquer et afficher des feuilles. Mais moi je veux protéger mon classeur puis, appuyer sur logout sans enlever la protection sans qu'il y ait erreur. J'ai essayé mais en vain. Quelqu'un peut-il m'aider ? (Nom d'utilisateur : "ERIC". Mot de passe: " 123") utilisez le même mot de passe pour protéger mon classeur.
Aidez-moi svp.

https://www.cjoint.com/c/IDtfnaL2g1r
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
L
  • Question Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
867
l.et.lilou
L
D
  • Question Question
Microsoft 365 macro avec lien hypertexte et modele de facture
Réponses
6
Affichages
983
david_aurel
D
T
  • Question Question
XL 2021 amélioration ludique VBA
Réponses
9
Affichages
1 K
thibaut1306
T
W
  • Question Question
XL 2016 Joindre par mail un fichier.pdf personnalité selon le prénom trouvé dans le titre du pdf
Réponses
10
Affichages
1 K
TooFatBoy
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
760
oguruma
  • Question Question
XL 2019 Colorier une cellule suite à une recherche sur un classeur
2 3
Réponses
34
Affichages
2 K
Sellig
G
  • Question Question
XL 2016 comment regrouper les données de plusieurs feuille dans une seule par une macro
Réponses
4
Affichages
772
GUEWOU
G
B
  • Résolu(e)
Microsoft 365 Extraction de données dans un classeur
Réponses
9
Affichages
959
Bob 31
B
  • Question Question
Microsoft 365 Importer données de plusieurs classeurs dans un autre sans VBA
Réponses
7
Affichages
1 K
chris
B
  • Résolu(e)
Microsoft 365 Verrouiller des colonnes dans un document contenant une macro
Réponses
6
Affichages
596
baguihome
B
R
  • Question Question
Microsoft 365 macro pour transfert dans autre classeur fermé
Réponses
8
Affichages
979
rubis54
R
S
  • Question Question
XL 2019 Zoom sur image dans un USF
Réponses
2
Affichages
689
Sheldor
S
A
  • Question Question
XL 2013 importer des données d'une feuille vers un autre classeur
Réponses
9
Affichages
1 K
ATHE RIOVELI
A
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
S
  • Question Question
XL 2019 Macro VBA enregistrement pdf plusieurs onglets dans un sens précis
Réponses
11
Affichages
2 K
sofmat
S
B
  • Question Question
XL 2019 Souci dans un programme
Réponses
1
Affichages
446
Bert505
B
  • Résolu(e)
XL 2013 Masquer un shape (forme) définit dans toutes les feuilles
2
Réponses
17
Affichages
2 K
sylvanu
D
  • Question Question
XL 2016 Userform et mise en forme
Réponses
6
Affichages
2 K
doundoun
D
P
  • Question Question
XL 2019 Créer un publipostage automatisé d'étiquettes
Réponses
1
Affichages
991
Phoneguy33
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…