pas de réponse à ma question ?

Bonjour.
Peux-tu être un peu plus spécifique ?
Où sont stockés les numéros de devis ? Où faut-il écrire le nouveau numéro ?
Cordialement.
Daniel
"cris570" <cris570@hotmail.com> a écrit dans le message de news:
%23IaHGJHBFHA.1076@TK2MSFTNGP10.phx.gbl...

Bonjour à tous,

Je souhaite dans un programme devis, entrer la numérotation automatique de
celui-ci.

Exemple : si le devis CH5-0001 existe, il crée le numéro
: CH5-0002

etc etc !!!



Merci à vous de votre aide.

Bonjour Cris570,
Il y a une multitude de possibilité pour avoir une numérotation
automatique.
Moi, j'utilise un fichier texte externe, mais il y a d'autres solutions.
Va voir sur google http://groups.google.com/advanced_group_search
A la question 'Find messages' + 'with all the words', tu tapes
'Numerotation automatique'
Comme 'Newsgroup', tu tapes : 'microsoft.public.fr.excel'
A toi de pêcher la réponse qui colle le plus à ta demande.
Philippe

"cris570" <cris570@hotmail.com> a écrit dans le message de news:
%23IaHGJHBFHA.1076@TK2MSFTNGP10.phx.gbl...

Bonjour à tous,

Je souhaite dans un programme devis, entrer la numérotation automatique de
celui-ci.

Exemple : si le devis CH5-0001 existe, il crée le numéro
: CH5-0002

etc etc !!!



Merci à vous de votre aide.

Exemple : si le devis CH5-0001 existe, il crée le numéro :
CH5-0002

Un exemple succint
Sub zz_NumFact()
For Each c In [PlageDesDevisExistants]
If c = "" Then Exit For
If Right(c, 4) * 1 > x Then
x = (Right(c, 4) * 1) + 1
y = Left(c, 4)
End If
Next
NouveauNum = y & Format(x, "0000")
End Sub

AV