Problème de date VBA

Version imprimable

2 pièce(s) jointe(s)

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.
14/06/2019, 08h39
patricktoulon

re

re
@clementmarcotte
j'avais zappé le petit drapeau du demandeur :oops: oui canada c'est yyyy-mm-dd

alors normalement il ne devrait pas avoir de mal a reconnaitre les dates en vba si son installation est bonne
perso j'ai un xp US corporate et j'ai 2007 dessus

je ramène donc toujours le string a date fait mon truc avec les fonctions date et reformate pour l'affichage dans textbox ou numberformat dans les cellules

je serais curieux de savoir comment un simple msgbox date ressors chez notre demandeur canadien j'ai une petite idée

Date

Citation:

Envoyé par Eric KERGRESSE

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

Merci

Et pour ces deux lignes je choisi je retire la deuxième et met MaDate?

Code:

1
2
Sheets("pr?visions").Range("ar" & dlt) = Dat
Sheets("pr?visions").Range("ar" & dlt).NumberFormat = "yyyy-mm-dd"

Citation:

Envoyé par denissmile

J'ai modifié le code pour tenir compte de votre format personnalisé. Faites l'essai sur mon fichier :

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
 
 
'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))
 
        With Sheets("prévisions").ListObjects(1)
 
               Do Until x = 0
 
                        Set MaLigne = .ListRows.Add
                        With MaLigne
                             .Range(1, 1) = Format(MaDate, "yyyy-mm-dd")
                             '....
                        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
 
 
               Loop
 
               .ListColumns("Date").DataBodyRange.NumberFormat = "yyyy-mm-dd"
 
        End With
 
    End If
 
End Sub

17/06/2019, 20h20
denissmile

1 pièce(s) jointe(s)

Bonjour Éric,

J'ai ajusté mon code et j'ai un message d'erreur pour cette ligne

Code:

Sheets("prévisions").Range("ar" & dlt).ListColumns("Date").DataBodyRange.NumberFormat = "yyyy-mm-dd"

Si tu me le permets, je te joins mon fichier pour savoir si ton code fonctionne avec mon fichier.

Merci

Le tableau est dans l'onglet prévisions et le code dans le formulaire prévision

Citation:

Envoyé par denissmile

Bonjour,

Lorsque vous avez un tableau structuré, il est plus simple de travailler avec l'objet ListObject. Je ne vois pas comment vous calculez paiementmens.

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
 
 
'Bouton budgéter
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 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) = Sheets("prévisions").ListObjects(1).ListRows.Count ' Colonne AR
            .Range(1, 2) = MaDate ' Colonne AR
            .Range(1, 3) = Me.txttype ' Colonne AS
            .Range(1, 4) = paiementmens  ' Colonne AT
            .Range(1, 5) = Me.catégorie  ' Colonne AU
            .Range(1, 5) = Me.catégorie  ' Colonne AU
            .Range(1, 7) = Me.catégorie  ' Colonne AW
            .Range(1, 9) = Me.txtdescription  ' Colonne AY
 
            End With
 
 
            'Trouver la dernière ligne
          '  dlt = Sheets("prévisions").Range("ar10000").End(xlUp).Row
          '  Sheets("prévisions").Range("ar" & dlt).ListColumns("Date").DataBodyRange.NumberFormat = "yyyy-mm-dd"
          '  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

Citation:

Envoyé par Eric KERGRESSE

Bonjour,

Lorsque vous avez un tableau structuré, il est plus simple de travailler avec l'objet ListObject. Je ne vois pas comment vous calculez paiementmens.

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
 
 
'Bouton budgéter
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 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) = Sheets("prévisions").ListObjects(1).ListRows.Count ' Colonne AR
            .Range(1, 2) = MaDate ' Colonne AR
            .Range(1, 3) = Me.txttype ' Colonne AS
            .Range(1, 4) = paiementmens  ' Colonne AT
            .Range(1, 5) = Me.catégorie  ' Colonne AU
            .Range(1, 5) = Me.catégorie  ' Colonne AU
            .Range(1, 7) = Me.catégorie  ' Colonne AW
            .Range(1, 9) = Me.txtdescription  ' Colonne AY
 
            End With
 
 
            'Trouver la dernière ligne
          '  dlt = Sheets("prévisions").Range("ar10000").End(xlUp).Row
          '  Sheets("prévisions").Range("ar" & dlt).ListColumns("Date").DataBodyRange.NumberFormat = "yyyy-mm-dd"
          '  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

Voilà

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Date
Private Sub txtdate_AfterUpdate()
On Error GoTo Message
Me.txtdate = Format(CDate(Me.txtdate), "yyyy-mm-dd")
Dat = CDate(Me.txtdate)
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

Pourquoi avoir changer les ranges car cette opération était bien exécuté?

En passant la date sur mon ordi est programmé yyyy-mm-dd

Est-ce possible que vous le testiez le tester sur mon classeur.

18/06/2019, 08h02
Invité

Citation:

Envoyé par denissmile

Ci-joint, une version correspondant strictement à ta demande. Sinon, tu utilises une syntaxe mêlant celles pour les tableaux structurés et non structurés. Tu devrais consulter le tuto de Pierre Fauconnier pour optimiser ton code : tableaux-structures
18/06/2019, 08h43
Daniel.C
Bonjour,

Si le format est déjà correct, il est inutile de le réécrire. Sinon :

Code:

Sheets("prévisions").Range("ar" & dlt).NumberFormat = "yyyy-mm-dd"

était correct. Pour éviter de calculer "dlt", tu peux aussi mettre :
Code:

1 2 3 4 5 Set MaLigne = .ListRows.Add With MaLigne.Range(1, 2) .Value = MaDate .NumberFormat = "yyyy-mm-dd" End With
18/06/2019, 15h14
denissmile

Test date 2

Citation:

Envoyé par Eric KERGRESSE

Ci-joint, une version correspondant strictement à ta demande. Sinon, tu utilises une syntaxe mêlant celles pour les tableaux structurés et non structurés. Tu devrais consulter le tuto de Pierre Fauconnier pour optimiser ton code : tableaux-structures

Merci Éric,

Il faut savoir que je suis débutant. Je me suis inspiré d'un Belge pour élaborer mon classeur. Sa structure était selon mi correct puisque cela fonctionnait avec son classeur 2013. Moi je suis sur 2016.

Ton dernier envoi fonctionne à 90%. Effet toute les colonne se remplissent en bon éduforme. Seulement la colonne somme demeure vide ou incrit le même montant quand en pratique, cela devrait être divisé par 12. J'ai vue qu'à la colonne ar tu a indiqué paiement quant on devrait voir montant. J'ai testé mais c'est le ême montant qui s'inscrit sur les 12 mois. Saurais-tu ce qui ne vas pas.

Pour la structure, je vais visionné le tuto. J'aimerais vois dans mon classeur ce qui changerait pour que ce soit structuré, je pourrai ainsi comparer et comprendre encore mieux.

Merci éric
18/06/2019, 15h29
Invité

Citation:

Envoyé par denissmile

Pour ton montant, quelle est ta règle de gestion à partir d'une saisie dans le userform ? S'il s'agit de simplement récupérer la valeur du textbox, il te faut convertir cette valeur en nombre. Pour cela, regarde dans l'aide Excel, les conversions de valeur.
Quant à l'utilisation des tableaux structurés, c'est la version que je t'ai transmise hier ou ce matin et pour laquelle tu demandais pourquoi j'avais corrigé le code. L'avantage de travailler avec ce genre de tableaux est que tu ne poses plus la question sur le positionnement des colonnes et du nombre de lignes et si tu as des formules, tu peux travailler comme avec des zones nommées, c'est un énorme gain de temps.
18/06/2019, 15h39
denissmile

Division

Citation:

Envoyé par Eric KERGRESSE

Pour ton montant, quelle est ta règle de gestion à partir d'une saisie dans le userform ? S'il s'agit de simplement récupérer la valeur du textbox, il te faut convertir cette valeur en nombre. Pour cela, regarde dans l'aide Excel, les conversions de valeur.
Quant à l'utilisation des tableaux structurés, c'est la version que je t'ai transmise hier ou ce matin et pour laquelle tu demandais pourquoi j'avais corrigé le code. L'avantage de travailler avec ce genre de tableaux est que tu ne poses plus la question sur le positionnement des colonnes et du nombre de lignes et si tu as des formules, tu peux travailler comme avec des zones nommées, c'est un énorme gain de temps.

Merci

Dans les versions précédentes j'aivais ce code
'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

qui permettait la division par le nombre de mois. Je me rencontre que maintenant, il n'y ai plus. et je n'ose pas l'ajouter de peur que ça plante de nouveau.

Résolu

Citation:

Envoyé par denissmile

Merci

Dans les versions précédentes j'aivais ce code
'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

qui permettait la division par le nombre de mois. Je me rencontre que maintenant, il n'y ai plus. et je n'ose pas l'ajouter de peur que ça plante de nouveau.

Salut,

C'est résolu.

Voici le code qui fonctionne :

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
'Bouton budg?ter
Private Sub budg?ter_Click()
Dim x As Integer
Dim MaDate As Date
Dim MaLigne As ListRow
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 txtdatefin <> "" Then
        MaDate = CDate(txtdate)
        x = DateDiff("m", CDate(txtdate), CDate(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) = MaDate
            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
 
            x = x - 1 '<-- D?compte du nombre de fois qu'il faut faire la boucle
            Set MaLigne = Nothing
 
        Loop
 
        Sheets("pr?visions").ListObjects(1).ListColumns("Date").DataBodyRange.NumberFormat = "yyyy-mm-dd"
 
    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

J'ai du ajouter la ligne permettant de débuter à la première ligne car le code la fessait débuter à la deuxième ligne
Je vais suivre ton conseil d'enlever les accents.
Bon je crois que la structure est boiteuse? Je vais lire le tuto pour comprendre.

Merciiii

À part sélectionner résolu, y a-t-il autre chose que je puisse faire et si oui, comment?