Discussion :

[capi81]

Bonjour le forum

Le code ci-dessous me permet de centraliser les ventes de mes produits.
Le soucis que je rencontre porte sur la date du jour.
En effet, dans la configuration actuelle, à partir de minuit, la date du jour change ce qui est normal.
Je souhaite qu'on m'aide à faire en sorte que jusqu'à 3h du matin la date ne change pas.
Comment faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim ligExport As Long
 
'Ce code permet d'alimenter la feuil ETAT_VENTE
ligExport = Feuil2.Range("f" & Rows.Count).End(xlUp).Row + 1
 
'Affectation de la cellule contanant le numéro de facture à incrémenter
 
If Me.Serveur <> "" And Me.TextBox_Réf <> "" Then 'si service et ref renseignés
    For i = 1 To 10 'pour toutes les lignes
        If Me.Controls("ComboBox_Bois" & i) <> "" And Me.Controls("TextBox_Qte" & i) <> "" Then  'si tous les contrôles de la ligne sont remplis
 
            'export
            With Feuil2
                .Range("a" & ligExport) = Date
                .Range("b" & ligExport) = Me.Controls("ComboBox_Bois" & i)
                .Range("c" & ligExport) = CDbl(Me.Controls("TextBox_Qte" & i))
                .Range("d" & ligExport) = CDbl(Me.Controls("TextBox_Mtant" & i))
                .Range("e" & ligExport) = Me.Serveur
                .Range("f" & ligExport) = Me.TextBox_Réf
                .Range("g" & ligExport) = Me.CodeExpl
                .Range("h" & ligExport) = CDbl(Val(Me.TextBox_Encais))
                .Range("j" & ligExport) = CDbl(Val(Me.TextBox_Avoir))
                .Range("i" & ligExport) = CDbl(Val(Me.TextBox_Reste))
                .Range("k" & ligExport) = Format(Now(), "hh:mm")
 
                '.Range("a" & ligExport) = Date
            End With
 
            'incrémentation de la ligne
            ligExport = ligExport + 1
        End If
    Next i
End If

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("a" & ligExport) = Date - IIf(Hour(Now) < 3, 1, 0)

[unparia]

Bonjour
Autant alors ôter systématiquement 3 heures à Now() (par DateAdd)

[mercatog]

Bonjour Unparia

Effectivement c'est plus simple

[capi81]

Bonsoir Mercatog et unparia

Merci pour vos solutions.
Mercatog :le test de votre proposition a été concluant.
Unparia : j'ai pas bien compris votre proposition (fonction dateadd??).

Merci