De: Frédéric Sigonneau <frederic.sigonneau@wanadoo.fr>
Objet: Re: concatener
Date : vendredi 21 avril 2000 11:59

Sabatier a écrit :
> 
> salam alikoum
> c'est la première fois que j'interviens sur le forum ; aussi vous
> remercie-je et de votre indulgence et de vos réponses, le tout par
> anticipation
> comment rédiger une macro qui installerait dans une même cellule
> 1) la date du jour au format aamm
> 2) un zero
> 3) un chiffre qui devra s'incrémenter
> 
> pour obtenir un numero de facture rédigé ainsi :
> 
> 000401       pour la première facture
> 000402       pour la deuxième etc..etc...
> cordialement
> sjp (ud tanyeloug sialojuaeb) - Indonésie

Bienvenue, honorable jps inconnu

Je vous propose la petite fonction ci-dessous pour construire vos
numéros de facture :

Function NumFactBuilder(Source As Range, IncDec As Integer)
Dim codeAnnee As String, codeMois As String, codeNum As Integer
Dim Racine As String

    codeAnnee = CStr(Right(Year(Date), 2))
    codeMois = CStr(Month(Date))
    If CInt(codeMois) < 10 Then codeMois = "0" + codeMois
    Racine = codeAnnee + codeMois + "0"
    
    If Racine = Left(Source.Text, 5) Then
        codeNum = Mid(Source.Text, 6) + IncDec
    Else: codeNum = 1
    End If
    
    NumFactBuilder = "'" + Racine + CStr(codeNum)

End Function

Utilisable comme suit pour renseigner une cellule nommée, par exemple,
"numeroFacture"
[numeroFacture]=NumFactBuilder([numeroFacture],1)

FS
-- 
Frédéric Sigonneau
Gestions de temps : http://perso.wanadoo.fr/frederic.sigonneau
Time managements : http://perso.wanadoo.fr/frederic.sigonneau/index2.htm