Bonjour
- J'aimerais que lorsque je clique sur "Nouvelle facture" toutes les informations inutiles pour une nouvelle s'efface et que le numéro de facture en C3 et le numéro d'affaire en E4 changent ou plutôt soient incrémentés (selon le jargon excel).
Avec le code ci-dessous :
Sub Effacer()
'Dan - 13/11/17
' Effacer Macro
With Sheets("Facture")
.Range("C6,B14:B36,E14:E36").ClearContents
.Range("C3") = .Range("C3") + 1
.Range("E4") = .Range("E4") + 1
End With
End Sub
- J'aimerais que lorsque je clique sur "Sauvegarder" la facture en cours soit enregistrer sur l'onglet "Historique Facture" sous la forme:
Avec le code ci-dessous :
Sub Sauvegarde()
'Dan - 13/11/17
Dim dlg As Integer
With Feuil6
dlg = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row) + 1
.Range("A" & dlg) = Sheets("Facture").Range("C3")
.Range("B" & dlg) = Sheets("Facture").Range("C6")
.Range("C" & dlg) = Sheets("Facture").Range("F2")
.Range("D" & dlg) = Sheets("Facture").Range("F39")
'.Range("E" & dlg) = Sheets("Facture").Range("C3")
End With
End Sub
Pour le mois à sauvegarder, il faudrait savoir de quel mois on parle. celui de la facture ou de l'échéance ??
Pour la sauvegarde de la facture sur le serveur F, comment nomme-t-on la facture et est-elle sauvegardée en format excel ?
Cordialement