Discussion :

[kimou75]

Bonjour,

J'essaye de faire des comparaisons de date et en additionner certaines d'entre elles avec un nombre de jour.

Le problème est que un de mes formats de date est une chaîne de caractère AAAMM. du coup lorsque je lui demande de mettre dans une variable date la valeur 201912, la variable prend la valeur 23/10/2452.

Je ne sais pas comment transformer ma chaîne de caractère en date lisible.

Merci d'avance de votre aide.

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
34
35
36
37
38
39
40
41
42
43
44
Sub Calul_Alerte()
 
Dim Auj as Date 'date du jour
Dim NvlDte As Date 'date au format AAAMM
Dim Dtefvie As String 'date au format AAAMM
Dim JrFinStk As Integer ' nbre de jour pour épuiser le stock
Dim stk As Integer 'nbre de produit en stock
Dim VMM As Integer 'nbre de produit vendus
 
cpt1 = 4
cpt2 = 27
Auj = Date
stk = Range("Z" & cpt1).Value
VMM = Range("V" & cpt1)
JrFinStk = (stk * 30) / VMM
NvlDte = Auj + JrFinStk
 
 
Do
   If Cells(cpt1, cpt2 + 1) = "" Then
     cpt1 = cpt1 + 1
     stk = Range("Z" & cpt1).Value
   End If
 
 
    Do
 
       Dtefvie = Cells(cpt1, cpt2).Value
 
       If Dtefvie - 240 <= NvlDte Then Range("AU" & cpt1).Value = "Risque Casse"
 
       cpt2 = cpt2 + 2
       stk = Cells(cpt1, cpt2 + 1)
       JrFinStk = (stk * 30) / VMM ' nbre de jour pour épuiser le stock
       NvlDte = NvlDte + JrFinStk
 
    Loop While Cells(cpt1, cpt2) <> ""
 
  cpt1 = cpt1 + 1
 
 Loop While Range("P" & cpt1) <> ""
 
 
End Sub

[goldstar]

Bonjour,

Une piste a etudier

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
 
 
Sub test()
 
Dim maDate As Date
Dim monAnnee As String, monMois As String
 
lachaine = "201912"
 
monAnnee = Left(lachaine, 4)
monMois = Right(lachaine, 2)
 
maDate = "01/" & monMois & "/" & monAnnee
 
End Sub

cordialement,

[Invité]

Code :

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

Mydate = cdate(format(201912,"0000-00") & "-01")

[kimou75]

Merci rdurupt