probleme code vba

Bonjour à tous,

Voici mon problème. Ma société ma demandé de développer une application pour faire des devis. Le problème est que je suis plus que débutant en progammation vba. J'ai bien réussi en allant à la pêche aux informations sur différents sites, mais je pense que je suis arrivé au max de mes compétences.

Mon souci est le suivant, quand j'initialise mon userform, je voudrais que la date du devis s'affiche automatiquement et que la date d'adhésion se mette automatiquement au 1er du mois suivant, mais j'ai beau tourner le problème dans tous les sens, je n'y arrive pas.

Si vous pouvez m'aider je vous en remercie par avance.

bonjour,

par exemple :

Code:

1
2
Label1.Caption = Format(Date, "yyyy-mm-dd")
Label2.Caption = Format(DateSerial(Year(Date), Month(Date) + 1, 1), "yyyy-mm-dd")

isabelle

Bonjour Sabzzz

Une petite correction. Pour ne pas avoir de problème au mois de décembre avec le premier du mois suivant.
Code:

1 2 dte = DateAdd("m", 1, Date) dte= DateSerial(Year(dte), Month(dte), 1)
COrdialement,

PGZ

Merci pour ces premiers éléments de réponse, mais que dois-je remplacer exactement.

J'ai essayé comme ci-dessous mais sans résultat.
Code:

1 2 3 datedevis = DateAdd("m", 1, Date) adhésion = DateSerial(Year(datedevis), Month(datedevis), 1)

Re,

La plupart des intervenants sur ce forum n'ouvrent pas les pj, pour plusieurs raisons. Essaie de présenter précisément ce que tu as fais.
Explique dans quel type de contrôle tu veux afficher ces infos, donne ton code (fais un copier-coller de la partie intéressante directement depuis l'éditeur VB) et dis où tu as mis ce code.
Tu auras plus d'aide de cette façon.

Cordialement,

PGZ

1 pièce(s) jointe(s)

Bonjour pgz,

Voici le code :

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
Private Sub devis_Change()
 
    If devis.Value = "" Then devis.Value = 0
 
    conseillère.Clear
    conseillère.AddItem "Anne-Marie MESMACQUE"
    conseillère.AddItem "Brigitte GUINET"
    conseillère.AddItem "Aurélie BENHARBON"
    conseillère.AddItem "Catherine ROUSSET"
    conseillère.AddItem "Catherine PIERRE"
    conseillère.AddItem "Christine BORDAS"
    conseillère.AddItem "Christine BREUILLAT"
    conseillère.AddItem "Françoise FOURNEL"
    conseillère.AddItem "Isabelle BLANZY"
    conseillère.AddItem "Jacques DE COLIGNY"
    conseillère.AddItem "Lila RACHEDI"
    conseillère.AddItem "Liliane ROSSIGNOL"
    conseillère.AddItem "Marie CELADA"
    conseillère.AddItem "Marie-Hélène ROMA"
    conseillère.AddItem "Emilie TKATCH"
    conseillère.AddItem "Marine ROULIN"
    conseillère.AddItem "Muriel DUQUESNE"
    conseillère.AddItem "Pascale FINDEISEN"
    conseillère.AddItem "Linda ADJAOUD"
    conseillère.AddItem "Stéphanie DUTILLEUL"
    conseillère.AddItem "Valérie AUBERT"
 
    objet.AddItem "Nouveau devis"
    objet.AddItem "Changement d'option"
 
    type_adhésion.AddItem "Direct"
    type_adhésion.AddItem "Courtage"
 
    civilité.Clear
    civilité.AddItem "Monsieur"
    civilité.AddItem "Madame"
    civilité.AddItem "Mademoiselle"
 
    adhérent.Clear
    adhérent.AddItem "OUI"
    adhérent.AddItem "NON"
 
    conjoint.Clear
    conjoint.AddItem "OUI"
    conjoint.AddItem "NON"
 
    enfant1.Clear
    enfant1.AddItem "OUI"
    enfant1.AddItem "NON"
 
    enfant2.Clear
    enfant2.AddItem "OUI"
    enfant2.AddItem "NON"
 
    enfant3.Clear
    enfant3.AddItem "OUI"
    enfant3.AddItem "NON"
 
    enfant4.Clear
    enfant4.AddItem "OUI"
    enfant4.AddItem "NON"
 
    enfant5.Clear
    enfant5.AddItem "OUI"
    enfant5.AddItem "NON"
 
    régime_adhérent.Clear
    régime_adhérent.AddItem "Général"
    régime_adhérent.AddItem "Local"
 
    régime_conjoint.Clear
    régime_conjoint.AddItem "Général"
    régime_conjoint.AddItem "Local"
 
    régime_enfant1.Clear
    régime_enfant1.AddItem "Général"
    régime_enfant1.AddItem "Local"
 
    régime_enfant2.Clear
    régime_enfant2.AddItem "Général"
    régime_enfant2.AddItem "Local"
 
    régime_enfant3.Clear
    régime_enfant3.AddItem "Général"
    régime_enfant3.AddItem "Local"
 
    régime_enfant4.Clear
    régime_enfant4.AddItem "Général"
    régime_enfant4.AddItem "Local"
 
    régime_enfant5.Clear
    régime_enfant5.AddItem "Général"
    régime_enfant5.AddItem "Local"
 
    choix1.Clear
    choix1.AddItem "Aucune"
    choix1.AddItem "Option 1"
    choix1.AddItem "Option 2"
    choix1.AddItem "Option 3"
    choix1.AddItem "Option 4"
    choix1.AddItem "Option 5"
    choix1.AddItem "Option 6"
    choix1.AddItem "Option 1+"
    choix1.AddItem "Option 2+"
    choix1.AddItem "Option 3+"
    choix1.AddItem "Option 4+"
    choix1.AddItem "Option 5+"
    choix1.AddItem "Option 6+"
 
    choix2.Clear
    choix2.AddItem "Aucune"
    choix2.AddItem "Option 1"
    choix2.AddItem "Option 2"
    choix2.AddItem "Option 3"
    choix2.AddItem "Option 4"
    choix2.AddItem "Option 5"
    choix2.AddItem "Option 6"
    choix2.AddItem "Option 1+"
    choix2.AddItem "Option 2+"
    choix2.AddItem "Option 3+"
    choix2.AddItem "Option 4+"
    choix2.AddItem "Option 5+"
    choix2.AddItem "Option 6+"
 
    choix3.Clear
    choix3.AddItem "Aucune"
    choix3.AddItem "Option 1"
    choix3.AddItem "Option 2"
    choix3.AddItem "Option 3"
    choix3.AddItem "Option 4"
    choix3.AddItem "Option 5"
    choix3.AddItem "Option 6"
    choix3.AddItem "Option 1+"
    choix3.AddItem "Option 2+"
    choix3.AddItem "Option 3+"
    choix3.AddItem "Option 4+"
    choix3.AddItem "Option 5+"
    choix3.AddItem "Option 6+"
 
    choix4.Clear
    choix4.AddItem "Aucune"
    choix4.AddItem "Option 1"
    choix4.AddItem "Option 2"
    choix4.AddItem "Option 3"
    choix4.AddItem "Option 4"
    choix4.AddItem "Option 5"
    choix4.AddItem "Option 6"
    choix4.AddItem "Option 1+"
    choix4.AddItem "Option 2+"
    choix4.AddItem "Option 3+"
    choix4.AddItem "Option 4+"
    choix4.AddItem "Option 5+"
    choix4.AddItem "Option 6+"
 
    type_accroche.Clear
    type_accroche.AddItem "Aucune"
    type_accroche.AddItem "1ère accroche : sorties d'entreprise avec entretien téléphonique"
    type_accroche.AddItem "2ème accroche : sorties d'entreprise sans entretien téléphonique"
    type_accroche.AddItem "3ème accroche : prospect non adhérent"
    type_accroche.AddItem "4ème accroche : opération futurs retraités"
    type_accroche.AddItem "5ème accroche : opération futurs retraités : départ en 2011 et +"
    type_accroche.AddItem "6ème accroche : opération retraités BTP : 3x3=9 mois gratuits"
    type_accroche.AddItem "Accroche personnalisée"
 
End Sub

' Précédent pour aller sur Gestion de la feuille de choix

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub cmdAnnuler_Click()
 
    If Saisie.cmdAnnuler.Enabled = True Then
 
        Saisie.Hide
        Dlgchoix.Show
 
    End If
 
End Sub

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
Private Sub userform1_Initialize()
 
 
    datedevis = DateAdd("m", 1, Date)
    adhésion = DateSerial(Year(datedevis), Month(datedevis), 1)
 
    objet.AddItem "Nouveau devis"
    objet.AddItem "Changement d'option"
 
    'Initialisation des conseillères
    conseillère.AddItem "Anne-Marie MESMACQUE"
    conseillère.AddItem "Brigitte GUINET"
    conseillère.AddItem "Aurélie BENHARBON"
    conseillère.AddItem "Catherine ROUSSET"
    conseillère.AddItem "Catherine PIERRE"
    conseillère.AddItem "Christine BORDAS"
    conseillère.AddItem "Christine BREUILLAT"
    conseillère.AddItem "Françoise FOURNEL"
    conseillère.AddItem "Isabelle BLANZY"
    conseillère.AddItem "Jacques DE COLIGNY"
    conseillère.AddItem "Lila RACHEDI"
    conseillère.AddItem "Liliane ROSSIGNOL"
    conseillère.AddItem "Marie CELADA"
    conseillère.AddItem "Marie-Hélène ROMA"
    conseillère.AddItem "Emilie TKATCH"
    conseillère.AddItem "Marine ROULIN"
    conseillère.AddItem "Muriel DUQUESNE"
    conseillère.AddItem "Pascale FINDEISEN"
    conseillère.AddItem "Linda ADJAOUD"
    conseillère.AddItem "Stéphanie DUTILLEUL"
    conseillère.AddItem "Valérie AUBERT"
 
    'Initialisation du type d'adhésion
    type_adhésion.AddItem "Direct"
    type_adhésion.AddItem "Courtage"
 
    'Initialisation de la civilité
    civilité.AddItem "Monsieur"
    civilité.AddItem "Madame"
    civilité.AddItem "Mademoiselle"
 
    'Initialisation déjà adhérent
    adhérent.AddItem "OUI"
    adhérent.AddItem "NON"
 
    'Initialisation des bénéficiaires
    conjoint.AddItem "OUI"
    coinjoint.AddItem "NON"
 
    enfant1.AddItem "OUI"
    enfant1.AddItem "NON"
 
    enfant2.AddItem "OUI"
    enfant2.AddItem "NON"
 
    enfant3.AddItem "OUI"
    enfant3.AddItem "NON"
 
    enfant4.AddItem "OUI"
    enfant4.AddItem "NON"
 
    enfant5.AddItem "OUI"
    enfant5.AddItem "NON"
 
    'Initialisation du régime
    régime_adhérent.AddItem "Général"
    régime_adhérent.AddItem "Local"
 
    régime_conjoint.AddItem "Général"
    régime_conjoint.AddItem "Local"
 
    régime_enfant1.AddItem "Général"
    régime_enfant1.AddItem "Local"
 
    régime_enfant2.AddItem "Général"
    régime_enfant2.AddItem "Local"
 
    régime_enfant3.AddItem "Général"
    régime_enfant3.AddItem "Local"
 
    régime_enfant4.AddItem "Général"
    régime_enfant4.AddItem "Local"
 
    régime_enfant5.AddItem "Général"
    régime_enfant5.AddItem "Local"
 
    'Initialisation des choix
    choix1.AddItem "Aucune"
    choix1.AddItem "Option 1"
    choix1.AddItem "Option 2"
    choix1.AddItem "Option 3"
    choix1.AddItem "Option 4"
    choix1.AddItem "Option 5"
    choix1.AddItem "Option 6"
    choix1.AddItem "Option 1+"
    choix1.AddItem "Option 2+"
    choix1.AddItem "Option 3+"
    choix1.AddItem "Option 4+"
    choix1.AddItem "Option 5+"
    choix1.AddItem "Option 6+"
 
    choix2.AddItem "Aucune"
    choix2.AddItem "Option 1"
    choix2.AddItem "Option 2"
    choix2.AddItem "Option 3"
    choix2.AddItem "Option 4"
    choix2.AddItem "Option 5"
    choix2.AddItem "Option 6"
    choix2.AddItem "Option 1+"
    choix2.AddItem "Option 2+"
    choix2.AddItem "Option 3+"
    choix2.AddItem "Option 4+"
    choix2.AddItem "Option 5+"
    choix2.AddItem "Option 6+"
 
    choix3.AddItem "Aucune"
    choix3.AddItem "Option 1"
    choix3.AddItem "Option 2"
    choix3.AddItem "Option 3"
    choix3.AddItem "Option 4"
    choix3.AddItem "Option 5"
    choix3.AddItem "Option 6"
    choix3.AddItem "Option 1+"
    choix3.AddItem "Option 2+"
    choix3.AddItem "Option 3+"
    choix3.AddItem "Option 4+"
    choix3.AddItem "Option 5+"
    choix3.AddItem "Option 6+"
 
    choix4.AddItem "Aucune"
    choix4.AddItem "Option 1"
    choix4.AddItem "Option 2"
    choix4.AddItem "Option 3"
    choix4.AddItem "Option 4"
    choix4.AddItem "Option 5"
    choix4.AddItem "Option 6"
    choix4.AddItem "Option 1+"
    choix4.AddItem "Option 2+"
    choix4.AddItem "Option 3+"
    choix4.AddItem "Option 4+"
    choix4.AddItem "Option 5+"
    choix4.AddItem "Option 6+"
 
    'Initialisation type d'accroche
    type_accroche.AddItem "Aucune"
    type_accroche.AddItem "1ère accroche : sorties d'entreprise avec entretien téléphonique"
    type_accroche.AddItem "2ème accroche : sorties d'entreprise sans entretien téléphonique"
    type_accroche.AddItem "3ème accroche : prospect non adhérent"
    type_accroche.AddItem "4ème accroche : opération futurs retraités"
    type_accroche.AddItem "5ème accroche : opération futurs retraités : départ en 2011 et +"
    type_accroche.AddItem "6ème accroche : opération retraités BTP : 3x3=9 mois gratuits"
    type_accroche.AddItem "Accroche personnalisée"
 
 
    objet.ListIndex = 0
    conseillère.ListIndex = 0
    type_adhésion.ListIndex = 0
    civilité.ListIndex = 0
    adhérent.ListIndex = 0
    conjoint.ListIndex = 0
    enfant1.ListIndex = 0
    enfant2.ListIndex = 0
    enfant3.ListIndex = 0
    enfant4.ListIndex = 0
    enfant5.ListIndex = 0
    régime_adhérent.ListIndex = 0
    régime_conjoint.ListIndex = 0
    régime_enfant1 = 0
    régime_enfant2.ListIndex = 0
    régime_enfant3.ListIndex = 0
    régime_enfant4.ListIndex = 0
    régime_enfant5.ListIndex = 0
    choix1.ListIndex = 0
    choix2.ListIndex = 0
    choix3.ListIndex = 0
    choix4.ListIndex = 0
    type_accroche.ListIndex = 0
 
End Sub

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
Private Sub CmdValider_Click()
 
    If Saisie.cmdValider.Enabled = True Then
 
        'Else
 
            'Renvoie les variables dans la feuille données
 
            Sheets("données").Cells(1, 2).Value = devis.Value
            Sheets("données").Cells(2, 2).Value = CDate(datedevis.Value)
            Sheets("données").Cells(3, 2).Value = CDate(adhésion.Value)
            Sheets("données").Cells(4, 2).Value = conseillère.Value
            Sheets("données").Cells(5, 2).Value = objet.Value
            Sheets("données").Cells(6, 2).Value = type_adhésion.Value
            Sheets("données").Cells(7, 3).Value = type_accroche.Value
 
            Sheets("données").Cells(10, 2).Value = naissance_adhérent.Value
            Sheets("données").Cells(10, 4).Value = régime_adhérent.Value
 
            Sheets("données").Cells(11, 2).Value = naissance_conjoint.Value
            Sheets("données").Cells(11, 4).Value = régime_conjoint.Value
            Sheets("données").Cells(11, 5).Value = conjoint.Value
 
            Sheets("données").Cells(12, 2).Value = naissance_enfant1.Value
            Sheets("données").Cells(12, 4).Value = régime_enfant1.Value
            Sheets("données").Cells(12, 5).Value = enfant1.Value
 
            Sheets("données").Cells(13, 2).Value = naissance_enfant2.Value
            Sheets("données").Cells(13, 4).Value = régime_enfant2.Value
            Sheets("données").Cells(13, 5).Value = enfant2.Value
 
            Sheets("données").Cells(14, 2).Value = naissance_enfant3.Value
            Sheets("données").Cells(14, 4).Value = régime_enfant3.Value
            Sheets("données").Cells(14, 5).Value = enfant3.Value
 
            Sheets("données").Cells(15, 2).Value = naissance_enfant4.Value
            Sheets("données").Cells(15, 4).Value = régime_enfant4.Value
            Sheets("données").Cells(15, 5).Value = enfant4.Value
 
            Sheets("données").Cells(16, 2).Value = naissance_enfant5.Value
            Sheets("données").Cells(16, 4).Value = régime_enfant5.Value
            Sheets("données").Cells(16, 5).Value = enfant5.Value
 
            Sheets("données").Cells(19, 3).Value = code_postal.Value
            Sheets("données").Cells(20, 3).Value = choix1.Value
            Sheets("données").Cells(21, 3).Value = choix2.Value
            Sheets("données").Cells(22, 3).Value = choix3.Value
            Sheets("données").Cells(23, 3).Value = choix4.Value
 
            Sheets("données").Cells(59, 1).Value = entreprise_adhérent.Value
            Sheets("données").Cells(60, 1).Value = date_sortie.Value
 
 
           If type_adhésion.Value = "Direct" Then
                Sheets("Lettre").Visible = True
                Sheets("Lettre").Select
                Rows("29:48").EntireRow.Hidden = False
                Rows("50:69").EntireRow.Hidden = True
                Rows("116:127").EntireRow.Hidden = False
                Rows("129:139").EntireRow.Hidden = True
 
                Sheets("Lettre").Visible = False
            Else
                Sheets("Lettre").Visible = True
                Sheets("Lettre").Select
                Rows("29:48").EntireRow.Hidden = True
                Rows("50:69").EntireRow.Hidden = False
                Rows("116:127").EntireRow.Hidden = True
                Rows("129:139").EntireRow.Hidden = False
 
                Sheets("Lettre").Visible = False
            End If
 
 
            If Date > CDate(adhésion) Then
                MsgBox "Attention, l'adhésion ne peut être rétroactive"
                Saisie.Hide
                Saisie.Show
                End If
 
            End If
 
            temp = Left(adhésion, 2)
 
            If temp <> "01" Then
                MsgBox "Attention l'adhésion ne peut avoir lieu un autre jour que le 1er du mois"
                Saisie.Hide
                Saisie.Show
            End If
 
            Saisie.Hide
            Sheets("Lettre").Visible = True
            Sheets("Lettre").Select
            Call remplissage
 
End Sub

Et le formulaire est en pièce jointe

bonjour pgz,

je n'ai aucune erreur même si j'ajoute 1 au mois de décembre,
je précise que je travaille sur excel 2002, pour me convaincre d'un doute, s'il te plait, peut tu executer les lignes suivant :
Code:

1 2 x = DateSerial(Year(Date), Month(Date) + 9, 1) x = DateSerial(Year(x), Month(x) + 1, 1)
en te remerciant par avance,
isabelle

Bonjour Sabzzz.

C'est surprenant mais cela marche effectivement. Dont acte et : au temps pour moi!

Bonne journée,

PGZ