Remise à 0 cellule selon Mois par bouton

Bonjour le Forum,

Je suis nouveau sur le forum et je souhaiterai avoir de l'aide svp...

J'ai un bouton sur mon classeur qui me permets d'incrémenter un nombre qui viendra s'ajouter à mon numéro de facture automatiquement.

Le bouton fonctionne bien malgré, je pense, que la formule de référence puisse être simplifié...

Le souci que je rencontre est que je souhaiterai que mon numéro se reinitialise à chaque changement de mois.

Je vous joins un fichier pour l'exemple.

En fait les formalisme de mes numéros de factures est le suivant : FA "yyyy-mm-"100. A chaque clic le 100 augmente de 1 jusqu'au changement de mois ou je souhaiterai que le 100 et quelque revienne à 100 et c'est là que je sèche malgré de nombreux tests...

Votre aide serait donc la bienvenue.

Je vous remercie par avance...

Bonjour,

Teste ceci

Private Sub CommandButton1_Click()
  Dim M$
  M = Format(Month(Now), "00")
    If Mid(Worksheets("Feuil1").Range("A1").Value, 9, 2) <> M Then
      Range("c1") = -1
    End If
  Range("B1").Value = 100
  Range("C1").Value = Range("C1").Value + 1
  Range("D1").Value = Range("C1").Value + 100
  Worksheets("Feuil1").Range("A1").Value = "FA " & Format(Date, "yyyy-mm-")
  Worksheets("Feuil1").Range("E1").Value = "FA " & Format(Date, "yyyy-mm-") & Range("D1").Value
End Sub

Bonsoir @M12, le Forum,

Merci pour ta réponse et désolé pour le retard de la mienne.

J'ai implémenté, cela fonctionne mais je ne peux pas tester, excepté au passage au mois prochain, non ?

Re,

Après réflexion, il y a plus simple pour l'ajout et la remise à 100 de ton N° de facture

Une seule colonne suffit

Pour le test, j'ai volontairement mis le mois en Avril et le N° d'incrémentation à 357

Fait le test

Bonjour @M12, le Forum,

C'est tout bon de mon côté!

Merci pour la simplification et surtout, merci pour votre aide!