Problème de date VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

2 pièce(s) jointe(s)

Problème de date VBA

Bonjour,

Je suis à élaborer un logiciel de gestion budgétaire pour mon entreprise avec Excel VBA sur office 365 business pro.

J'avance avec succès jusqu'à ce que je rencontre ce problème. L'un de mes formulaire répartie des montants sur 12 mois (prévisions budgétaire). Tout les paramètres fonctionnent sauf 1, soit la date du premier jour de chaque mois. ex : 2019-01-01, 2019-01-02, etc.

Au début cela fonctionnait et tout à coup ça ses mit à planter. Ex : 2019-01-01, 05/06/2019, 06/01/2019, etc. Seulement la première date est OK puis c'est n'importe quoi.

J'ai fait affaire avec un conseiller sur Microsoft community. Nous avons tenté plusieurs solutions de format de date, désinstaller office 365 et réinstaller, de même avec la suite office, copier sur un nouveau fichier. Bref rien n'a fonctionné. Pourtant, le conseiller avait mon classeur et de son côté tout fonctionnaient.

Sa conclusion est que mon classeur est peut-être corrompu. Pourtant tout mes autres formulaires fonctionnent et je n'ai rien importé et tout conçu manuellement.

Voici les codes concerné :
Code:

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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 'Date Private Sub txtdate_AfterUpdate() On Error GoTo Message Me.txtdate = Format(CDate(Me.txtdate), "yyyy-mm-dd") Exit Sub Message: MsgBox ("Vous avez entr? le mauvais format de date !") Me.txtdate = "" End Sub 'Date de paiement Private Sub txtdatefin_AfterUpdate() On Error GoTo Message Me.txtdatefin = Format(CDate(Me.txtdatefin), "yyyy-mm-dd") Exit Sub Message: MsgBox ("Vous avez entr? le mauvais format de date !") Me.txtdatefin = "" End Sub 'Bouton budg?ter Private Sub budg?ter_Click() Dim x As Integer Dim paiementmens As Double If Me.txttype < 0 Or Me.montant = "" Or Me.p?riode < 0 Or Me.cat?gorie < 0 Or Me.souscat < 0 Then MsgBox ("Il manque des informations !") Else 'V?rifier si la date de paiement est inscrite If Me.txtdatefin <> "" Then x = DateDiff("m", Me.txtdate, Me.txtdatefin) paiementmens = CDbl(Me.montant) / x '<-- Calcul des mensualit?s qu'il reste ? payer entre ces 2 dates Do Until x = 0 If Sheets("pr?visions").Range("ar76") <> "" Then Sheets("pr?visions").ListObjects(1).ListRows.Add End If 'Trouver la derni?re ligne dlt = Sheets("pr?visions").Range("ar10000").End(xlUp).Row Sheets("pr?visions").Range("ar" & dlt) = Me.txtdate Sheets("pr?visions").Range("as" & dlt) = Me.txttype Sheets("pr?visions").Range("at" & dlt) = paiementmens Sheets("pr?visions").Range("au" & dlt) = Me.cat?gorie Sheets("pr?visions").Range("aw" & dlt) = Me.souscat Sheets("pr?visions").Range("ay" & dlt) = Me.txtdescription Me.txtdate = DateAdd("m", 1, Me.txtdate) '<-- Ajout d'un mois en plus ? la date de d?part x = x - 1 '<-- D?compte du nombre de fois qu'il faut faire la boucle Loop End If Me.txtdate = "" Me.txttype = "" Me.montant = "" Me.p?riode = "" Me.txtdatefin = "" Me.cat?gorie = "" Me.souscat = "" Me.txtdescription = "" ThisWorkbook.RefreshAll ThisWorkbook.Save End If End Sub
Voici le formulaire
Pièce jointe 481400

En terminant je me suis inspiré d'un vidéo et naturellement sur le vidéo cela fonctionnait.

Avez-vous une solution autre que tout recommencé:(

06/06/2019, 17h48
Invité
Citation:

Envoyé par denissmile

Bonjour,

Dans cette ligne, le paramètre Me.txtdate dans DateAdd est une valeur alpha. Ne faudrait-il pas la convertir en date ?
Code:

1 2 Me.txtdate = DateAdd("m", 1, Me.txtdate) '<-- Ajout d'un mois en plus ? la date de d?part
06/06/2019, 18h17
Menhir

Pour la conversion de textbox en date :
https://www.developpez.net/forums/d1.../#post10479235
https://www.developpez.net/forums/d1.../#post10901853
07/06/2019, 15h47
Daniel.C

Bonjour,

Curieusement, DateAdd fonctionne avec une variable texte pour peu qu'elle soit au format date. Le code passe correctement dessus, tout au moins avec Excel 2016. Le problème doit se situer ailleurs.
07/06/2019, 21h55
Pierre Fauconnier

2 pièce(s) jointe(s)
Salut.

Attention à ce que le VBA tente de faire avec des dates au format texte... Dans le premier cas, il comprend 3 février 2019, dans le second, il comprend 25 mars.... Il tente de comprendre la date dans le format régional et s'il n'y arrive pas, il passe au format VBA (mm/dd/yy)...

Pièce jointe 481872

Perso, j'utilise ceci pour convertir une saisie textuelle en date ( c'est unparia qui a présenté l'astuce de la comparaison un jour sur le forum). Elle renvoie 0 si la date n'est pas bonne.
Code:

1 2 3 Function getDateFromString(Value As String, DateFormat As String) As Date If Format(CDate(Value), DateFormat) = Value Then getDateFromString = CDate(Value) End Function
Pièce jointe 481885

Donc, pour ce qui est de manipuler les dates, je conseille de toujours travailler avec... des dates, et de ne pas laisser VBA/Excel déterminer comment il interprète du texte pour le convertir en date. Donc, d'abord convertir en date, puis ajouter les mois.
13/06/2019, 15h31
denissmile
Citation:
Envoyé par Eric KERGRESSE

Bonjour,

Dans cette ligne, le paramètre Me.txtdate dans DateAdd est une valeur alpha. Ne faudrait-il pas la convertir en date ?

Code:

1 2 Me.txtdate = DateAdd("m", 1, Me.txtdate) '<-- Ajout d'un mois en plus ? la date de d?part
Merci nous y travaillons. Pourriez-vous me donner plus de détails S.V.P.

Merci
13/06/2019, 18h07
Invité

Citation:

Envoyé par denissmile

Bonjour,
13/06/2019, 21h05
patricktoulon

re

bonjour
le problème c'est que tu travail avec un format de date qui n'est pas celui de ton system (yyyy-mm-dd)

essaie ca sans garantie

Code:

Me.txtdate = Format(DateAdd("m", 1, DateValue(Format(Me.txtdate, "dd/mm/yyyy"))), "yyyy-mm-dd")

est ce bien utile de travailler avec ce format dans ton UserForm
ne serait il pas plus facile de formater les cellules de destination quand tu transfert avec numberformat
;)
edit j'ai testé c'est ok
avec datevalue simplement ca fonctionne aussi

Code:

Me.txtdate = Format(DateAdd("m", 1, DateValue(Me.txtdate)), "yyyy-mm-dd")
13/06/2019, 21h22
denissmile

Citation:

Envoyé par patricktoulon

bonjour
le problème c'est que tu travail avec un format de date qui n'est pas celui de ton system (yyyy-mm-dd)[...]

Merci je vais faire des test.
13/06/2019, 21h32
Pierre Fauconnier

Tant que vous n'aurez pas compris que le VBA essaie d'abord de "comprendre" une date sous forme de texte sur base du format régional (paramètres Windows) puis au format "international" interne du VBA, vous aurez des soucis dans votre code, puisque le vba ne fera pas forcément ce à quoi vous vous attendez...

Pour moi, la seule façon de convertir une saisie textuelle en date, c'est de vérifier qu'elle a été saisie au format que VOUS souhaitez. Pourquoi croyez-vous que sur un site internet, on vous impose le format de saisie? Simplement parce qu'il n'est pas possible de "deviner" le format que vous utilisez pour saisir la date...

Vous devez donc IMPOSER le format et tester la saisie par rapport à CE format et rejeter une saisie qui ne correspondrait pas. C'est pour moi la seule solution pour s'en sortir...

Citation:

Envoyé par patricktoulon

[...]
ne serait il pas plus facile de formater les cellules de destination quand tu transfert avec numberformat[...]

Le numberformat, ça vient après. Si le VBA a mal traduit la date lors de la conversion texte->date, le numberformat (qui ne change pas la valeur, mais uniquement son affichage, pour rappel) ne changera rien au problème.
13/06/2019, 22h01
patricktoulon

re

re
perso j'ai très bien compris pierre

dans son cas datevalue donne le bon format alors l'utiliser pour les fonction add et compagnie meme cdate redresse
pour sa ligne il faut donc formater le (add"m" au datevalue )dans le format initial du textbox
j'ai testé avec date value et cdate c'est OK

Attention au dates avec mois et jour en dessous de 12 VBA ne peut pas deviner selon l'option régional il donnera pour nous(France) les 2 premiers comme jour
c'est bien pour ca que j'ai proposé de travailler en date system day(une date) et month(une date) donnera toujours les jours et mois correctement
d'où le serialnumber dans les cellules

pour etre sur en prenant en compte le format impôsé

Code:

1
2
3
4
5
6
Private Sub CommandButton1_Click()
     'format imposé  "yyyy-mm-dd"
    t = Split(txtdate, "-")
    ladate = DateSerial(t(0), t(1), t(2))
    Me.txtdate = Format(DateAdd("m", 1, ladate), "yyyy-mm-dd")
End Sub

plus d'ambiguïté avec les mois/jour<12

14/06/2019, 02h14
clementmarcotte

Bonjour,

Citation:

Envoyé par patricktoulon

bonjour
le problème c'est que tu travail avec un format de date qui n'est pas celui de ton system (yyyy-mm-dd)

Pas sûr. C'est un Format ISO adopté au Canada et utilisé au moins par le Gouvernement du Canada et par le Gouvernement du Québec. Pour l'entreprise privée, c'est moins évident. (J'aimerais dire imposé, mais on en est pas encore rendu là.) L'essayer c'est l'adopter. Surtout pour trier des dates.

C'est standard et par défaut pour les paramètres régionaux de Windows et pour les Office "canadiens" récents.

Et puis, juste pour vous mettre dans le contexte. Le Canada est probablement le pire pays au monde dans le domaine de la gestion des dates (manuelles ou informatiques). Depuis la conquête, et probablement avant c'était le format britannique, et probablement européen : jj-mm-aaaa ou jj-mm-aa le plus souvent. Mais les échanges avec les américains, le format américain (mm-jj-aa ou mm-jj-aaaa) a également fait son chemin. Le fprmat ISO a été choisi dans la foulée de la conversion au système métrique. Mais, pour la petite histoire, la conversion s'est littéralement interrompue (du moins parmi la population) avec le ressac de voir les prix des aliments doubler, même si ce n'est pas vrai, quand ils ont essayé de remplacer la livre (453,6 grammes) par le kilo. On pourrait dire un vrai blocage psychologique. Et sans le domaine des matériaux de construction qui sont au mesures métriques, mais que les menuisiers continuent de mesurer en pieds et en pouces...

Citation:

Envoyé par Eric KERGRESSE

Bonjour,

Merci

J'ai encore quelques bug
'Bouton budg?ter

Code:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub budg?ter_Click()
Dim x As Integer
Dim MaDate As Date
Dim MaLigne As ListRow

If Me.txttype < 0 Or Me.montant = "" Or Me.p?riode < 0 Or Me.cat?gorie < 0 Or Me.souscat < 0 Then
    MsgBox ("Il manque des informations !")

Else
    'V?rifier si la date de paiement est inscrite
    If Me.txtdatefin <> "" Then
        MaDate = CDate(txtdate)
        x = DateDiff("m", CDate(txtdate), CDate(txtdatefin))
        
        Do Until x = 0
        
        If Sheets("pr?visions").Range("ar76") <> "" Then '--> Permet de placer le texte dans la base de donn?es ? la premi?re ligne si elle est vide
            With Sheets("pr?visions").ListObjects(1)
                Set MaLigne = ListRows.Add
                    With MaLigne
                        Range(1, 1) = MaDate
                    End With
        End If --> Erreur de bloc sans if
            
            'Trouver la derni?re ligne
            dlt = Sheets("pr?visions").Range("ar10000").End(xlUp).Row
            Sheets("pr?visions").Range("ar" & dlt) = Dat
            Sheets("pr?visions").Range("ar" & dlt).NumberFormat = "yyyy-mm-dd" Je suis pas mal certain que ces 2 lignes ne sont pas exacts
            Sheets("pr?visions").Range("as" & dlt) = Me.txttype
            Sheets("pr?visions").Range("at" & dlt) = paiementmens
            Sheets("pr?visions").Range("au" & dlt) = Me.cat?gorie
            Sheets("pr?visions").Range("aw" & dlt) = Me.souscat
            Sheets("pr?visions").Range("ay" & dlt) = Me.txtdescription
            
            MaDate = DateAdd("m", 1, MaDate) '<-- Ajout d'un mois en plus ? la date de d?part
            Debug.Print x; "," & MaDate
            
            x = x - 1 '<-- D?compte du nombre de fois qu'il faut faire la boucle
            Set MaLigne = Nothing
            End With
            
        Loop
    End If
            Me.txtdate = ""
            Me.txttype = ""
            Me.montant = ""
            Me.p?riode = ""
            Me.txtdatefin = ""
            Me.cat?gorie = ""
            Me.souscat = ""
            Me.txtdescription = ""
            
    ThisWorkbook.RefreshAll
    ThisWorkbook.Save
    
End If
End Sub

14/06/2019, 02h54
clementmarcotte

Bonjour

Citation:

Envoyé par denissmile

Merci

J'ai récupéré le classeur d'Éric, mais, pour ce cas spécial, je prendrais bien aussi le tien, pour l'essayer sur un Office canadien. Fais juste attention de l'épurer des données confidentielles.

P.S. C'est un cas spécial et cela ne veut pas dire que je ne me plaindrai plus jamais des classeurs joints ;)
14/06/2019, 02h56
denissmile

1 pièce(s) jointe(s)

Système date

Bonjour,

Voici ce que j'utilise. Devrai-je utiliser avec ou sans Astérix?

Merci

Pièce jointe 483354
14/06/2019, 03h11
clementmarcotte

Bonjour,

Sur cette page (en déroulant la première "flèche"), ils disent que c'est le format qui dépend des paramètres régionaux définis dans le panneau de configuration.

Citation:

Envoyé par denissmile

Bonjour,

Pourquoi chercher la dernière ligne ?
Dans mon code, j'ai créé une variable ListRow pour justement s'affranchir de cette recherche. Dans votre exemple, j'ai recréé un ListObject d'une seule colonne pour voir d'où venait le problème. Il vous suffit d'adapter la syntaxe de la colonne Date pour vos autres données et d'attribuer les bonnes colonnes.
Nb : Je ne mets jamais de caractères accentués dans le nom de mes variables ou de mes contrôles.

Code:

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
 
'Bouton budg?ter
Private Sub budgeter_Click()
 
Dim x As Integer
Dim MaDate As Date
Dim MaLigne As ListRow
 
    'Vérifier si la date de paiement est inscrite
    If txtdatefin <> "" Then
        MaDate = CDate(txtdate)
        x = DateDiff("m", CDate(txtdate), CDate(txtdatefin))
 
        Do Until x = 0
 
            With Sheets("prévisions").ListObjects(1)
                 Set MaLigne = .ListRows.Add
                 With MaLigne
                      .Range(1, 1) = MaDate
                      '....
                 End With
 
                 MaDate = DateAdd("m", 1, MaDate) '<-- Ajout d'un mois en plus ? la date de d?part
                 'Debug.Print x & ", " & MaDate
 
                 x = x - 1 '<-- D?compte du nombre de fois qu'il faut faire la boucle
                 Set MaLigne = Nothing
 
            End With
 
        Loop
 
    End If
 
End Sub

14/06/2019, 06h09
Pierre Fauconnier

1 pièce(s) jointe(s)

Citation:

Envoyé par patricktoulon

[...]
Attention au dates avec mois et jour en dessous de 12 VBA ne peut pas deviner selon l'option régional il donnera pour nous(France) les 2 premiers comme jour[...]

Ce n'est pas tout à fait exact. Si tu donnes une date "2019-02-25", VBA va comprendre directement YYYY-MM-JJ et transformer en date sans problème. Dans ce cas, il ne prend pas les deux premiers chiffres comme jour. Si tu donnes une date "02/25/2019", il va essayer de traduire "comme en France" mais comme ça ne passera pas, il va essayer au format VBA.

Et comment l'ordinateur "sait-il" que tu es en France? => par le format régional, évidemment. Mais si la date n'est pas correcte sous ce format, il va essayer au format VBA. Dans un précédent message, j'ai illustré ce cas, et j'ai d'ailleurs donné une fonction générique qui traduit une date-texte en date en précisant en argument le format sous lequel la date est exprimée à l'entrée.

Pièce jointe 483364

Citation:

Envoyé par patricktoulon

bonjour
le problème c'est que tu travail avec un format de date qui n'est pas celui de ton system (yyyy-mm-dd)[...]

C'est bien pour cela qu'il faut proscrire cDate et DateValue et travailler en fonction d'un format défini au départ, indépendamment du format système ou d'autres considérations fluctuantes, et il faut le faire de façon systématique. En informatique et particulièrement en programmation, c'est la systématisation qui est garante d'un code qui fonctionne.

Pour le reste, mis à part que ton algo verrouille un format particulier, on est d'accord: d'abord transformer en date de façon non ambiguë, puis traiter en tant que date, l'affichage au bon format dans Excel venant en fin de processus ;)
14/06/2019, 06h18
Pierre Fauconnier

Citation:

Envoyé par denissmile

Bonjour,

Voici ce que j'utilise. Devrai-je utiliser avec ou sans Astérix?

Merci

Ces dates, c'est une idéfix... ;)

Le texte sous le format, dans l'illustration que tu donnes, est assez clair là-dessus, me semble-t-il...

Si tu choisis un format avec astérisque, cela signifie que si les paramètres régionaux changent, la date suivra ce changement et sera affichée selon le nouveau format régional. En clair, si tu passes ton classeur à quelqu'un, la date s'affichera selon SES paramètres régionaux. Si tu choisis le même format mais sans l'astérisque, les dates s'afficheront sur son pc selon le format que tu auras précisé, sans tenir compte de ses paramètres régionaux à lui. Pour ce qui est du traitement des dates à l'intérieur d'Excel, cela n'a pas d'incidence. Il faut toutefois noter que si ton utilisateur exporte ses données en csv par exemple, l'export se faisant au format d'affichage, cela pourrait donner des résultats différents.

Voir 40 message(s) de cette discussion en une page