VBA - Userform

[Lucie]

Bonsoir à tous,

J’ai besoin d’un petit coup de pouce pour 1 code VBA…. Et oui….

Voici ds le fichier joint 1 programme qui permet de saisir plusieurs informations après avoir cliqué sur le bouton 'étiquette blanche'.

Là où j’ai besoin d’aide c’est pour la chose suivante :
Après avoir indiqué le nombre total de colis je souhaiterais imprimer autant de feuilles qu’il y a de colis. Et chaque feuille devra être numérotée.

Exple : Je saisis 3 colis
Donc je vais avoir 3 feuilles à imprimer
Chaque feuille contiendra la numérotation suivante dans la cellule Excel 'F16' : 1/3, 2/3, 3/3

Merci merci pour votre aide !!!

Bonne soirée,

Lucie [file name=Etiquette_Blanche.zip size=12007]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Etiquette_Blanche.zip[/file]

 

[PascalXLD]

Bonjour

Voici modifié sans tester [file name=Etiquette_Blanche_20051222175832.zip size=12087]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Etiquette_Blanche_20051222175832.zip[/file]

 

[Lucie]

Merci Pascal pour le coup de pouce ! c'est super !

Mais..... Je viens de tester le code et j'ai 1 petit souci:

j'ai indiqué 3 colis et au moment de l'impression j'obtiens:
- 1ère feuille : 1/3 (OK)
- 2ème feuille : 2/3 (OK)
- 3ème feuille : 1/1 (PB)

Que faudrait-il changer ??

Merci,

Lucie [file name=Etiquette_Blanche_20051222195323.zip size=12382]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Etiquette_Blanche_20051222195323.zip[/file]

 

[PascalXLD]

Bonjour

Change le format de ta cellule F16

Mets là en texte avec alignement à droite pour garder le même style au lieu de ton format personnalisé que tu as mis et cela fonctionne

Bonne journée

 

[Lucie]

Bonjour,

J'ai fait le changement de format et ça fonctionne !
Merci pour ton aide Pascal !

Bonne journée !