Bonjour,
<?xml:namespace prefix
o ns "urn:schemas-microsoft-com:office:office" /??>
Voilà plusieurs jours que je bloque et que je n'arrive pas à finaliser mon projet.
Dossier Factures.xls, feuille « récapitulatif » et feuilles « facture n° 1 », « facture n° 2 », etc....
Lors de la création de la nouvelle facture, le numéro de facture, le nom client, le PHT, la TVA, le PTTC s’insèrent dans la feuille « récapitulatif ».
Lors de l'acquittement de cette facture, je souhaiterais la sélectionner dans la feuille récapitulatif pour insérer la date de paiement.
Merci pour votre aide.
Sub Facture_Acquittée()
' Déclaration des variables
Dim NomBanque As String
Dim Emetteur As String
Dim NuméroChèque As String
Dim DateChèque As String
Dim Montant As String
' Définition des variables
NomBanque = InputBox("saisir le nom de la banque")
Emetteur = InputBox("Saisir le nom de l'Emetteur du chèque")
NuméroChèque = InputBox("Saisir le numéro de chèque")
DateChèque = InputBox("Saisir la date du chèque")
MontantChèque = InputBox("Saisir le montant du chèque")
' Copie et colle sur la facture le tableau sur la facture
ActiveSheet.Select
Range("B173:D177").Select
Selection.Copy
Range("B42:D46").Select
ActiveSheet.Paste
' Changement de couleur de l'onglet de la facture
ActiveSheet.Tab.ColorIndex = 1
Selection.Interior.ColorIndex = 1
Selection.Font.ColorIndex = 2
ActiveWorkbook.Save
' Saisie les données sur la facture
ActiveSheet.Range("C42").Value = NomBanque
ActiveSheet.Range("C43").Value = Emetteur
ActiveSheet.Range("C44").Value = NuméroChèque
ActiveSheet.Range("C45").Value = DateChèque
ActiveSheet.Range("C46").Value = MontantChèque
‘ FEUILLE RECAPITULATIF
' Déclaration de variables
Dim NuméroFacture
' Définition de variables
NuméroFacture = ActiveSheet.Name
' Recherche la facture
Sheets("Récapitulatif").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=NuméroFacture
' Le filtrage fonctionne, il trouve bien la facture, mais je ne sais pas comment faire _
pour saisir la date de paiement (colonne I, cellule ?)
' Insère date de paiement
' ActiveSheet.Range("I").Value = DateChèque
' Enleve le filtrage automatique
Selection.AutoFilter Field:=1
' Nouveau documents
If MsgBox("ATTENTION" & vbNewLine & "Voulez-vous saisir un autre document ?" _
, vbQuestion + vbYesNo, "AVERTISSEMENT") = vbYes Then
' Réponse oui
ChDir _
"C:\Documents and Settings\<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /??><st1:personname w:st="on" productid="Anne-Marie BELMAS">Anne-Marie BELMAS</st1:personname>\Mes documents\Eric\Ebénisterie\2009"
Workbooks.Open Filename:= _
"C:\Documents and Settings\<st1:personname w:st="on" productid="Anne-Marie BELMAS">Anne-Marie BELMAS</st1:personname>\Mes documents\Eric\Ebénisterie\2009\Devis et Factures.xls"
Else
' Réponse non
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End If
End Sub
Nanie
Afficher la suite