XL 2016 inserer des formes avec textes

[chingilou]

bonjour
j'ai un tableau a 3 colonnes N° - Désignation et Quantité
le tableau s’étend de A10 à A196 (variable)
je voudrais créer une macro qui me créera dans la feuille2 des formes (rectangles a coins arrondis H:1.5cm L:6cm) avec comme données textes A1&"--"&B1&"--("&y&"/"C1&")"
y de 1 à C1
le but finale c'est d'imprimer la feuille2 sur un autocollant, couper les formes et les coller sur les boites (pour plus de clarté pour la livraison)

N°	désig	Qté
1	article 01	2
2	article 02	3
3	article 03	2

j’espère que je n'est pas était vague
l'exemple joint est mon but

 

[sylvanu]

Bonjour Chingilou,
Une proposition en PJ autre que votre demande. Mais pour l'avoir fait souvent elle s'avère efficace.
1- Je n'utilise pas de shape mais directement les cellules. ( plus rapide que de faire des dessins )
2- Je peux choisir la couleur de mes étiquettes.
Avec :

Sub FaireEtiquettes()
    With Sheets("YALIZ")
        .Cells.Borders.LineStyle = xlLineStyleNone
        .Cells.Interior.Color = vbWhite
        .Cells.ClearContents
        .Activate
    End With
    Application.ScreenUpdating = False
    DL = Sheets("Acceuil").Range("A65500").End(xlUp).Row
    Nlig = 2: Ncol = 2
    For Lacceuil = 2 To DL
        Titre = Sheets("Acceuil").Cells(Lacceuil, "B")
        Netiquettes = Sheets("Acceuil").Cells(Lacceuil, "C")
        Numéro = Sheets("Acceuil").Cells(Lacceuil, "A")
        Couleur = Sheets("Acceuil").Cells(Lacceuil, "A").Interior.Color
        For L = 1 To Netiquettes
            Chaine = Numéro & "--" & Titre & "--(" & L & "/" & Netiquettes & ")"
            EncadrementBleu Nlig, Ncol
            Cells(Nlig, Ncol) = Chaine
            Cells(Nlig, Ncol).Interior.Color = Couleur
            Ncol = Ncol + 2
            If Ncol > 6 Then
                Ncol = 2: Nlig = Nlig + 2
            End If
        Next L
    Next Lacceuil
End Sub

A voir si cela vous sied.
L'avantage c'est qu'ensuite avec un cutter vous couper entre 2 étiquettes et ça accélère le découpage global.

 

[chingilou]

PPPPPPPARFAIT
comme toujours sylvanu t'es mon sauveur merci énormément
solution parfaite

 

[chingilou]

sylvanu svp ça serait possible de commenter la macro pour essayer de la comprendre
si c'est possible merci d'avance

 

[Staple1600]

Bonjour le fil, chingilou, sylvanu

[question et tranche de vie en passant]
• la tranche
Il m'arrive de devoir des étiquettes au boulot.
Et pour ce faire j'utilise le publipostage
(Word fournissant de nombreux modèles d'étiquettes prédéfinis)
Donc je lance mon publipostage
Je vais voir la petite dame qui a la clé de l'armoire à fournitures
Je prends le paquet d'étiquettes autocollantes
Je prends un petit café avec la tite dame
Je monopolise l'imprimante
Je mets mon paquet d'étiquettes dans le chargeur manuel
Je libère ma tache d'impression
Pas besoin de cutter, pas besoin de macro
• la question
Pourquoi vous vous compliquez la vie ?
(Sans compter qu'on peut se blesser avec un cutter )
[/question et tranche de vie en passant]

 

[sylvanu]

Re Chingilou , bonjour Staple,

@chingilou. Désolé, j'avais repiqué une macro qui ressemblait, donc brute de fonderie.
En PJ le même fichier mais commenté.

@Staple,
Les planches d'étiquettes pré définies sont onéreuses. Je préférais utiliser des grandes feuilles sans rien prédéfini et passer par une solution cutter.
C'était pour une assos humanitaire, des centaines d'étiquettes à faire, et le fric de ma poche.
( d'autant que ce format je l'avais gratos au boulot )

Ceci étant dit, votre solution est de loin la moins fatigante. Un bon compromis € vs sueur.

 

[chingilou]

@Staple1600
je ne me complique pas la vie j'essaye de la faciliter sinon je n’embêterai personne a réfléchir à ma demande
les cartons que je livre personnellement ne portent aucun logo ou texte juste en stylo mais ma collaboratrice oublient parfois et j'ai horreur quand je me plante pour un article que je ne sais pas a quoi correspond

 

[chingilou]

@sylvanu
re(n+10) -MERCI (n étant de 0 a infini )

 

[Staple1600]

Re

=>chingilou
Tu n'as pas perçu l' humour de mon message ?
(comme l'a fait sylvanu)
En dehors de l'humour, si dans ton cadre professionnel, tu peux utiliser sans problème le publipostage avec étiquettes autocollantes,
alors oui, à mon sens, tu te compliques la vie en passant par une macro pour créer des étiquettes.
Mais c'est ton droit le plus strict

PS: Tu peux même le faire sur du papier classique.

PS: je n'ai jamais écrit que ta demande embêtait qui que ce soit.
Je suggérais juste une autre piste(*) pour réaliser des étiquettes.
(*) qui n'avait rien d'incongrue.
Si tu as le temps, regarde ce tuto pour t'en convaincre.
Créer des étiquettes par publipostage

=>sylvanu
Comme je le disais plus haut, on peut dans Word créer son propre modèle d'étiquette et personnaliser ses dimensions.
Et on peut imprimer les étiquettes obtenues par publipostage sur du papier classique et donc continuer à jouer du cutter

 

[chingilou]

@Staple1600
c'est vrai que c'est aussi une solution merci
mais vu que je travail en excel presque 100% et qu'avec un seul fichier je fais mon devis proforma facture finale liste des client le tout quoi alors pourquoi ne pas ajouter encore une feuille pour les étiquettes
je cherche pas le beau juste l'efficace , rapide et simple
et surtout que le fichier dit est utilisé par ma collaboratrice (qui est nulle en informatique mais ça dois rester entre nous et je nierai l'avoir dis)
merci encore et désolé ne pas avoir compris la blague mais je ne l'ai point pris mal

 

[soan]

Bonjour chingilou, le fil,

« ... si vous êtes pris ou tué, le Département d'État niera avoir eu connaissance de vos agissements. » (dixit la bande enregistrée de « Mission Impossible », celle qui s'autodétruit juste après que M. Phelps l'a écoutée) ; ça a l'air d'être pareil, pour ta collaboratrice et toi !

(promis, le Département d'État niera que ta collaboratrice est nulle en informatique ! )​

soan

 

[chingilou]

 

[chingilou]

@sylvanu
j'ai pas compris DL = Sheets("Acceuil").Range("A65500").End(xlUp).Row
' Calcul du nombre de lignes utiles dans Accueil
car je veux comme je l'ai écrit dans ma question #1 mais certe pas dans le fichier joint
les données utiles a être "publiposter" commence de A10 et pas au-dela de A196 j'ai des données au dessous et au dessus non concernés
je remet un fichier exemple mieux explicite j’espère et excusez moi encore

 

[sylvanu]

@chingilou,
Il faut limiter la recherche de la première cellule vide en colonne C :

DL = Sheets("Acceuil").Range("C196").End(xlUp).Row

et il faut commencer à la ligne 10 :

For Lacceuil = 10 To DL

PJ rectifiée.

 

[chris]

Bonjour à tous

Re

=>chingilou
Tu n'as pas perçu l' humour de mon message ?
(comme l'a fait sylvanu)
En dehors de l'humour, si dans ton cadre professionnel, tu peux utiliser sans problème le publipostage avec étiquettes autocollantes,
alors oui, à mon sens, tu te compliques la vie en passant par une macro pour créer des étiquettes.
Mais c'est ton droit le plus strict

PS: Tu peux même le faire sur du papier classique.

PS: je n'ai jamais écrit que ta demande embêtait qui que ce soit.
Je suggérais juste une autre piste(*) pour réaliser des étiquettes.
(*) qui n'avait rien d'incongrue.
Si tu as le temps, regarde ce tuto pour t'en convaincre.
Créer des étiquettes par publipostage

=>sylvanu
Comme je le disais plus haut, on peut dans Word créer son propre modèle d'étiquette et personnaliser ses dimensions.
Et on peut imprimer les étiquettes obtenues par publipostage sur du papier classique et donc continuer à jouer du cutter

et un multipost de plus

[XL-2016] inserer des formes avec textes - Macros et VBA Excel

j'ai un tableau à 3 colonnes N° - Désignation et Quantité le tableau sétend de A10 à A196 (variable) je voudrais créer une macro qui me créera dans la feuille2 des formes (rectangles à coins arrondis H:1.5cm L:

www.developpez.net