Besoin aide sur code vba

[madampime]

Bonjour

j ai créer un n° de bon de commande en fonction de la date du jour mais je souhaiterai rajouter un compteur

exemple : 20140914001 , 20140916002 ...etc

j'ai mis ce code

Sub Bouton5_Cliquer()
Cells(4, 3).Value = "ATOLL" & Year(Date) & Month(Date) & Day(Date).Value = "000"
End Sub

mais sa ne fonctione pas est ce qq1 peut m'aider

merci

 

[camarchepas]

Re : Besoin aide sur code vba

Bonjour ,

Voici une solution

Sub Bouton5_Cliquer()
Dim Valeur As Long
If InStr(1, Cells(4, 3).Value, "ATOLL" & Year(Date) & Month(Date) & Day(Date)) > 0 Then
 Valeur = CLng(Right(Cells(4, 3), 3)) + 1
 Cells(4, 3).Value = "ATOLL" & Year(Date) & Month(Date) & Day(Date) & Right("00" & Valeur, 3)
Else
 Cells(4, 3).Value = "ATOLL" & Year(Date) & Month(Date) & Day(Date) & "000"
End If
End Sub

 

[madampime]

Re : Besoin aide sur code vba

Merci beaucoups