Duplication de feuille sans useform et sans code VBA

Voila,

Je cherche à copier, à l'aide d'un bouton, un modèle de document afin de l'enregistrer sur un ficher spécifique (dépendant des valeurs saisi sur le modèle), et ensuite l'envoyer par mail ou de l'imprimer (si pas de mail)

J'ai donc une feuille modèle; bourée de marco et de code VBA qui contient le fameux bouton "générer" pour créer le résultat.

Je ne sais pas comment faire cela sachant que lorsque je clique sur le bouton générér, je souhaite dupliquer la feuille avec les conditions suivantes :

-> Je voudrais que la nouvelle feuille dupliquée n'est pas le code VBA du modèle
-> Que le bouton "générer" du modèle soit supprimé de la feuille dupliquée
-> Que les formule du modèle soit remplacées par les valeurs dans la feuille dupliquée

Avez vous une idée ? Merci d'avance !

Bonsoir,

Voici une façon de faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub NewClasseurSansVBA() ' *************************************************************************************** ' Cette sub supprime tous les objets de la collection Shapes sur la feuille créée * ' Cette sub NE DOIT DONC pas être utilisée si la feuille active contient des objets * ' de la collection Shapes à conserver * ' *************************************************************************************** Dim s As Shape ' Création du classeur ThisWorkbook.Sheets(1).Copy ' Suppression des objets de la collection Shapes dont le(s) bouton(s). For Each s In ActiveSheet.Shapes s.Delete Next ' Suppression du code de la feuille active With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule .DeleteLines 1, .CountOfLines End With End Sub

---

NB - Il faut avoir coché la référence "Microsoft Visual Basic for Applications Exensibility X.x"

A ta disposition pour toute information complémentaire. Selon ton niveau, quelques lignes peuvent suffire ou plusieurs pages peuvent être nécessaires !

Joyeux Noël

Michel Gaboly

Merci pour ta réponse. Cependant, je dois envoyer ce document par mail apres. l'option COPY de la worksheet ne crée pas un fichier sauvegardé. Comment puis je faire pour le sauver et récupérér son nom de fichier pour l'envoyer par mail puis le supprimer après ?

Sais tu aussi comment remplacer les formules par les valeurs ?

Jour Bon
Voir http://excel.developpez.com/faq/?pag...ailCDOexchange

Bonjour,

Je ne t’avais donné le code que pour la partie techniquement complexe.

Le reste est quasi trivial, et tu peux l’obtenir en adaptant à peine le résultat obtenu par enregistrement automatique :

1. Démarre l'enregistrement automatique
2. Crée un nouveau classeur, puis saisis quelque chose dans une cellule au moins.
3. Sélectionne ensuite la plage avec les données que tu as entrées, copie-les puis fais un copiage spécial valeurs.
4. Enregistre-le : tu devras entrer le nom sous lequel il doit être enregistré.
5. Arrête l’enregistrement auto.

Tu as pratiquement ton code.

Les seules modifs importantes à effectuer sont la sélection de la zone à copier pour y remplacer les formules : il faut utiliser la propriété UsedRange

Code:

---

1 2 3 4

Sub RemplaceFormuleParValeurs() ActiveSheet.UsedRange.Copy ActiveSheet.UsedRange.PasteSpecial xlValues End Sub

---

et le nom de fichier à fournir pour l’’enregistrement. Tu n’as pas à récupérer ce nom, puisque c’est toi qui le choisis ou le détermines. Cela pourrait être le nom de l’onglet de la feuille active par exemple.

Code:

---

1 2 3

Sub EnregistreAvecNomFeuille() ActiveWorkbook.SaveAs ActiveSheet.Name & "xls" End Sub

---

Pour pouvoir utiliser ensuite le nom du classeur pour l'envoyer par mail, stocke-le dans une variable :

Code:

---

1 2 3 4 5

Sub EnregistreEnUtilsantUneVariable() Dim NomClasseur$ NomClasseur = ActiveSheet.Name ActiveWorkbook.SaveAs NomClasseur & "xls" End Sub

---

Bon Noël

Michel Gaboly

Merci pour toutes ces précisions, je devrais pouvoir m'en sortir !!!

Je te tiens au courant.

Bonne fêtes de fin d'année à toi également

De rien, ;)

N’hésite pas à demander des précisions si tu en a besoin.

Justement, ca marche mais j'ai besoin d'autre conseil.

Ma feuille utilise des mise en forme conditionnelles qui sont reportées sur le nouveau fichier.

Je ne souhaite conserver que le format final car je laisse libre cours au destinataire de modifier le format de la cellule.

En gros, mon modèle initialise les cellules dans un certains format en fonction de cellules parametrables puis j'envoie une copie à des personnes qui auront la possibilité de modifier le format.

Or, la copy contient également ces mise en formes conditionnelles qui empeche la modification des cellules ...

Re,

Ceci efface les règles relatives aux formats conditionnels pour toutes les cellules de la feuille active.

Code:

---

1 2 3

Sub EffaceFormatsConditionnels() Cells.FormatConditions.Delete End Sub

---

Ceci dit, là encore tu aurais pu trouver le code avec un enregistrement auto. Si tu veux progresser, il faut expérimenter un peu et regarder la doc en ligne qui est très riche.

Cordialement,

Michel Gaboly

Oui mais avec ca, je perd le format de la cellule résultant de la mise en forme conditionnelle !

PS : merci pour ton conseil, j'ai pris bonne note et j'ai tenté dans ce cas, mais je n'aboutit pas au résultat escompté

Pas d'idée ?

En fait, je souahitez juste retirer la mise en forme confitionnelle d'une cellule mais en conservant le résultat de cette mise en forme.

Certaines cellules sont grise suite à une mise en forme conditionnelle, je souhaites donc les garder grises tout en retirant la mise en forme conditionnelle qui a institué cette couleur.

MErci

Des idées, oui, bien sûr, très précises, même.

Cependant pouvoir conserver le résultat des mises en forme conditionnelles (MEFC) est un traitement beaucoup plus lourd que tu ne sembles l’imaginer :

Il faut faire une boucle qui passe dans chaque cellule pour laquelle une MEFC a été définie. Ensuite, pour chaque cellule concernée,

1. Lire la ou les conditions qui ont été définies (formule ou test sur valeur).
2. Tester dans l’ordre si chaque condition définie est remplie.
3. Si oui, déterminer les choix de mises en forme associés (détail des encadrements, couleur de police, gras ou pas, souligné ou pas, couleur de fond, ...)
4. Les appliquer inconditionnellement.
5. Effacer la MEFC.

Voici comment se présente le traitement :

Code:

---

1 2 3 4 5 6 7 8

Sub ReproductionEffetsMEFC() Dim Ref As Range, c As Range ActiveCell.SpecialCells (xlCellTypeAllFormatConditions) For Each c In Ref ' Lecture des éléments de mise en forme induits par la MEFC ' pour c et reproduction de cette mise en forme (police, bordures, fond) Next End Sub

---

C’est un développement relativement long, qui selon moi sort du cadre de l’entraide dans un forum :(

C’est éventuellement faisable si tu n’as qu’un format (cellules grisées). Mais dans ce cas, indique les conditions pour lesquelles les cellules sont grisées et ce que tu appelles grisées : quelle nuance de gris ? La couleur de la police ou la couleur de fond ?

Il faudrait que tu joignes en pièce jointe un classeur Excel avec au moins une cellule grisée par ta mise en forme, afin de pouvoir la reproduire précisément.

Cordialement,

Michel Gaboly

J'était parti sur une solution semblable mais je ne sais pas comment récupérér la mise en forme.

Effectivement, le fait de tester la condition directement en VBA me semble une bonne idée, je vais donc créer une procédure qui recrée la MEFC et je vais l'appliquer à chaque cellule avant de la détruire.

Je n'ai que deux format :

• bordure pleine avec couleur de fond gris (couleur unique)
• bordure pleine sans couleur de fond

A charge après à l'utilisateur une fois le traitement terminé de modifier comme bon lui semble les couleurs.

Pour info, c'est un tableau de gestion de planning vierge qui est généré. Toute les cellules sont blanches abev une bordures sauf certaines heures sui sont grises.

Je vois ca ce soir !!

Merci

Bonjour,

J’ai l’impression que tu te compliques beaucoup la vie pour rien :(

S’il s’agit de générer un tableau vierge sans mise en forme conditionnelle (MEFC), et avec des zones grisées, ajoute-le au classeur avec les macros (celui évoqué dans ton premier message), et génère avec ton bouton, situé sur UNE AUTRE feuille, un classeur vierge, ayant pour seule feuille ton planning vierge :

Code:

---

1 2 3 4

Sub NouveauPlanning() ThisWorkbook.Sheets("PlanningVierge").Copy ActiveSheet.Name = "Planning semaine 4" End Sub

---

La seconde ligne, pas forcément nécessaire, te permet de renommer la feuille dans le classeur créé.

Ainsi, tu n’auras plus à te préoccuper d’effacer le bouton, du code VBA, ni de devoir reproduire le résultat de MEFC.

Michel Gaboly

C'est malheureusement un peu plus compliqué que ca car ce document sera évolutif à l'avenir ...

Mais je note que effectivement, je n'ai pas besoin d'utiliser de mise en forme conditionnelle mais uniquement de coder une procedure l'imitant.

Je penses avoir tout ce dont j'ai besoin pour terminer ce planning. Il me manque juste le point sur la protection de la feuille.

Je te remercie grandement pour ta préciseuse aide et espère ne pas t'avoir trop embetté !!

De rien :)

Je crois que la conclusion à en tirer est qu’il ne faut pas se précipiter pour écrire du code, là où un peu de réflexion supplémentaire, permet d’aboutir à une solution plus simple ! 8-)

Maîtriser VBA, c’est bien, mais bien connaître Excel (pour ne pas avoir à reprogrammer des fonctionnalités déjà disponibles) et faire une bonne analyse des besoins (pour optimiser l'algorithme), avant de se lancer dans l’écriture de code, c’est encore mieux.

Cordialement,

Michel Gaboly

Tout à fait raison. Je prend bonne note !