[Catégorie encore modifiée VB6 -- VBA] Remplacement fonction now par une cellul

Question

Bonjour

J'explique mon soucie j'ai sur mon classeur de facturation un numéro de facture qui s&#8217;incrémente lors de l'appuie sur un bouton.

Voila le code d&#8217;incrémentation :

Option Explicit

Private Sub CommandButton1_Click()
If Left(Range("B15"), 8) = "FT" & Format(Now(), "yyyymm") Then
    Range("B15") = Left(Range("B15"), 8) & Format(CInt(Right(Range("B15"), 4)) + 1, "0000")
Else
    Range("B15") = "FT" & Format(Now(), "yyyymm") & "0001"
End If
End Sub



je voudrai remplacer la fonction now() par la date contenu dans une cellule ( "D15" ) remplie au format ( jj/mm/yyyy )

cs_Jack · Answer

Salut

Rappel : Il faut faire un minimum de recherche avant de poster une question

Remplace ton Now par Range("D15").Value

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

bibi91470 · Answer

Merci j'ai chercher partout sur le net et j'avais pas trouver mon bonheur

merci jack de ton aide

[Catégorie encore modifiée VB6 --> VBA] Remplacement fonction now par une cellul

2 réponses

Votre réponse

Discussions similaires