Bonjour,
J'avais complétement zappé ce fil
Je viens de modifier le micro facturier pour qu'il réponde à tes attentes.
L'idée est d'ajouter une nouvelle feuille au classeur, basée sur un modèle identique à la feuille
Saisie mais privée de son tableau de bord. En remplacement elle possède un bouton pour copier les différentes prestations ou produits vers la feuille
Saisie afin d'enregistrer la facture au moment opportun.
La feuille Saisie est agrémentée d'un bouton pour créer une facture provisoire :
Lafricain2.png
et la facture provisoire :
Lafricain1.png
Sur les factures provisoires, seules les colonnes
Réf., Quantité et Remise peuvent-être renseignées (comme sur la feuille
Saisie)
J'ai créé dans le fichier un module Options avec les codes adéquats :
Code : Tout sélectionner
Option Explicit
Sub CreerFactureProvisoire
Dim oDoc As Object, lesFeuilles As Object, feuilleActive As Object
Dim controleur As Object, lesFormulaires As Object, unFormulaire As Object
Dim monCtrl As Object, vueCtrl As Object
Dim nom As String
oDoc = ThisComponent : lesFeuilles = oDoc.Sheets
nom = InputBox("Renseignez le nom de patient:")
if nom = "" then
msgBox "Il faut saisir le nom du patient"
exit sub
end if
if lesFeuilles.hasByName(nom) then
msgBox "Ce patient a déjà une facture provisoire"
exit sub
end if
lesFeuilles.copyByName("ModelClient", nom, lesFeuilles.Count)
oDoc.CurrentController.ActiveSheet = lesFeuilles.GetByName(nom)
lesFeuilles.getByName(nom).GetCellRangeByName("G9").SetString(nom)
End Sub
Sub CopierVersFeuilleSaisie
Dim oDoc As Object, feuilleActive As Object, feuilleSaisie As Object
Dim data As Variant
oDoc = Thiscomponent
feuilleActive = oDoc.CurrentController.ActiveSheet
feuilleSaisie = oDoc.Sheets.GetByName("Saisie")
data = feuilleActive.GetCellRangeByName("G15:H39").DataArray
feuilleSaisie.GetCellRangeByName("G15:H39").DataArray = data
msgBox "Transfert effectué"
oDoc.CurrentController.ActiveSheet = feuilleSaisie
End Sub
Et le fichier qui va avec :
A+
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.