Besoin aide sur code vba

madampime · 14 Septembre 2014

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 · 14 Septembre 2014

Re : Besoin aide sur code vba

Bonjour ,

Voici une solution

Code:

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 · 14 Septembre 2014

Re : Besoin aide sur code vba

Merci beaucoups 😱

Besoin aide sur code vba

madampime

Guest

camarchepas

XLDnaute Barbatruc

madampime

Guest

Discussions similaires

Besoin aide sur code vba

madampime

Guest

camarchepas

XLDnaute Barbatruc

madampime

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency