Discussion :

[patricktoulon]

re
@clementmarcotte
j'avais zappé le petit drapeau du demandeur 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

[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 :

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
 
'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 :

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

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

[Invité]

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

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
 
 
'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

[denissmile]

Bonjour Éric,

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

Code :

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

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

[Invité]

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 :

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
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

[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 :

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
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 :

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
'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.

[Invité]

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

[Daniel.C]

Bonjour,

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

Code :

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

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

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

Code :

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

1
2
3
4
5
           Set MaLigne = .ListRows.Add
            With MaLigne.Range(1, 2)
              .Value = MaDate
              .NumberFormat = "yyyy-mm-dd"
            End With

[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

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

[Invité]

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.

[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.

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.

[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 :

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
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?