Discussion :

[CorentinB49]

Bonjour à tous,

Je ne suis pas certain de poster au bon endroit, si c'est le cas, veuillez m'en excuser.

Je souhaite créer un fichier Excel d'impression des étiquettes prix pour un supermarché. N'ayant pas de base en VBA, j'ai tenté d'effectuer cela via l'enregistrement de macro mais j'arrive à une limite que je ne peux pas surmonter.

Le contexte : Il s'agit d'un format d'étiquette en magasin classique, avec le nom du produit, son origine et son prix. La dimension ne doit pas etre modifiée car elle sera imprimée ensuite. Le contenu de l'étiquette par contre est modifiable. L'employé peut donc changer le nom du produit, son prix etc en fonction de l'étiquette qu'il doit imprimer.

J'ai donc créé le format d'étiquette souhaité, et un bouton qui copie cette étiquette, puis colle cette même étiquette sur une autre feuille, de sorte qu'après la rédaction d'une étiquette sur le fichier Excel, l'employé clique sur le bouton et l'étiquette est envoyée sur une seconde page pour impression lorsqu'il a terminé.
Le but étant de rédiger une étiquette, presser le bouton pour "l'enregistrer" (la coller en realité) sur une seconde feuille, rédiger une seconde étiquette, presser le bouton etc.
De sorte que lorsque l'employé a terminé de rédiger toutes ses étiquettes, il imprime simplement la feuille avec toutes les étiquettes ainsi enregistrées (collées).

Le problème c'est que l'enregistreur de macro ne me permet pas (je crois) d'indiquer à Excel que la cellulle est déjà remplie (par l'étiquette prcédente) et qu'il faut donc qu'il colle l'étiquette 2 lignes en dessous de l'étiquette collée précédemment. Il s'agit d'une fonction décallage avec VBA il me semble.

Il faudrait en realité que lorsque l'employé clique sur le bouton, cela colle l'étiquette sur la seconde feuille, et insère également 2 lignes en dessous de cette même étiquette afin que l'étiquette suivante ne soit pas collée par dessus la première.

En espérant que l'explication soit claire, merci d'avance pour vos réponses.

[Slooby]

Hello,

Les supermarchés ont déjà un logiciel interne qui gère tout plein de truc, dont l'étiquetage !!

En général, ces logiciels utilisent des codes de format (ex: code 43 permet d'imprimer 24 étiquettes sur une feuille A4)
Tu n'a pas a créer ce genre d'application, elles existent déjà et sont développées en interne.

Près de l'imprimante tu trouvera certainement un placard avec plein de feuille pré-imprimée avec différents format, et ça tu ne peux pas le changer. Car les étiquettes doivent respecter les normes imposées par l'enseigne.

Désolé de ne pas t'aider dans ta recherche de VBA, mais tu ne peux pas créer ton propre système d'impression d'étiquettes.

Slooby

[CorentinB49]

Bonjour Slooby et merci pour ta réponse.

Je suis conscient que les supermarchés ont un système propre et celui-ci est bien développé mais il ne peut pas gérer mon problème.

Je m'explique, je suis dans un pays ou le système de caisse est peu avancé, ce qui fait que certains articles sont gérés par le système, mais pas la totalité des articles.

Ce qui fait que les fruits et légumes sont étiquetés à la main par l'employé, qui créé les etiquettes via un template Excel, qui les imprime puis les découpe.
Je sais que cela peut paraitre archaique, mais il s'agit de la seule solution à court terme, c'est pour cela que ma question se porte sur le VBA afin de simplifier ce process.

Merci

[halaster08]

j'ai tenté d'effectuer cela via l'enregistrement de macro mais j'arrive à une limite que je ne peux pas surmonter.

Post ton code (avec la balise code #) et on verra ce qu'on peut faire.

Le problème c'est que l'enregistreur de macro ne me permet pas (je crois) d'indiquer à Excel que la cellulle est déjà remplie (par l'étiquette prcédente) et qu'il faut donc qu'il colle l'étiquette 2 lignes en dessous de l'étiquette collée précédemment.

L'enregistreur de macro ne peux pas le faire mais une petite retouche du code devrait suffir.

[CorentinB49]

Bonjour halaster08 et merci de ta réponse,

Mon code est en fait juste un copy past pour l'instant.

Je ne sais pas comment fonctionne la balise désolé, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Eticheta()
'
' Eticheta Macro
'
 
'
    Range("D4:G10").Select
    Selection.Copy
    Sheets("Printing F & V").Select
    ActiveSheet.Paste
End Sub

Merci

[kiki29]

Salut, pour Baliser ton code

[CorentinB49]

Salut, pour Baliser ton code

Salut, merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Eticheta()
'
' Eticheta Macro
'
 
'
    Range("D4:G10").Select
    Selection.Copy
    Sheets("Printing F & V").Select
    ActiveSheet.Paste
End Sub

[halaster08]

Je ne sais pas comment fonctionne la balise désolé

C'est le bouton avec ce symbole #

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Sub Eticheta()
'
' Eticheta Macro
'
 
'
    Range("D4:G10").Select
    Selection.Copy
    Sheets("Printing F & V").Select
    ActiveSheet.Paste
End Sub

Ok ça c'est pour le premier. Comme tu n'indique pas de plage pour le coller je suppose que c'est en A1
On peut déjà virer les select inutiles comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Sub Eticheta()
Range("D4:G10").Copy Sheets("Printing F & V").range("A1")
End Sub

Ensuite on peut demander a VBA de chercher la dernière ligne non vide via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Printing F & V").range("A" & rows.count).end(xlup).row

Et donc remplacer le 1 de A1 par cette formule + un décalage pour séparer tes étiquettes ce qui donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Sub Eticheta()
Range("D4:G10").Copy Sheets("Printing F & V").range("A" & Sheets("Printing F & V").range("A" & rows.count).end(xlup).row + 2)
End Sub

[CorentinB49]

Au vu de tes explications je pense que c'est bien ce que je recherche à faire, en revanche lorsque je lance le code, cela ne fonctionne pas.

Les cellulles sur lesquelles je souhaite coller sont fusionnées, j'ai une boite de dialogue qui m'indique que je ne peux pas coller à cause de cela.

Je suis pourtant obligé de conserver le format comme il est. Y a t-il un moyen de coller malgré les cellulles fusionnées ?

Merci

[halaster08]

malgré les cellulles fusionnées

Noooooooooooooooooooooon pas les fusions, c'est le mal !
Les fusions sont particulièrement horribles a gerer en VBA, je ne saurais pas t'aider plus sur ce coup là.
Peut être faudrait-il essayer une image de la plage.