Discussion :

[z.rhita]

bonjour,
je posséde deux feuilles ; la première feuille contient les références ainsi que les quantités des produits qu'un client à acheter ; la deuxième feuille contient la facture.
la feuille 1

Produits client
Référence Quantité
2 1
3 2

la feuille 2

facture
référence Quantité Description P.unitaire réduction total

Mon but est de copier les données de la première feuille dans la deuxième sachant que les 2feuilles existent dans le même classeur.
j'ai pu créer une macro qui permet d'ajouter une ligne dans la feuille 2 :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
With Application.ThisWorkbook.Sheets("facture")
    .Rows(.Rows(.Rows.Count).End(xlUp).Row).Insert
End With
 
'
End Sub

[aliasjadawin]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
 Dim i as integer
 Dim Cel1, Cel2, plage as Range
Set Cel1=Worksheets(1).Range("A3") 'feuille 1
Set Cel2=Worksheets(1).Range("A3").End(xlDown).End(xlToRight)
Set plage=Range(Cel1,Cel2)
For i=1 to plage.Rows.Count
Call Macro1
next i
plage.copy
Worksheets("facture").Range("A3").Paste
end Sub

[z.rhita]

je viens de tester le code mais il m'affiche un message d'erreur

erreur d'exécution'-2147417848(80010108)'
la méthode 'range'de l'onjet'_worksheet' a echoué

[aliasjadawin]

c'est très bien mais a quel endroit ?
Au niveau de Cel2 peut-être
Si oui fais plutôt ça. Après j'ai pas testé.

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
 
Sub test()
 Dim i as integer
 Dim Cel1, Cel2, plage as Range
Set Cel1=Worksheets(1).Range("A3") 'feuille 1
Worksheets(1).Range("A3").End(xlDown).Select
Selection.End(xlToRight).Select
Set Cel2=Selection
Set plage=Range(Cel1,Cel2)
For i=1 to plage.Rows.Count
Call Macro1
next i
plage.copy
Worksheets("facture").Range("A3").Paste
end Sub

[z.rhita]

sa marche toujours pas
il m'affiche une nouvelle erreur

erreur d'execution '438'
propiriété ou methode non gérée par cet bjet