probleme de format de donnée en vba

[jeb]

Bonjour à tous,

Dans le code ci-dessous, je souhaite créer un numero comportant les deux derniers chiffres de l' année en cours et un compteur sur 5 carateres séparé par un tiret.
A priori le code fonctionne mais dans l'enregistrement de la feuille excel, il apparait une date? pourriez vous me dire ou est l'erreur?

Private Sub UserForm_Initialize()
Dim annee
annee = Format(Now(), "yy")
numero = WorksheetFunction.CountA(Columns(1))

TextBox1.Value = annee & "-" & numero

Sheets("feuil1").Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End Sub

Merci à vous
jeb

 

[Pierrot93]

Re : probleme de format de donnée en vba

Bonjour Jev

Pour définir l'année essaye le code ci-dessous :

Dim annee As String
annee = Right(Year(Date), 2)

Bonne soirée
@+

 

[jeb]

Re : probleme de format de donnée en vba

Bonsoir Pierrot93,

L'affichage dans le textbox du code est correcte, car il affiche 06-4 mais l'enregistrement dans la feuille excel est 04-juin.

 

[Pierrot93]

Re : probleme de format de donnée en vba

Re jeb,

Ta cellule de destination est elle bien au format texte ?

@+

 

[Pierrot93]

Re : probleme de format de donnée en vba

Si oui, pré formate ta cellule avec format personnalisé, choisit @, et la ca devrait marcher

@+

 

[jeb]

Re : probleme de format de donnée en vba

merci pierrot93,

Le probleme de l'enregistrement dans la feuille excel venait bien du format de la cellule. Par contre si peux abuser de votre temps, mon deuxieme probleme est d'imposer 5 caractere apres le tiret pour le compteur exemple : 06-00001.
Merci

 

[Pierrot93]

Re : probleme de format de donnée en vba

Re Jeb

As tu essayé

TextBox1.Value = annee & "-" & format(numero,"00000"

@+

 

[jeb]

Re : probleme de format de donnée en vba

un grand merci pierrot93,

Mon probleme est résolu.

jeb