Discussion :

[elkas007]

bonjour,

j'ai un probleme avec mon code vba Cdate.

j'ai fait un code vba pour permettre d'effacer les données dans les textbox et lorsque sa vient au niveau de textbox_ et texbox9 qui ont un format date, je recois un message d'erreur : erreur d'incompatiblité.

Code :

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

Me.TextBox8 = Format(CDate(Me.TextBox8.Text), "dd/mm/yyyy")

j'ai besoin de votre aide.

mercia

[hyperion13]

Salut

Code :

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

Me.TextBox8 = Format(CDate(Me.TextBox8.Text), "dd/mm/yyyy") <> Me.TextBox8 = Format(Me.TextBox8.Text, "dd/mm/yyyy")

[elkas007]

Salut

Code :

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

Me.TextBox8 = Format(CDate(Me.TextBox8.Text), "dd/mm/yyyy") <> Me.TextBox8 = Format(Me.TextBox8.Text, "dd/mm/yyyy")

bonjour et merci pour votre reponse.

j'ai essayé mais ça donne toujours le meme message d'erreur.

aufait, j'ai crée un bouton "EFFACER les données", dans le bouton commande effacer, le (code textbox8.text ="" ) est inscrit et achaque fois que je clique, le message d'erreur incompatibilité de type est affiché.

[hyperion13]

A quoi ressemble votre code pour effacer le contenu de vos contrôles de formulaire? Un truc comme suit ?

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = ""
Next
End Sub

[elkas007]

bonjour,

j'ai toujours le message d'erreur une fois cliquer sur la commandbutton2.

merci devoir ci-dessous tous les codes que j'ai saisi pour mon userform.

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
70
71
72
73
74
75
76
77
Private Sub CommandButton1_Click()
 
Dim NOM_ET_PRENOM As String
Dim NUM_TELEPHONE As String
Dim PRODUIT_VENDU As String
Dim PRIX_DE_VENTE As Integer
Dim MONTANT_PAYE As Integer
Dim MONTANT_RESTE_A_PAYER As Integer
Dim QUARTIER As String
Dim DATE_DE_PAIEMENT As String
Dim DATE_DECHEANCE As String
Dim TextBox1 As String
 
 
 
If WorksheetFunction.CountIf(Sheets("CLIENTS").Range("A:A"), Me.TextBox1.Value) = 0 Then
    MsgBox "Ce client n'existe pas dans la base de données"
 
    Me.TextBox1.Value = ""
 
 
End If
 
With Me
 
    Me.TextBox2 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 2, 0)
    Me.TextBox3 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 3, 0)
    Me.TextBox4 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 4, 0)
    Me.TextBox5 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 5, 0)
    Me.TextBox6 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 6, 0)
    Me.TextBox7 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 7, 0)
    Me.TextBox8 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 8, 0)
    Me.TextBox9 = Application.WorksheetFunction.VLookup(Me.TextBox1.Text, Sheets("CLIENTS").Range("A7:I1000"), 9, 0)
 
 
End With
 
 
 
 
End Sub
 
Private Sub CommandButton2_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.textbox Then Ctrl.Value = ""
Next
 
End Sub
 
Private Sub CommandButton3_Click()
Unload Me
End Sub
 
 
Private Sub TextBox4_Change()
TextBox4 = Format(TextBox4.Text, "#,##0")
End Sub
 
Private Sub TextBox5_Change()
TextBox5 = Format(TextBox5.Text, "#,##0")
End Sub
 
Private Sub TextBox6_Change()
TextBox6 = Format(TextBox6.Text, "#,##0")
End Sub
 
Private Sub TextBox8_Change()
 
Me.TextBox8 = Format(CDate(Me.TextBox8.Text), "dd/mm/yyyy")
 
End Sub
 
Private Sub TextBox9_Change()
Me.TextBox9 = Format(CDate(Me.TextBox9.Text), "dd/mm/yyyy")
 
End Sub

[hyperion13]

euh ...

Code :

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

1
2
3
4
5
6
Private Sub TextBox8_Change()
Me.TextBox8 = Format(Me.TextBox8.Text, "dd/mm/yyyy")
End Sub
Private Sub TextBox9_Change()
Me.TextBox9 = Format(Me.TextBox9.Text, "dd/mm/yyyy")
End Sub