planche étiquettes avec logo à la demande

[papapaul]

Bonjour Forum

L'idée est de créé à la demande des "étiquettes" d'un format précis
et un papier spécial pour faire un peu comme des plaques
de portes avec logo.
(Mes données sont bien sur bidons et en vrai mes logos
sont bien adaptés a la plage A1:A2)

Alors dans le même répertoire j'ai mis autant de fichiers (.gif)
que de logos et un fichier Essai_Planche pour faire le travail.
Dans mon exemple, j'ai 2 Agences (Feuilles Agence1 et 2).
Je modifie au fur et à mesure la liste des agents.
Avec la feuille d'accueil (Logo), je veux créer mes étiquettes.
Donc : 1) je fais la mise à jour des Agences (sur une Feuil1 qui est masquée)
2) Avec le bouton Recherche, je choisis l'agent ou la fonction
que je veux et avec click sur la listbox,
je choisis le logo adéquat,
ensuite je vois si c'est ok sur la feuille Logo.
3) Avec le bouton imprimer, j'imprime seulement le résultat.
4) Avec le bouton Vers Planche, je mets en 1ère étiquette
le résultat de ma 1ère recherche.
Je voudrais ajouter à la planche mes résultats les uns après
les autres parceque mes planches sont assez chères
et je veux bien visualiser chacune des étiquettes
avant de lancer une impression (faut pas gacher)

Y a des trucs que j'arrive pas à faire.

1) Pour copier les logos à partir des fichiers : Je me suis inspiré d'un
truc trouvé sur le forum : insertimage.xls que je joins
(merci à l'auteur, je sais plus qui). J'ai bidouiller les codes d'origine
dans mon module 11 mais j'arrive pas à adapter pour
que une copie de logo sur la feuille logo efface les précédents.
Je suis obliger de le faire manuellement

2) Avec mon bouton Vers la Planche, ca marche très bien pour la 1ère fois
Copie en A2. Mais ce je voudrais c'est que si une 1ère copie
a été faite (donc à partir de A2), quelque chose dise :
si A2 occupé faire la copie en C2, puis si C2 occupé
faire la copie en A6 etc....
et la ca se complique quand j'arrive en C18 (8ème étiquette),
si C18 occupé :
crée une autre Planche (Planche2) avec exactement
les mêmes paramètres que la 1ère
(tres important car ma feuille Planche est calée au millimètre
près par rapport à mes vraies planches qui sont prédécoupées)
Puis ; recommencer
cette espèce de boucle à partir de A2 etc...
J'ai bien éplucher une démo de Thierry (stickgenerator)
ou il y a un système de "décalage" mais la non plus j'y arrive pas.

Excusez le bavardage,
J'ai pas voulu écrire un roman mais j'ai essayé d'être clair.
Merci d'avance aux courageux.

Vive XLD,
Y a un lien ci-dessous, faites le



Lien supprimé

 

[pierrejean]

Re : planche étiquettes avec logo à la demande

bonsoir papapaul

pour l'insertion d'image je te propose

Sub InsertionImage()
Sheets("Logo").Range("A1").Select
On Error Resume Next
 ActiveSheet.Shapes("lacible").Delete
On Error GoTo 0
Application.Dialogs(xlDialogInsertPicture).Show
Selection.Name = "lacible"
End Sub

pour le reste ,j e regarderai plus tard mais n'y compte pas trop avant lundi

 

[Compte Supprimé 979]

Re : planche étiquettes avec logo à la demande

Bonsoir PapaPaul, PierreJean

PapaPaul, tu trouveras ci-joint ton fichier avec tes codes modifiés
Dans la/les feuilles 'Planche', j'inscrit une valeur en caractère blanc, qui indique à la macro si la cellule contient déjà quelque chose ou non !

Si toutes les cellules d'une planche sont pleines, alors une autre planche est créée à partir de la précédente.

Toutes les images contenues dans la copie sont effacées, ainsi que le texte.

A tester

 

[papapaul]

Re : planche étiquettes avec logo à la demande

Bonsoir Pierrejean, Bruno, Forum

Merci Pierrejean, j'ai testé vite fait ta solution pour la
1ère partie de mes soucis, apparement ca marche nickel
Comme d'hab !!!
Rassure toi je suis pas pressé, tu as plus que le droit de prendre tout
ton temps ou ton week, tu nous aide tous depuis si
logtemps et à chaque fois si parfaitement que ce serait bien
malvenu que de demander plus.

Merci Bruno, j'ai testé vite fait aussi et la
euh...sur le C.. que je suis. Aussi rapidement et bien fait,
c'est de la vraie magie ou de la sorcellerie, je sais pas.
Serait tu un adepte du "Expecto Patronum" ???
Chapeau bas.

Je vérifie tout ca avec mes vrais fichiers et
vous tiens au courant.

Dix milles mercis et plus encore à vous deux,
Bonne soirée, Bon Week, etc...

En tout cas tu a raison Bruno

 

[papapaul]

Re : planche étiquettes avec logo à la demande

Bonjour Forum, Pierrjean, Bruno

Me revoila avec mon truc que j'arrive pas à bien finir.
J'ai fait quelques modifs pour coller au mieux à mon vrai projet.
Tout semble OK avec la sélection manuelle et la copie vers Planche (merci Bruno)
Je voudrais ajouter un bouton pour avoir une option d'insertion
de Logo automatique,
J'ai donc bricoler un truc en ajoutant 1 deuxième USF.
Dans le code de celui-ci, sous, Private Sub ListBox2_DblClick
J'ai mis Call Module4.Leo14
Dans lequel il y a ca :
ActiveSheet.Pictures.Insert("c:\repertoire ou sont les logos \leo-14.gif").Select
Ca prends bien leo14 mais efface pas le précédent.
J'ai aussi essayé de mettre le bout de code de Pierrejean (Module11)
Dim shp as shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
.....
Du coup ca efface bien l'image précédente comme je le souhaite
Mais ca efface aussi tout mes boutons. Comment éviter ca ??

Evidement je voudrais aussi qu'a la différence de la sélection manuelle
la sélection du fichier logo pour mettre l'image soit automatisé
par rapport à l'item de la colonne 5 de la listbox.
Mon idée serait de crée une macro par logo comme dans mon module4
Et ensuite de demander quelquechose du genre
For each cell in Sheets("Maj")Range("e2:e500")
If cell.value = listbox2.column(4,I)
Et ensuite appeler la macro correspondante
C'est forcément possible mais comme je suis très doué ….??

Merci d'avance à ceux qui pourront m'aider.

Vive XLD

 

[pierrejean]

Re : planche étiquettes avec logo à la demande

bonjour papapaul

vois si cela te convient

note: j'ai du renommer tes .gif pour que le nom soit coherent avec la colonne 5 de la listbox

 

[papapaul]

Re : planche étiquettes avec logo à la demande

Bonsoir Forum
Excuse moi Pierrejean mais je ne comprends pas:

Tu a mis ca pour le code du bouton Logo Automatique :

Sub Leo14(dessin)
chemin = ActiveWorkbook.Path
ActiveSheet.Range("a1").Select
On Error Resume Next
ActiveSheet.Shapes("cible").Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(chemin & "\" & dessin & ".gif").Select
Selection.Name = "cible"
End Sub


Et ca dans le code de la listbox2 :
Dim numdess As Integer
numdess = I
Module4.Leo14 (UserForm2.ListBox2.List(numdess, 4))

Alors maintenant chez moi les fichiers logos sont sous :

G:\Logo_Simplifié\leo-14
ou G:\Logo_Simplifié\leo-56
ou G:\Logo_Simplifié\Bruno
etc....

Je m'en sors pas

Il faut donc je pense modifier ca :
ActiveSheet.Pictures.Insert(chemin & "\" & dessin & ".gif").Select

Ou autre chose mais ou et comment ??
Je commence a avoir mal aux cheveux

Merci d'avance.

 

[pierrejean]

Re : planche étiquettes avec logo à la demande

bonjour papapaul

comme je te l'ai dit il faut qu'il y ait cohérence entre ce qui se trouve dans la colonne 5 de la listebox et le nom de ton fichier .gif

exemple: pour chef c'est leo56 et le gif: leo-56
donc soit tu modifies leo56 en leo-56
soit tu modifies leo-56 en leo56
Ensuite
2 hypotheses
1) les .gif sont dans le même repertoire que le fichier principal et tu ne change rien (la variable chemin récupére le nom du repertoire)
2) le repertoire n'est pas le même
alors tu ecris:
ActiveSheet.Pictures.Insert("G:\Logo_Simplifié\" & dessin & ".gif").Select

Explication complementaire:
J'ai ajouté un parametre dans la macro Leo14 (dessin)
ce parametre est recupéré lors du dble clic dans la listebox2:
Module4.Leo14 (UserForm2.ListBox2.List(numdess, 4))
avec numdess etant la ligne selectée de la dite listebox

 

[papapaul]

Re : planche étiquettes avec logo à la demande

Salut Forum, Pierrejean,

Pierrejean, tu es vraiment formidable,
quelle patience, quelle gentillesse §§§§
J'ai eu un mal de chien à comprendre ce qui clochait,
j'ai donc suivi du mieux possible tes conseils
et je crois que cette fois ca y est.

J'ai bien maintenant mes 2 options.
Mais comme c'est jamais fini avec VBA,
je vais essayer de construire 2 autres options
pour faire mes planches.
1 qui fera tout d'un coup par rapport à la feuille Maj
et 1 autre ou je pourrais le faire avec la
listbox en multiselect.
Si j'y arrive pas, je manquerais pas d'appeler au secours.

Bonne journée à tous et encore Milles Mercis

 

[papapaul]

Re : planche étiquettes avec logo à la demande

Salut Forum, salut tous
Et oui, évidement me revoila, j'ai avancé un peu mais….
Donc dans le même répertoire (Logo_xld), il y a 5 fichiers .gif (Logo)
et 1 fichier de travail avec 3 feuilles :

1 "Logo" pour imprimer 1/1 ou copier vers une Planche.
1 "Maj" qui est ma base de données
1 "Planche" d'un format spécial (10 plaques) qui s'"autoduplique"
au fur et à mesure de mes recherches.

Mes 2 boutons (Recherche manuelle et automatique) fonctionne bien.


Mais y a 2 trucs sur lesquels je coince sérieusement depuis plusieurs jours.
Par rapport à ma version précédente, j'ai ajouté un bouton dans le USF
qui mets le Logo automatiquement, je voudrais que ca fonctionne avec une multisélection.
Je voudrais aussi faire toute ma liste d'un seul coup avec un bouton (Macro2)
que j'ai mis sur la feuille "Logo".
Alors comme de bien entendu je fais plus que ramer, j'appelle au secours.
J'ai mis des explications sur ma feuille Logo, j'espère que vous y verrais plus clair.
Merci d'avance à ceux qui auront le temps ou un peu d'intérêt pour mon souci.

Amitiès à tous et vive XLD

 

[papapaul]

Re : planche étiquettes avec logo à la demande

Encore moi, avec une autre version.
Comme je m'en sors pas avec la méthode de Bruno
(copie de feuille Planche vierge à partir de la 10ème plaque)
ca marche très bien 1/1 mais pas avec multiselect.
J'ai essayé d'appliquer la méthode de Thierry(Stickgenerator)
merci à lui mais j'arrive pas à adapte, c'est pas vraiment concluant.

Dans mon USF2, j'ai ajouté un bouton pour permettre une
multi sélection : ca alimente bien ma Planche mais pas les images.
Autre problème, cette planche est constituée de 10 plaques, donc
si je veux "multisélectionner" plus que 10 lignes dans
la listbox, le décalage se fait bien vers la ligne 26 mais
je voudrais aussi respecter la mise en forme, c'est à dire la hauteur, arial
couleur etc... des lignes (1 à 25) sur les lignes (26 à 50 etc..)
pour respecter les marges de mes vraies feuilles papier
mais aussi bien sur que les images suivent en fonction
de leur nom dans la colonne 5 de la feuille Maj.

Si aussi par rapport à la feuille Maj on pouvait tout faire d'un coup
avec un bouton supplémentaire sur la feuille Logo,
je serais plus qu'heureux.

Je sais pas si j'ai été clair mais en tout cas
merci d'avance à ceux qui prendrons le temps de m'aider.
Précision : j'ai limité ma plage à ("a2;f500")
il faut modifier le chemin des fichiers images qui ici sont
sous ("c:\users\logo_méthode_thierry\" & dessin & ".gif").Select
dans le Module4.leo14 (merci Pierrejean)
Je continue à chercher mais je suis vraiment fatigué de ramer.
Si je trouve pas je crois que finalement je ferais tout 1/1
puisque ca au moins, ca marche.

Encore Merci d'avance à ceux qui verront plus clair que moi.

Amitiés et bonne soirée à tous.

 

[papapaul]

Re : planche étiquettes avec logo à la demande

Bonsoir Forum, désolé de revenir la-dessus

Excusez moi mais une fois de plus, au secours les pros d'XLD.
Pour les courageux, j'ai mis des explications plus
complètes et le fichier (répertoire) dans le post juste au-dessus.

Pour les boutons sur ma feuille logo, comme je
l'ai dit plus haut pas de problème si je fais 1 par 1
La planche s'alimente bien.

Ce que je voudrais faire c'est que avec l'option
automatique, (la listbox est multiselect,)
c'est adapter le bouton "valider selection"
avec la méthode select case de Thierry mais je cale totalement
Je vois bien le nom des fichiers images en a2 puis c2, etc,
mais les images ne s'y mettent pas.
Pourtant les fonctions et noms dans les colonnes b et d
ca semble bon.
Je m'arrache les cheveux depuis 15 jours.

Merci d'avance et bonne soirée à tous