remplir des etiquettes

[gothc]

Bonjour le forum

je cherche de l'aide pour une macro pour remplir des étiquettes a partir d'une base

merci de votre aide

 

[gothc]

Re : remplir des etiquettes

Merci beaucoup pour le module imprimer

bonne journée a vous Amitié
Christophe

 

[job75]

Re : remplir des etiquettes

Re,

La Dernière cellule était trop loin ce qui ralentissait les macros, je modifie le fichier du post #15.

Edit : j'ai aussi modifié pour traiter les cas où il y a moins de 3 étiquettes.

Noter qu'il faut utiliser Application.RoundUp et pas Round.

A+

 

[msingle]

Re : remplir des etiquettes

Bonjour job75,

Comment transformer la macro pour avoir 3 étiquettes en largeur (par exemple en colonnes K - L -M)?

Marc

 

[Staple1600]

Re : remplir des etiquettes

Bonjour à tous

msingle
Pour info:
La coutume sur le forum est de poser sa question dans sa propre discussion créée pour l’occasion plutôt que la poster dans un fil initié par un autre membre.

A te relire donc dans ton propre fil.
NB: Dans ton fil, tu peux mettre un lien vers celle-ci pour expliquer sur quel code VBA existant tu bases ton projet.

 

[msingle]

Re : remplir des etiquettes

Désolé, mais je pensais qu'il s'agissait d'une suite logique de la discussion, puisqu'il n'était question que de modifier très légèrement la macro proposée...

 

[job75]

Re : remplir des etiquettes

Bonsoir msingle, salut Jean-Marie,

Vos étiquettes sont sûrement différentes de celles de ce fil, il faudrait donc en effet ouvrir votre propre discussion.

Mais pour répondre à votre question, oui il est facile de modifier la macro pour éditer 3 étiquettes en largeur.

Dans la macro Etiquettes c'est ici qu'est la principale modification :

j = (i - 2) Mod 3
Set c = c(IIf(j = 2, 7, 1), IIf(j = 2, -7, 5))

Fichier (2).

Bonne nuit.

 

[job75]

Re : remplir des etiquettes

Bonjour msingle, le forum,

Dans ce fichier (3) on paramètre le nombre d'étiquettes en largeur et en hauteur par page.

Je vous remercie d'être intervenu car cela complète vraiment très bien cette discussion.

Bonne journée.

 

[job75]

Re : remplir des etiquettes

Re,

Sur un autre fil j'ai (re)découvert qu'il faut mettre le zoom de la mise en page à False :

'------
  .PageSetup.Zoom = False
  .PageSetup.FitToPagesWide = 1
  .PageSetup.FitToPagesTall = 1

Bonne nuit.

 

[msingle]

Re : remplir des etiquettes

Merci à job75 pour ce fichier paramétrable!

Travail excellent et très utile.

Il me semblait aussi que ma question n'était pas hors de propos...

Bonne nuit.
Marc