Discussion :

[Kartoon67]

Bonjour à tous,

Je dois générer un nombre automatique sous excel du type jour/mois/numéro(999max).

En faite j'ai une application qui utilise les active X excel. J'ai un fichier source qui est en forme de rapport et via mon application je fait crée différents rapport selon les valeurs que je vais relever.

Mon but serait qu'à chaque nouveau rapport que je vais générer, un nombre automatique différent s'inscrive dans une cellule.

Merci d'avance pour votre aide.

[LeForestier]

Bonjour,
Pas fort clair mais si je lis entre les lignes,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Supposons..
'la colonne des numéros = C
'La ligne où est le dernier numéro = 10
'Donc la cellule C10 est égale à 14/05/010
Function AjoutNumero()
Dim TB
Dim Lig As Long
Dim Num As String
    Lig = 10 + 1 'nouvelle ligne
    TB = Split(Cells(Lig - 1, 3), "/")
    Num = Format(Day(Date), "0#") & "/" & _
        Format(Month(Date), "0#") & "/" & _
        Format(TB(2) + 1, "00#")
    Cells(Lig, 3) = Num
End Function

Pour être plus claire en C10 tu met >> 14/05/010
et tu envoi la fonction.
A+