Discussion :

[bosk1000]

Bonjour à tous

Comment puis-je faire dans la boucle ci dessous pour ne copier que la valeur de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
numdl = Range("b65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
For i = 2 To numdl
'copie le n° de la facture
Liste.Range("A2").Copy Destination:=Leger.Range("b12")
'copie le nom
Liste.Range("b2").Copy Destination:=Leger.Range("f9")
'copie le prix ht
Liste.Range("c2").Copy Destination:=Leger.Range("H25")
'copie le prix eco ht
Liste.Range("d2").Copy Destination:=Leger.Range("h27")
'copie le type de produit
Liste.Range("e2").Copy Destination:=Leger.Range("D25")
'copie la marque
Liste.Range("f2").Copy Destination:=Leger.Range("C25")
'copie la reference
Liste.Range("g2").Copy Destination:=Leger.Range("B25")
'imprime facture
Leger.PrintOut Copies:=1
'suprime ligne
Liste.Rows("2:2").Delete Shift:=xlUp
Next i

Merci

[Marc-L]

Bonjour,

Destination.Value = Source.Value …

[bosk1000]

merci pour ton aide
j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Liste.Range("A2").Copy Destination.value:=Leger.Range("b12").Value

mais j’obtiens le message d'erreur
erreur de compilation
attendu : fin d'instruction

[Marc-L]

Normal ‼

Copy

RangeDestination.Value = RangeSource.Value

et pas autre chose ‼

[EngueEngue]

hahaha

Marc voulait te dire..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Leger.Range("b12").value = Liste.Range("A2").value

[bosk1000]

Parfait

merci