incrementation automatique d un numero de commande

[TEDALDI]

Je cherche a creer un bon de commande avec numerotation automatique qui s incremente de +1 a chaque nouvelle ouverture.
Merci de m aider je ne reussi pas a trouver tout seul.

 

[gilles]

la seule façon d'incrementer +1 est de creer une procedure comme
suis :Sub incremente()

Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C2").Select
Application.CutCopyMode = False
End Sub

' en fait tu copie la cellule A1 et tu transpose uniquement la valeur en A2

ensuite tu peut masqué la cellule A2
A+ JM

 

[Sylvain]

une solution si on veut archiver les bons de commande :

1 créer un classeur numéros qui contiendra le dernier numéro utilisé
feuil1!a1

2 dans le classeur bon de commande feuille "bdc" choisissons la cellule b2 par exemple comme cellule contenant le numéro du bon de commande

3 créons une macro dans qui va s'exécuter à l'ouverture du classeur bon de commande et qui va faire ceci (ce n'est pas exactement du code)
if range("bdc!b2")=0 then
ouvrir le classeur numéros
num_bdc=range("feuil1!a1").value
range("feuil1!a1").value=num_bdc+1
enregistrer le classeur numéros
fermer le classeur numéros (on se retrouve sur le bon de commande)
range(bdc!b2).value=num_bdc+1
end if

4 taper 0 en b2 et enregistrer et fermer le document
5 ouvrir le document et vérifier que ça marche bien

6 taper 0 en b2 et enregistrer sous le document comme modèle

7 à chaque fois que vous créerez un nouveau document utilisant ce modèle il s'ouvrira avec un nouveau numéro

A+

 

[TEDALDI]

MERCI DE VOTRE REPONSE CONCERNANT L INCREMENTATION AUTOMATIQUE D UN NUMERO.

M TEDALDI

 

[TEDALDI]

MERCI POUR LA SOLUTION
@+