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

XL 2016 inserer des formes avec textes

chingilou

XLDnaute Junior
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)
désigQté
1article 012
2article 023
3article 032
j’espère que je n'est pas était vague
l'exemple joint est mon but
 

Pièces jointes

  • Classeur121.xlsm
    17.1 KB · Affichages: 14

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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.
 

Pièces jointes

  • Classeur121 (V2).xlsm
    27 KB · Affichages: 4

Staple1600

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Classeur121 (V3).xlsm
    26.8 KB · Affichages: 3

chingilou

XLDnaute Junior
@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
 

Staple1600

XLDnaute Barbatruc
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

XLDnaute Junior
@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

XLDnaute Barbatruc
Inactif
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

XLDnaute Junior
@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
 

Pièces jointes

  • Classeur00.xlsm
    46.4 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
@chingilou,
Il faut limiter la recherche de la première cellule vide en colonne C :
VB:
DL = Sheets("Acceuil").Range("C196").End(xlUp).Row
et il faut commencer à la ligne 10 :
Code:
For Lacceuil = 10 To DL
PJ rectifiée.
 

Pièces jointes

  • Classeur00 (V2).xlsm
    47.3 KB · Affichages: 4

chris

XLDnaute Barbatruc
Bonjour à tous
et un multipost de plus

 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…