Création d'un numéro de référence

[Leskwal]

Bonsoir

Plutôt qu'un long discours : tout est dans le fichier. 😀

Merci

Pascal

 

[CBernardT]

Re : Création d'un numéro de référence

Bonsoir Leskwal,

Une solution de code de la macro d'initialisation de l'Userform :

Private Sub UserForm_Initialize()
Dim Derlig As Integer

With Sheets("Actions")
Derlig = .Range("A65536").End(xlUp).Row
If Derlig = 2 Then
TextBoxNumeroAuto = 1
Else
TextBoxNumeroAuto = .Cells(Derlig, 1) + 1
End If
End With
TextBox1.Value = Format(Date, "yyyy")
If Left(Format(Date, "yy"), 1) = 0 Then
TextBoxCodeAnnee = Right(Format(Date, "yy"), 1)
Else
TextBoxCodeAnnee = Format(Date, "yy")
End If
End Sub

Cordialement

Bernard

 

[Leskwal]

Re : Création d'un numéro de référence

Wahoo

Ca c'est du rapide... 🙂

Je vais essayer ça de suite


Merci

Pascal

 

[Leskwal]

Re : Création d'un numéro de référence

Ca marche mais...

J'ai rajouté ton code dans le fichier joint.

2 Choses :

Quand je clique sur le bouton enregistrement suivant, il n'y a pas d'incrémentation du numéro 😀

D'autre part, lors de l'enregistrement sur le classeur, est-il possible que les bordures s'adaptent ???

Merci

Pascal

 

[Staple1600]

Re : Création d'un numéro de référence

Bonsoir


Voir cette essai

 

[Leskwal]

Re : Création d'un numéro de référence

Bonjour

Encore moi

Problème d'incrémentation 😀

Ma demande est dans le fichier lié.

Merci d'avance.

Pascal

 

[pierrejean]

Re : Création d'un numéro de référence

bonjour Leskwal

En supposant que j'aie compris

 

[Leskwal]

Re : Création d'un numéro de référence

Merci PierreJean

PARFAIT

Exactement ce que j'attendais 🙂

A très bientôt.

Pascal

 

[Leskwal]

Re : Création d'un numéro de référence

Bonjour

Tout fonctionne bien sauf ...😀
Pour décrire cela il faudrait que j'ouvre un nouveau fil mais comme c'est la suite de mon fichier je reste dans ce fil...🙄

Tout est dans le fichier joint. Je pense que la réponse est simple mais bon, je n'y arrive pas ...

Merci d'avance pour vos réponses

Pascal