incrementer un numero special

J

jp14

XLDnaute Barbatruc

• 11 Janvier 2010

• #2

Re : incrementer un numero special

Bonsoir

Un lien à voir

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

JP

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 11 Janvier 2010

• #3

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) ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2010

• #4

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 :

Code:

=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+

 

Dernière édition: 11 Janvier 2010

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Janvier 2010

• #5

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 :

Code:

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

A++
A+ à tous

 

Pièces jointes

• Format Alea.xls

  19.5 KB · Affichages: 58

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2010

• #6

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...

Code:

=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+

 

Dernière édition: 11 Janvier 2010

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Janvier 2010

• #7

Re : incrementer un numero special

Bonjour à tous,

Exact l'ami Job 🙂

A+ à tous

 

Vote positif 0 Vote négatif

L

loloxp

XLDnaute Nouveau

• 11 Janvier 2010

• #8

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2010

• #9

Re : incrementer un numero special

Re,

loloxp à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Janvier 2010

• #10

Re : incrementer un numero special

Bonsoir le fil 🙂,

Code:

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

Mais ALEA.ENTRE.BORNES 😱
A+
kjin

 

Vote positif 0 Vote négatif

L

loloxp

XLDnaute Nouveau

• 11 Janvier 2010

• #11

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.

 

Pièces jointes

• ESSAI.xls

  22.5 KB · Affichages: 60
• ESSAI.xls

  22.5 KB · Affichages: 56
• ESSAI.xls

  22.5 KB · Affichages: 57

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Janvier 2010

• #12

Re : incrementer un numero special

Bonjour à tous,

kjin à dit:

Mais ALEA.ENTRE.BORNES 😱

Cliquez pour agrandir...

Peux-tu en dire plus ?

A+ à tous

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Janvier 2010

• #13

Re : incrementer un numero special

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Janvier 2010

• #14

Re : incrementer un numero special

Bonjour à tous,

Merci de ton retour Kjin 🙂

Un essai avec :

Code:

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

 

Pièces jointes

• Format Alea en Open.xls

  24 KB · Affichages: 51

Dernière édition: 11 Janvier 2010

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2010

• #15

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 :

Code:

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+

 

Pièces jointes

• ESSAI(1).xls

  42 KB · Affichages: 62
• ESSAI(1).xls

  42 KB · Affichages: 66
• ESSAI(1).xls

  42 KB · Affichages: 61

Dernière édition: 11 Janvier 2010

Vote positif 0 Vote négatif