[XL-2003] Incrémentation et impression automatique

[mc3donald]

Bonjour,

Voila je vous expose ma problématique :

Je travaille actuellement dans une boite de transport une partie de mon travaille quotidien est d'imprimer des "fiches palettes", le nombre d'impressions peuvent varier entre 50 et 200 par jours (1 fiche par clients).

Une fiche comporte 6 données différentes présentent dans un tableau excel qui mes transmis touts les jours la structure du tableau ne change jamais.

Ces données incrémentées automatiquement dans la "fiches palettes" grâce a des Recherchev, en remplissant une seule donnée (numéro de tourné voir lien plus bas).

Ma problématique a l'heure actuelle est que je voudrais que l'incrémentation et l'impression des fiches soit automatique grâce a des macros.



Mc3donald.

[bbil]

Tu met quoi dans cette "donnée..."

en supposant que cela soit un nombre dans la cellule A1 de la feuille 1 pour le faire varier tu peu :

Code :

1
2
3
4
5
6
7
8
9
 
Sub LanceParcours
 For i = 1 to 10 ' En considérant que tu fait varier ta "donnée" de 1 à 10 ... à 
 
   Feuil1.range("a1") = i
   msgbox "Index valeur : " & i
 
 next
end Sub

[mc3donald]

Je rempli le numéro de tourné et le reste s'incrémente automatiquement.

Ce que je souhaiterais ce serait que la tourné s'incrémente automatiquement et que la feuille s'imprime puis que sa incrémente le prochain numéro de tourné que sa imprime... jusqua ce qu'il y est pu de touné a imprimer.

[bbil]

je t'ai mis un code exemple permettant d'incrémenter une cellule .. à toi de l'adapter à ta "tourné" ou "donné" .. une fois que tu seras boucler d'une "tourné" à l'autre on verra comment imprimer...

[mc3donald]

Petite précision, je ne me suis jamais servi de VBA je commence aujourd'hui, j'apprend vite mais je ne comprend pas comment ton code peut permettre d'incrémenter.

Peut-tu développer ?

Cdlt

[bbil]

Support de cours complet pour le VBA d'Excel