Variable sur une feuille excel

[DERKOO]

Bonjour forum

mon problème est simple.
je cherche l'équivalent de l´option 'lettre et correspondance' de word dans excel.

J´ai un format de formulaire. Mais lors de l´impression je voudrai que le numero de fiche s´incrémente de 1.. Si vous voyez ce que je veux dire..
1 ere impression no1
2eme impression no2
3eme .... no3
.....

Merci d avance pour vos conseils

longue vie

 

[ERIC S]

Bonsoir

par macro peut-être

exemple en A1 ton numéro

macro dans workbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets('feuil1').Range('A1').Value = Sheets('feuil1').Range('A1').Value + 1
End Sub

A tester

A+

 

[Derkoo]

Salut forum , Salut Eric

Merci pour ta réponse
Je viens de tester ton pti code. J´avoue que ce n´est pas trop adapté à mes besoins, car avec ton code j ai besoin d imprimer feuile par feuille pour voir la variable s´incrémenter. Lorsque je veux faire du gros volume, cela ne s´applique pas.

Comment faire?

Derkoo

 

[ERIC S]

Bonjour

Effectivement la question est: comment utilises-tu ton formulaire?

est-ce pour faire un 'mailing', dans ce cas comment gères-tu les données venant dans ton formulaire type?

A+

 

[Derkoo]

Il s´agit juste d´un formulaire que j´imprime puis que je distribue. Celui-ci par la suite est rempli de manière régulière.

La numérotation est importante pour pouvoir faire un suivi.

Dans un premier temps j ai besoin d imprimer plus de 200 cents exemplaires.

Cela te suffit-il?
A+

 

[ERIC S]

re

une piste en utilisant l'instruction sendkeys
(voir dans aide visual)
elle génère des codes clavier et peut te permettre de lancer une impression

Private Sub Workbook_BeforePrint(Cancel As Boolean)
exemplaires = inputbox ('combien d'exemplaires')
for i = 1 to exemplaires
Sheets('feuil1').Range('A1').Value = Sheets('feuil1').Range('A1').Value + 1
SendKeys '^p%', -1
next i
cancel=true
End Sub

non testé mais devrait incrémenter, générer la demande d'1 impression et en fin de boucle annuler la demande d'impression

Assez basic mais il y a sans doute mieux, par contre je pars dans env 1h et ne serait là que demain, j'attends ta réponse à mon post précedent

A+

 

[ERIC S]

re

on s'est croisés
essaie avec le code 'sendkeys', j'ai peut-être fait des erreurs mais avec cette instruction tu dois y arriver

A+

 

[ERIC S]

re

peut-être un soucis

exemplaire =val(inputbox..)

sinon pris pour du texte je crois

A+

 

[Derkoo]

resalut

je l ai posé ds un fichier test.
une erreur me revient lors de l´enregistrement du nb de copie a imprimer. (cyclique)..

As tu le temps de jeter un coup d oeil

Merci pour ton aide en tout cas.
Derkoo

 

[Derkoo]

avec le fichier parodn



j ai reessayé en mode step by step et ca marche..

mais j ai cette redondance en mode normal..

a+

 

[derkoo]

j ai vraiment du mal avec ce fichier.

Au tant pour moi.. mais j ai du mal avec le code
[file name=test_20060327103254.zip size=7544]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060327103254.zip[/file]

 

[ERIC S]

re

bouclage sur impression
pas le temps de regarder, tu crées un bouton et tu affectes la macro (à mettre cette fois dan sun module)
elle a l'air de fonctionner

Sub essai()
exemplaires = Val(InputBox('combien d'exemplaires'))
For i = 1 To exemplaires
Sheets('feuil1').Range('A1').Value = Sheets('feuil1').Range('A1').Value + 1
SendKeys '^p{enter}', -1
Next i
End Sub

A+

 

[ERIC S]

Bonjour derkoo

as-tu essayé avec mon dernier bout de code hier?

A+

 

[Derkoo]

pardon pour ce retard.

J ai en effet essayé et ca merche três bien.

Je te remercie encore pour ta precieuse aide.

Derkoo