Bonjour eudocha, bonjour à tous,

 

Cela n'engage que moi mais je trouve dommage d'alourdir ton fichier de VBA alors que des listes de validations de données peuvent suffire. Du coup, j'ai bien conscience de ne pas répondre à ta question VBA mais au cas où cela puisse t'intéresser quand même je te propose une piste sans VBA.

 

Dans ton fichier joint tu trouveras un onglet "Tables" regroupant les nomenclatures, puis la liste des zones nommées dans le gestionnaire de noms, les validations de données sont dans les colonnes couleur cacao ;) .

 

Tu trouveras un peu de VBA quand même dans le code de la feuille, mais simplement pour réinitialiser les cellules dépendantes en cas de modification colonne 1 ou colonne 2.

 

Pour la création des producteurs je ne suis pas sûre d'avoir compris, j'ai juste placé une validation de données dans l'onglet Tables (colonne S) qui interdira la saisie de doublons.

 

Vois ci cela peut t'intéresser, mais tu auras sûrement d'autres réponses plus proches de ta question initiale.

 

Très bonne soirée,

 

Mth

Bonjour Didier, Chris, et bonjour à tous.

 

Je me joins à Chris pour te féliciter et te remercier pour le travail colossal que tu es en train de faire Didier. Je n'ai pas encore tout utilisé mais j'apprécie déjà l'amélioration de la rapidité ce qui rend ce nouveau site encore plus agréable à utiliser !

Bravo Didier, bon courage pour la suite et à très bientôt,

 

Mireille

 

Bonjour yoan47 et bienvenue à toi, 







Peut-être avec la fonction RECHERCHEV() ? Pour que l'on puisse t'aider plus efficacement n'hésite pas à joindre un extrait de quelques lignes de ton fichier (sans données confidentielles).

Bien à toi,




mth

Bonsoir débutat84, bonsoir le forum,

Pour ta protection, il faut tout d'abord que tu ailles dans le format de cellules, en décochant la protection sur les cellules auxquelles tu souhaites laisser l'accès, puis en laissant la case protection cochée pour les cellules que tu souhaites bloquer.
Ensuite tu vas effectivement dans le menu Révision/Protection, et là il faut que tu décoches la case "Sélectionner les cellules verrouillées", elles ne pourront pas du tout être sélectionnées donc difficilement copiables hormis un print screen.
Les autres cellules seront sélectionnables, et toutes les possibilités d'insertions conservées également (si tu as bien laissé cette possibilité dans les options de protection)

En ce qui concerne le code que tu utilises, tu peux noter qu'il travaille sur l'Application, par conséquent tu bloques l'utilisation normale d'Excel sur tous les fichiers ouverts. Je pense que la simple protection des cellules est une bien meilleure solution que de toucher à l'application.

Quant à ton fichier qui ne se ferme pas, c'est étrange, cela semble plutôt lié à une spécificité du fichier de départ, ou du code que tu utilises, il faudrait en savoir plus.

Pour terminer, je te conseille d'appliquer ce qui est décrit dans ce lien ICI pour insérer du code VBA ou des formules dans tes posts.

Très bonne soirée et à bientôt,

mth

Bonsoir débutant84, bonsoir à tous,

Pour le point 1, si tu protèges ta feuille en bloquant la sélection des cellules, ça complique nettement le copier coller puisqu'on ne peut rien sélectionner, il ne  reste que le print screen.
Tu peux aussi masquer les onglets.
Ceci dit, si l'utilisateur n'a pas besoin de travailler sur le nouveau fichier qui doit juste être une trace consultable, génère un PDF c'est plus simple.

Pour le point 2, à priori il n'y a pas de rapport entre la protection et la sauvegarde, ou alors quelque chose m'échappe mais pourquoi ne peux-tu pas fermer ton fichier sans l'enregistrer?

Pour fermer un fichier sans sauvegarder, tu peux simplement essayer ceci, mais je ne sais pas si cela répond à la question:

Tu peux aussi interdire la sauvegarde en fonction du user, du nom du fichier, ou autre (test à intégrer dans le code si-dessus)

Bien à toi,

mth

Bonjour debutant84, bonjour à tous,

Si je puis me permettre une remarque, une simple protection de la feuille permettrait peut-être plus simplement d'éviter les erreurs de saisie.
Une autre solution si rien ne doit être modifié sur un onglet mais simplement consulté: faire un PDF.

Toute macro sera totalement inutile, il suffira de ne pas activer les macros pour pouvoir tout modifier.

(Sourire... dis, ils sont si méchants que ça tes utilisateurs, pour que tu veuilles les empêcher de travailler? )

Très bonne soirée,

mth

Bonjour apt et bienvenue à toi, bonjour à tous

Notre webmaster te répondrait de façon plus précise que moi, mais en attendant, il se trouve que j'ai le même problème que toi avec le bouton "Pdf", je contourne en utilisant le bouton "Imprimer" et je sélectionne une imprimante PDF (genre PDF Creator ou autre que tu trouves en téléchargement sur la toile), par ce biais la mise en page est respectée, peut-être en sera-t-il de même pour toi?

Bien à toi,

mth

Bonsoir ocealimer, bonsoir à tous,


A la place de cette ligne:


essaie ceci:

en définissant plus haut ta variable chemin:
Chemin = "R:\ton répertoire\"


Bien à toi,

mth

Bonsoir ocealimer, bonsoir à tous,

Pour ton erreur 1004, je pense que tu dois autoriser l'accès au projet Visual Basic.

Dans le menu Outils/Macros/Sécurités, il doit y avoir quelque chose comme "paramètres des macros pour les développeurs", il faut cocher la case "Accès approuvé au modèle d'objet du VBA"

Pour ton chemin, ce n'est pas sur la ligne de commentaire en vert qu'il faut changer.
Dans le code j'ai utilisé ThisWorkbook.Path qui donne le chemin du fichier actuel, suivi du signe antislash: \ , ceci donne donne donc pour la variable Chemin:

Chemin = ThisWorkbook.Path & ""

Si tu veux placer ton fichier ailleurs, par exemple dans le répertoire Toto, tu peux l'écrire en dur:
Chemin = "C:\Toto"

Pour la mise à blanc je ne comprends pas, chez moi ce code placé à la fin fonctionne:


Est-ce bien ce que tu as recopié?

Très bonne soirée et à bientôt,

mth

Bonsoir ocealimer, bonsoir le forum,

Pour imprimer, je te propose de rajouter ce code:
Il s'écrit tout seul avec l'enregistreur de macros, mais je te mets en PJ ce que j'ai trouvé sur les arguments de cette macro Excel4

Pour Sauvegarder ta feuille je te propose ceci, à adapter

et ... une petite correction, que tu trouveras à plusieurs endroits dans ton fichier joint:


ceci permet de figer la date du jour au lieu d'avoir une formule qui se recalcule à chaque fois

J'ai également mis ceci en fin de code, pour incrémenter mais aussi remettre les zone de saisie à blanc:


Vois si cela peut t'aider,

Très bonne soirée,

mth