Discussion :

[Hitman_11]

Bonjour,
Je dispose d'un fichier qui me permet un suivi et création de factures avec incrémentation du numéro de facture de manière automatique.
Grace à un tuto je suis parvenu avec éditer une facture (Feuille FACTURE) avec numérotation automatique, et à l'archiver dans la feuille (Historique_Factures).
J'ai ajouté une feuille (Suivi_Factures); et dans cette feuille je souhaiterai renseigner manuellement les factures de mes fournisseurs, et que par l’intermédiaire de la macro y ajouter les données archivées dans la feuille (Historique_Factures)
Si bien que lorsque je créé une facture et que j’archive, elle s’archivera dans « historique_factures » et « dans suivi de factures ».
Cela me permet d’avoir une incrémentation automatique des factures que j’édite, et également un suivi de l’ensemble des factures, celles que j’édite et celles des fournisseurs ou prestataires.

La feuille Suivi_Facture contiendrait donc les données issues de Historique_Facture, et des données enregistrées manuellement.
J’ai fait quelques tentatives sans succès, je ne sais pas comment enregistrer les valeurs d’une ligne entière de la feuille (Historique_Factures) vers une autre ligne dans la feuille (Suivi_Factures) ???
Est-ce que cela est possible ?

Merci pour votre aide.

[Tylert]

Tu peux adresser une feuille particulière par son nom ou sa position.
worksheet(nom ou position").
Ensuite tu peux cibler une ligne particulière avec rows, puis une cellule particulière de cette ligne avec cells.

Une instruction comme celle ci dessous copie la cellule 1 de la ligne 1 de la feuille 2 dans la cellule 1 de la ligne 1 de la feuille 1:

Code :

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

ThisWorkbook.Worksheets(1).Rows(1).Cells(1) = ThisWorkbook.Worksheets(2).Rows(1).Cells(1)

(A adapter à ton classeur évidemment)

Il suffit donc de coder une boucle avec une condition d'arrêt sur la fin de la ligne (Qui dépend de ton classeur... par exemple tu sais que ta feuille n'a pas plus de 20 colonne utiles):

Code :

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

1
2
3
4
5
6
7
8
9
sub Copierligne(j as integer, k as integer)
dim i as integer
 
i=1
While i <= 20 
    ThisWorkbook.Worksheets("suivi_Factures").Rows(k).Cells(i) = ThisWorkbook.Worksheets("Historique_Factures").Rows(j).Cells(i)
    i = i+1
wend
end sub

A noter que je n'ai pas regardé ton classeur et j'ai supposé qu'on copiait la ligne J dans la ligne k.
Je n'ai pas testé le code et je suis sur qu'un ponte d'Excel va sortir une ligne de code qui copie directement le contenu d'une ligne dans une autre ligne avec des fonctions Excel

[Hitman_11]

Bonjour,
Merci, je vais vérifier ta proposition.