num incrémenté

[lmylvc]

Hello les amis

Je suis à la recherche d'une solution pour incrémenter un n° dans un fichier xls
dans la feuille "NFC" dans la cellule D2 lors de l'enregistrement du fichier.

Ce serait bien si le n° d'incrémentation pouvait se présenter de la façon suivante
AAAA_ MM_JJ_0000 ( Année mois jour et incrémentation de n°)

Merci d'avance

Vincent

 

[Pierrot93]

Re : num incrémenté

Bonsoir,

essaye ceci, à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim t() As String
With Sheets("NFC").Range("D2")
    If Not IsEmpty(.Value) Then .Value = Format(Date, "yyyy_mm_dd_") & Format(Val(Split(.Value, "_")(3)) + 1, "0000")
End With
Me.Save
End Sub

bon après midi
@+

 

[hoerwind]

Re : num incrémenté

Bonjour,

Avec le fichier en pièce jointe se sera probablement plus facile pour te proposer une quelconque formule.

 

[lmylvc]

Re : num incrémenté

Hello les amis

Merci pour les réponses

j'ai inséré le code dans "thisworkbook" mais aucun n° ne s'affiche, j'ai également inséré le code dans un nouveau fichier, le résultat est identique aussi, ci-joint le fichier
Regarde la pièce jointe 0731 - MODELE DE FICHE DE NON CONFORMITE.XLS



Merciiiii

🙂

 

[Pierrot93]

Re : num incrémenté

Re,

il y a un test au début :

If Not IsEmpty(.Value)

si la cellule n'est pas vide...
donc il faut qu'il y ait déjà un numéro présent en D2, et formaté comme demandé pour pouvoir déterminer le suivant....

 

[lmylvc]

Re : num incrémenté

Hello

?????? --> If Not IsEmpty(.Value) vu que je suis une bille en VBA

Sinon, pour faire plus simple, est-il possible d'adapter le code de la feuille GENERATEUR DE N° sur a feuill FNC
si date en D4 renseigné alors nouveau n°e D2 ??? ( sachant que la cellule date "D4" doit toujours être effacée à l'ouverture du fichier)

Merciii

 

[Pierrot93]

Re : num incrémenté

Bonjour,

le code donné fonctionne, commence par mettre un numéro au bon format en D2 de la feuille NFC...

bonne journée
@+