incrementer un numero special

[loloxp]

Bonjour à tous,

j'aurais besoin de renseigné automatiquement dans un document un numéro:
011011B001
01 le mois; 10 l'année; 11 le jour; B une lettre aléatoire; 001 le numéro du doc.
et que ce numéro soit unique.
je sèche complètement..
merci a vous.

 

[jp14]

Re : incrementer un numero special

Bonsoir

Un lien à voir

https://www.excel-downloads.com/threads/poignee-de-recopie.132279/

JP

 

[tototiti2008]

Re : incrementer un numero special

Bonjour loloxp,

Il va falloir que tu gardes un historique des numéros pour être sûr qu'ils sont uniques.
Si un numéro généré existe déjà, on ajoute 1 au 001 (numéro du doc) ?

 

[job75]

Re : incrementer un numero special

Bonjour,

Pas sûr d'avoir bien compris ce que vous voulez.

D'après le titre du fil, vous voulez incrémenter.

Mais quoi ? Le nombre du début (la date) ou celui de la fin ?

On va supposer qu'il s'agit des deux, sinon adaptez la formule.

Mettez le texte de référence en A1 et en A2 entrez la formule :

=TEXTE(DATE(2000+STXT(A$1;3;2);GAUCHE(A$1;2);STXT(A$1;5;2)+LIGNES(A$2:A2));"mmaajj")&TEXTE(LIGNES(A$1:A2);"\B000")

A tirer vers le bas.

Edit : salut JP, tototiti

A+

 

[JCGL]

Re : incrementer un numero special

Bonjour à tous,
Salut les

Un essai mais comme dit par les amis, il manque certains paramètres dans la demande :

=TEXTE(AUJOURDHUI();"mm")&TEXTE(AUJOURDHUI();"aa")&TEXTE(AUJOURDHUI();"jj")&CAR(ALEA.ENTRE.BORNES(65;90))&TEXTE(LIGNE();"000")

A++
A+ à tous

 

[job75]

Re : incrementer un numero special

Re,

Peut-être voulez-vous simplement que la date soit celle du jour ?

Mais alors ce n'est pas une incrémentation...

=TEXTE(AUJOURDHUI();"mmaajj")&"B001"

Edit : salut à toi ami JC Plutôt que :

TEXTE(AUJOURDHUI();"mm")&TEXTE(AUJOURDHUI();"aa")&TEXTE(AUJOURDHUI();"jj")

mieux vaut écrire TEXTE(AUJOURDHUI();"mmaajj")

A+

 

[JCGL]

Re : incrementer un numero special

Bonjour à tous,

Exact l'ami Job

A+ à tous

 

[loloxp]

Re : incrementer un numero special

merci a tous pour vos réponses

l'exemple envoyer par JCGL me convient tous a fait, mais j'aimerais que le numéro s'incrémente automatiquement dans la feuille a l'ouverture du classeur

encore merci a tous.

 

[job75]

Re : incrementer un numero special

Re,

(...) j'aimerais que le numéro s'incrémente automatiquement dans la feuille a l'ouverture du classeur

A chaque ouverture du classeur ou à la 1ère ouverture de la journée ?

Et où voulez-vous stocker cette valeur, dans une cellule (préciser la feuille) ou dans un nom défini ?

Il faudra bien sûr une macro.

A+

 

[kjin]

Re : incrementer un numero special

Bonsoir le fil ,

=TEXTE(AUJOURDHUI();"mmaajj")&CAR(ALEA.ENTRE.BORNES(65;90))&DATEDIF("10/01/2010";AUJOURDHUI();"d")

Mais ALEA.ENTRE.BORNES
A+
kjin

 

[loloxp]

Re : incrementer un numero special

bonjour,

l'idéal serait a chaque ouverture du classeur, et si possible un numero unique
j'aimerai réaliser cela:

encore merci.

 

[JCGL]

Re : incrementer un numero special

Bonjour à tous,

Mais ALEA.ENTRE.BORNES

Peux-tu en dire plus ?

A+ à tous

 

[kjin]

Re : incrementer un numero special

Re,
JC je pense au recalcul de la feuille qui modifiera systématiquement le code
A+
kjin

 

[JCGL]

Re : incrementer un numero special

Bonjour à tous,

Merci de ton retour Kjin

Un essai avec :

Option Explicit

Private Sub Workbook_Open()
With Feuil1
Range("A1").Formula = _
"=TEXT(TODAY(),""mmaajj"")&CHAR(ALEA.ENTRE.BORNES(65,90))&TEXT(NOW(),""ss"")"
Range("A1") = Range("A1")
End With
End Sub

A+ à tous

 

[job75]

Re : incrementer un numero special

Re,

Un nouveau numéro est donc entré en G4 de la feuille RMA à chaque ouverture...

Ci-joint le fichier.

La macro dans ThisWorkbook :

Private Sub Workbook_Open()
Dim n As Integer
Randomize
On Error Resume Next
With Sheets("RMA")
  n = CInt(Mid(.[G4], 8, 9 ^ 9))
  .[G4] = Format(Date, "mmyydd") & Chr(Int(65 + Rnd * 26)) & Format(n + 1, "000")
End With
End Sub

A+