remise à zéro incrémentation numéro

Bonsoir,

A partir d'un bouton de commande j'ai créé un code permettant d'augmenter en numérotation :

Code:

---

1 2 3 4 5

Dim num As Integer Range("F2").Select num = Range("F2").Value num = num + 1 Range("F2").Value = num

---

Le hic: serait il possible d'avoir un code permettant une remise à zéro de cette numérotation au changement de mois. (Le mois est indiqué sur la feuille dans la cellule c10.

Merci pour votre aide.

Bonsoir,

Code:

---

1 2	If Range("C10")<>Format$(now,"mmmm") Then Range("F2") = 0

---

Salut.

Outre ta question que je n'ai pas très bien comprise (peut-être helas a-t-il vu juste), tu peux tout faire en une ligne

Code:

---

Range("F2").Value = range("F2").value + 1

---

Il faudra insérer le IF (mais comme je n'ai pas compris, je ne sais pas t'aider pour cela)

Bonjour à tout le monde,

Pour répondre à Pierre, ton code est plus court et cela donne le même résultat. Pour t'expliquer la finalité du projet est que j'ai une référence 10 05 001 et qu'avec un code je puisse faire évoluer automatiquement cette référence. En D2=10=année; En E2=05=mois; En F2=001=numérotation auto. En autre avec ton code la num auto augmente chaque fois que je clique sur le bouton de commande. Niquel. Afin d'étoffer cette numérotation, est ce qu'il serait possible de faire une remise à zéro de cette num auto lorsque l'on change de mois. Le mois en cour est indiqué en cellule C10.

Helas, j'ai essayé ton code mais cela ne marche pas sur ma cellule F2=num auto. Elle reste bloqué à 000.

Je serais tenté de mettre du code sur l'évènement CHANGE de la feuille concernée (donc dans le module VBA de cette feuille)

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then Range("f2") = 0 End Sub

---

pour remettre F2 à 0

Attention que 0 <> 000

Mais je ne suis pas certain d'avoir compris ton besoin.

Apparemment, tu as bien compris besoin car ta proposition correspond tout à fait à ce que je recherchais. Cela fonctionne. Par exemple nous somme en nov 2010 donc ma référence devis pour ce mois sera 10 11 suivi des num auto 001, 002, 003... Le mois prochain ma référence devis sera 10 12 suivi des num auto 001,002,003.....