boucle pour copier entre 2 feuilles

Encore un qui confond Tableur et SGBD.  

Explique-nous ça en détails.

En fait ce que tu veux, c'est ça : (?)

For i = LigneDebut to LigneFin

  Feuille("BON").Cellule("C18") = Feuille("Base de données").Cellule("B" i )

  Feuille("BON").Cellule("C18") = Feuille("Base de données").Cellule("B" i )

  Imprimer Feuille("BON")

Next

??

Excusez mes abus de langage ou absence de clarté je ne suis que débutant.

Je vais tenter de réexpliquer :
En gros j'ai une feuille "BON" dans laquelle les données sont tirés de ma feuille "base de données".

Par exemple on entre dans la feuille "base de données" le nom DUPOND et le bureau 540, la feuille "BON" est alors complétée avec DUPONT et 540 et imprimer automatiquement.

Feuille "base de données" : --------------------------->Feuille "BON"

A B A
1 nom bureau 1 nom: DUPOND
2 DUPOND 100 2 bureau:100


On entre ensuite une troisième ligne dans la feuille "base de données", La feuille "BON" est alors complétée à nouveau en écrasant les données précédentes, puis elle est imprimer.

Feuille "base de données" : --------------------------->Feuille "BON"

A B A
1 nom bureau 1 nom: DURAND
2 DUPOND 100 2 bureau:435
3 DURAND 435

On entre ensuite une quatrième ligne...

Voila exactement ce que je voudrais faire.
Merci.

Euhh le publipostage ça marche pas ?

J'ai enfin réussi à faire un trus qui marche à peu près mais j'ai encore un petit problème.
voici le code de la macro:

Sub saisie()

Dim i As Long

i = 1

Do While Cells(i, 1).Value <> ""

i = i + 1

Worksheets("BON").Cells(19, 3).Value = Worksheets("base de données").Cells(i - 1, 1).Value

Worksheets("BON").Cells(23, 3).Value = Worksheets("base de données").Cells(i - 1, 2).Value

Worksheets("BON").Cells(25, 3).Value = Worksheets("base de données").Cells(i - 1, 3).Value

Worksheets("BON").Cells(21, 3).Value = Worksheets("base de données").Cells(i - 1, 4).Value

Worksheets("BON").Cells(13, 3).Value = Worksheets("base de données").Cells(i - 1, 5).Value

Worksheets("BON").Cells(15, 3).Value = Worksheets("base de données").Cells(i - 1, 6).Value

Worksheets("BON").Cells(11, 5).Value = Worksheets("base de données").Cells(i - 1, 7).Value

Worksheets("BON").Cells(9, 2).Value = Worksheets("base de données").Cells(i - 1, 8).Value

Worksheets("BON").Cells(2, 5).Value = Worksheets("base de données").Cells(i - 1, 10).Value

Loop

 Sheets("BON").Select

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Voici mon problème :
Les cellules sont bien copiées dans la feuille "bon" mais le problème et que i s'incrémente tout le temps on ne peut donc jamais revenir une cellule plus haut, ce qui pose problème si par exemple quelqu'un se trompe et veut faire réimprimer simplement le bon k correspondant à la ligne k alors la c'est impossible. Je me retourne donc vers vous.

User
Date and Time
Action Type
Comment
Field
Before
After
(Juste pour me faire plaisir, écris les lignes 16 et 17 comme ça :

Ligne 4, tu ne précises la feuille de la cellule i,1.)

Je ne comprends pas bien pourquoi l'impression n'est pas dans la boucle. (Ligne 16&17) Je l'aurais mise avant Loop (Ligne 15)

Pour ton problème, il faut décomposer ton problème.
D'une part la préparation d'une feuille, d'autre part la boucle.

Exemple:

Sub PreparerFeuille(k as Long)

	Dim bon as Worksheet

	Dim bdd as Worksheet

 
	Set bon = Worksheets("BON")

	Set bdd = Worksheets("base de données")

 
	bon.Cells(19, 3).Value = bdd.Cells(k - 1, 1).Value

	bon.Cells(23, 3).Value = bdd.Cells(k - 1, 2).Value

	bon.Cells(25, 3).Value = bdd.Cells(k - 1, 3).Value

	bon.Cells(21, 3).Value = bdd.Cells(k - 1, 4).Value

	bon.Cells(13, 3).Value = bdd.Cells(k - 1, 5).Value

	bon.Cells(15, 3).Value = bdd.Cells(k - 1, 6).Value

	bon.Cells(11, 5).Value = bdd.Cells(k - 1, 7).Value

	bon.Cells(9, 2).Value = bdd.Cells(k - 1, 8).Value

	bon.Cells(2, 5).Value = bdd.Cells(k - 1, 10).Value

 
	Set bon = Nothing

	Set bdd = Nothing

End Sub

 
Sub ImprimerLesFeuilles

	Dim bon as Worksheet

	Dim bdd as Worksheet

	Dim i As Long

 
	Set bon = Worksheets("BON")

	Set bdd = Worksheets("base de données")

 
	i = 1

	Do While bdd.Cells(i, 1).Value <> ""

		i = i + 1

		PreparerFeuille i 

		bon.PrintOut ....		

	Loop

 
	Set bon = Nothing

	Set bdd = Nothing

End Sub