problème avec mon code vba erreur incompatibilité de type

Version imprimable

30/10/2021, 10h22
elkas007

problème avec mon code vba erreur incompatibilité de type

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:

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

j'ai besoin de votre aide.

mercia
30/10/2021, 10h59
hyperion13

Salut

Code:

Me.TextBox8 = Format(CDate(Me.TextBox8.Text), "dd/mm/yyyy") <> Me.TextBox8 = Format(Me.TextBox8.Text, "dd/mm/yyyy")
30/10/2021, 11h28
elkas007

Citation:

Envoyé par hyperion13

Salut

Code:

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

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

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

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:

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

euh ...

Code:

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

30/10/2021, 14h54
elkas007

Merci beaucoup, je viens de tester et ça marche trés bien.

merci encore