système de facturation

[toutanne]

Bonjour à tous!

Je suis entrain de créer un système de quittance qui reprend les données de ma feuille 1 sur ma feuille 2.

Lorsque j'ai fini de remplir les données sur ma feuille 1, j'ai créer un bouton qui me vide les cellules pour pouvoir
passer au client suivant.

voilà mon problème, je souhaiterais que quand je clique sur mon bouton ça passe à la ligne suivante, sur la feuille 2, sans m'effacer les données insérées précédemment. Comme ça j'ai une trace de tout les clients et leur commande.

Vous trouverez le fichier en attachement, si jamais vous pouvez m'aider.

D'avance merci pour votre aide précieuse.

Cordialement

Marcello

 

[titiborregan5]

Re : système de facturation

Bonjour Toutanne,

voici un début de code qui copie les données pour le nom prénom adresse et les met à la suite...
sur le même modèle il ne te reste plus qu'à faire les quantités pour les produits!

Sub copiealasuite()
With Sheets(2)
derl = .Range("d65000").End(xlUp).Offset(1, 0).Row
.Cells(derl, 4) = Sheets(1).Range("d30")
.Cells(derl, 5) = Sheets(1).Range("d31")
.Cells(derl, 6) = Sheets(1).Range("d32")


End With
End Sub

tu peux rajouter la partie quantité avec le code suivant (boucle à mettre avant le end with)

    For i = 8 To 23
    .Cells(derl, i - 1) = Sheets(1).Cells(i, 1)
    Next

 

[pat01200]

Re : système de facturation

Bonjour Toutanne, bonjour le forum

Je te retourne ton fichier que j'ai modifié, dis-moi si cela correspond à tes attentes...

Cordialement,
Patrick

 

[toutanne]

Re : système de facturation

c'est exactement ca!!! merci mille fois Patrick!!! Sans abuser est-ce qu'il serait possible de lancer l'impression également?

 

[titiborregan5]

Re : système de facturation

re,
mon code ne fonctionne pas?

Sub copiealasuite()
With Sheets(2)
derl = .Range("d65000").End(xlUp).Offset(1, 0).Row
.Cells(derl, 4) = Sheets(1).Range("d30")
.Cells(derl, 5) = Sheets(1).Range("d31")
.Cells(derl, 6) = Sheets(1).Range("d32")

For i = 8 To 23 'à adapter au nombre de valeurs
    .Cells(derl, i - 1) = Sheets(1).Cells(i, 1)
    Next

End With
End Sub

il sera plus dynamique et moins lourd que celui de Patrick! Ceci dit si les plages ne sont pas plus grandes, la différence ne se verra pas!

 

[toutanne]

Re : système de facturation

Salut titiborregan5,

Ton code fonctionne mais il ne vide pas la feuille 1 après avoir cliqué et il me remplace toujours la même ligne au lieu d'en ajouter une nouvelle