XL 2013 Numérotation de la facture et effacer les chiffres

laeti95

XLDnaute Occasionnel
Bonjour le forum,

Je me bat toujours avec VBA

A moins que l'on me propose autre chose Volontiers ;-)

Pour numéroter mes factures ou devis que je dois faire, donc je reprend le dernier devis et cela me change le numéro automatiquement car je ne sais pas comment faire autrement

Mais en reprenant mon dernier devis, j'aimerais qu'a l'ouverture, les aniciens chiffres soit effacés.

Donc VBA je dois bien m'y mettre

Je suis preneuse pour faciliter le problème

Merci d'avance pour vos lumières.

Laeti
 

Pièces jointes

  • Numéro facture et effacer.xlsm
    13.5 KB · Affichages: 39
C

Compte Supprimé 979

Guest
Bonsoir Laeti95

Voici le code
VB:
Private Sub Workbook_Open()
  If MsgBox("Voulez-vous créer une nouvelle facture ?", vbQuestion + vbYesNo, "NOUVELLE FACTURE..") = vbYes Then
    With Sheets("Feuil1")
      .Range("D2").Value = .Range("D2").Value + 1
      .Range("A3:A9").ClearContents
      .Range("C6:C12").ClearContents
      .Range("C14:D19").ClearContents
    End With
  End If
End Sub

A+
 

laeti95

XLDnaute Occasionnel
Bonjour,
MERCI Bruno, j'ai regardé avec mon patron je dois trouver une autre solution car quand je veux consulter une facture faite tout s'efface donc cela ne va pas

Pour bien faire il faudra une Facture MODELE, ne pas l'enregistrer et à chaque ouverture du modèle que cela génère un numéro au dessus.

Que pensez-vous ?

Merci d'avance.
Laeti
 

laeti95

XLDnaute Occasionnel
Re Bruno,

oui ton VBA est très bien je crois, c'est juste qu'il faut connaitre la dernière facture enregistrée
car chez nous c'est par nom
et ton truc à l'ouverture permet de visualiser une facture déjà faite sans l'effacer, c'est très bien ;-)
reste à convaincre mon patron.....il est bien carré
Laeti
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof