Discussion :

[HIGGUINS]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[helas]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[HIGGUINS]

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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[HIGGUINS]

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.....