Récupération d'informations pour créer un listing client

Bonjour à tous,

je suis tout nouveau sur le forum que j'ai déjà beaucoup parcouru en étant non membre.

Je suis très novice en VBA.

J'ai toujours réussi à me débrouiller avec les infos que je trouvais de droite à gauche malheureusement je cherche désèpérement une solution à mon problème, je ne vois aucun post qui pourrai m'aiguiller.

Je fais donc appelle à vous pour que quelqu'un puisse m'aider.

J'aimerai, suite à la création d'une facture, récupérer des informations (marchandise vendue, n° de série, nom du client, téléphone et mail), dans une autre feuille et les lister. Je parviens bien à copier les différentes cellules de la feuille "facture vente" et à les transférer vers l' autre feuille appelé "liste" via une petite macro mais, à chaque fois les cellules de destination sont les mêmes, ce qui écrase les informations précédentes. J'aimerai que cette liste soit évolutive, que je puisse incrémenter une nouvelle ligne à chaque nouvelle facture.

J'ai adjoint le fichier en exemple

En espérant que ça parle à quelqu'un.

Merci

Bonjour Flo,

Ci-joint ton fichier test ... avec un Bouton pour 'Archiver' ...

En espèrant que cela t'aide ...

Salut James,

merci beaucoup de ton aide, c'est exactement ce que je souhaite, j'aimerai juste comprendre comment as-tu procéder car sous "visualiser le code", je ne comprends pas bien comment cela fonctionne.

Encore merci du temps que tu m'as consacré.

Flo

De rien ...

ci dessous la macro avec une explication/commentaire pour chaque instruction ...

Sub Archivage()
' Déclarer la variable der
Dim der As Long
' Définir la der nière ligne de la feuille 2 et y ajouter 1 pour
' se placer sur la première ligne vide ......
der = Feuil2.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
' En se basant sur la feuille Facture vente, copier les différentes
' cellules en A,B,C,D,E de la feuille Liste .....
  With Sheets("Facture vente")
    Sheets("Liste").Range("A" & der) = .Range("B11")
    Sheets("Liste").Range("B" & der) = .Range("C19")
    Sheets("Liste").Range("C" & der) = .Range("C4")
    Sheets("Liste").Range("D" & der) = .Range("C8")
    Sheets("Liste").Range("E" & der) = .Range("C9")
  End With
End Sub

En espèrant que cela soit plus clair ....

Bonjour et bienvenue sur le forum

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Encore merci James pour ton temps.

Je vais essayer d'intégrer tout ceci dans mon fichier.

A bientôt

Flo

flolelo a écrit :

Encore merci James pour ton temps.

Je vais essayer d'intégrer tout ceci dans mon fichier.

A bientôt

Flo

De rien ...

Content que cela puisse t'aider ...

Merci ... pour tes remerciements ...

Merci de ton aide gmb, il faut que je décortique tout ça.

Ta macro fonctionne très bien, il faut que je réussisse à l'intégrer dans mon fichier.

Flo

Merci les gars, ça fonctionne parfaitement.

Quel gain de temps vous venez m'apporter !!!

Flo

BIENVENUE dans le MONDE MERVEILLEUX d'EXCEL ...