Compteur spécial

[Montana]

Bonjour,

voila je dois faire un compteur sur VB qui commence comme ca

i = 1
Do While Cells(i, 1).Value <> ""
i = i + 1
Loop
Sheets("XXXX").Cells(i, 1).Value = Cells(i - 1, 1).Value + 1

mais le truc que je voudais faire en plus c'est indiquer le l'année 2005. bref le resultat souhaité est
1/2005
2/2005
3/2005
etc
Un grand merci à celui qui peut m'aider

 

[Eric C]

Bonsoir le forum
Bonsoir Montana

Peut être qu'en ajoutant ceci à la fin de ta ligne.
.Value + 1 & "/" & "2005"

@ ++ Eric C

 

[Montana]

c'est une bonne idée mais le résultat est 01/01/2005 et non 1/2005

 

[Eric C]

Re le forum
Re bonjour Montana

Exact j'ai omis de te dire qu'il faut déclarer le format de cellule à Texte et ainsi cela fonctionne.
@ ++ Eric C

 

[Montana]

Merci Beaucoup!!!!