Reconstituer une facture

[jlvv]

Bonjour ,voici mon problème, j'ai créer un facturier avec Excel ,il fonctionne sauf que je voudrais une chose en plus
et je trouve pas ( je suis novice ,j'apprend via des infos trouver sur le net ).
Dans mon classeur quand je clic dans ma feuille "Facture" sur sauvegarder il me sauvegarde ma facture dans l'onglet
"HISTORIQUEFACTURE" puis j'efface ma facture, ce que je voudrais bien ces reconstituer ma facture a partir
l'onglet "HISTORIQUEFACTURE" en cliquant sur un bouton ou autre chose(style formulaire) pour quelle ce ré-ouvre dans l'ongle "Facture",pour pouvoir modifier cette facture et la ré-enregistrer ou elle ce trouve ,
c'est un peut compliquer d'expliquer mais en regardent mon fichier vous aller comprendre,
Merci d'avance de vos réponse

 

[jlvv]

Re : Reconstituer une facture

Bonjour vgendron et merci je viens de faire ce que tu ma dis et j'ai supprimer les 2 formulaires c'était des essai ,
je me permet de remettre mon fichier transformer pour voir si c'est bon
Maintenant je cherche pour lenregistrer la facture une fois modifier

 

[camarchepas]

Re : Reconstituer une facture

Bonjour Jean Luc ,

Dommage pourquoi ne pas être repartis de mon fichier ?

Avant de vouloir faire plus , il faut assenir l'existant

 

[jlvv]

Re : Reconstituer une facture

re c'est ton fichier que j'ai mis ,mais uniquement pour voir si je part dans le bon sens ,sorry
je dois vous laisser quelques heures merci

 

[camarchepas]

Re : Reconstituer une facture

Re ,

Vérifies bien , tu as dû te tromper dans la pièce jointe alors .

 

[jlvv]

Re : Reconstituer une facture

Oupss ,désolé voici ton fichier ,je l'ai renommer pour ne plus confondre avec mes test

 

[camarchepas]

Re : Reconstituer une facture

Bonjour ,

Allez un pas de plus ,

j'ai modifié la sauvegarde pour qu'elle prenne autant de lignes qu'il y en a .

Du coup pour le moment la restitution ne fonctionnera plus forcement correctement.

Je regarde dès que je peux pour lever ce point bloquant

 

[jlvv]

Re : Reconstituer une facture

Bonsoir camachepas et merci ,je regarde

 

[jlvv]

Re : Reconstituer une facture

Super la sauvegarde et le nombre de lignes par rapport a la facture merci

Ps: quand j'établi une nouvelle facture il me demande un n° maintenant et si je met un n° existant il le prend quand meme ?

 

[camarchepas]

Re : Reconstituer une facture

Bonsoir ,

Par contre y'a un truc qui pourrait géner , ou pas ,

Lorsque l'on remonte une facture , la date sera modifiée par celle du jour . est ce le fonctionnement voulu ?

Sinon , en commençant à regarder la restitution, j'ai vu que Vgendron avait anticipé en quelque sorte le nombre de lignes non fixe.

Je continu à tester l'ensemble afin de vérifier la cohérence de l'ensemble

Puis , il faudra re-travailler un peu la sauvegarde pour réinsérer une facture où le nombre de lignes aurait changé par rapport à la première sauvegarde.

 

[jlvv]

Re : Reconstituer une facture

"Par contre y'a un truc qui pourrait géner , ou pas ,
Lorsque l'on remonte une facture , la date sera modifiée par celle du jour . est ce le fonctionnement voulu ?"

c'est la date de "Date/Prestation" qui compte

merci

 

[Staple1600]

Re : Reconstituer une facture

Bonsoir à tous

[pour infos]
J'arrive un peu tard pour cette simple précision:
on peut ne pas utiliser NumFacture.Address puisqu’on dispose avec le type 8 d'un objet Range.
Voir ci-dessous ces trois syntaxe qui font la même chose.

Sub ReconstitutionFactureI()
Dim NumFacture As Range
Set NumFacture = Application.InputBox("Sélectionnez la facture à reconstruire", Type:=8)
'possibilité 1
Range(NumFacture.Address).Copy Destination:=Sheets("Facture").Range("H2")
End Sub
Sub ReconstitutionFactureII()
Dim NumFacture As Range
Set NumFacture = Application.InputBox("Sélectionnez la facture à reconstruire", Type:=8)
'possibilité 2
NumFacture.Copy Sheets("Facture").Range("H2")
End Sub
Sub ReconstitutionFactureIII()
Dim NumFacture As Range
Set NumFacture = Application.InputBox("Sélectionnez la facture à reconstruire", Type:=8)
'possibilité 3
With NumFacture
    Sheets("Facture").Range("H2").Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
End Sub

[/pour infos]

 

[camarchepas]

Re : Reconstituer une facture

Bonjour Jean Marie, Jean Luc, Vgendron,

Voilà ,

Suite à modification et plusieurs tests , Restitution et sauvegarde de facture fonctionnent.

J'ai également incorporé la proposition de Jean Marie pour l'utilisation du résultat de l'inputbox.

Jean Luc , y'a plus qu'à tester pour voir s'il n'y aurait pas des cas de figures qui ne fonctionneraient pas

 

[jcf6464]

Re : Reconstituer une facture

Bonjour jlvv et le forum

ma modeste contribution,
j'ai modifier le classeur pour une meilleure utilisation et visibilité

bonne continuation

jcf64

 

[camarchepas]

Re : Reconstituer une facture

Bonjour Jcf,

Un peu de Design ne peut pas nuire en effet ,

Presque commercialisable , lol

Merci

 

[jlvv]

Re : Reconstituer une facture

Bonjour et merci Beaucoup jcf6464, camarchepas super