ptit_ange69
XLDnaute Nouveau
Bonjour,
J'ai créé une BDD avec userform, je souhaite insérer des dates et des adresses mails dans mon fichier.
dans le textbox où je souhaite insérer la date et lorsque je clique sur validation des modifications j'ai un message d'erreur et me renvoie sur ceci :
Merci d'avance pour votre aide.
Private Sub b_valid_Click()
If Me.Enreg <> "" And Me.TextBox1 <> "" Then
NoEnreg = Me.Enreg
For i = 0 To Ncol - 1
k = colVisu(i)
x = Me("textBox" & i + 1)
If IsNumeric(x) And InStr(x, " ") = 0 Then
f.Cells(NoEnreg, k) = CDbl(x)
Else
If IsDate(x) Then
f.Cells(NoEnreg, k) = CDate(x)
Else
f.Cells(NoEnreg, k) = x
End If
End If
Next i
raz
Me.Enreg = ""
UserForm_Initialize
End If
End Sub
J'ai créé une BDD avec userform, je souhaite insérer des dates et des adresses mails dans mon fichier.
dans le textbox où je souhaite insérer la date et lorsque je clique sur validation des modifications j'ai un message d'erreur et me renvoie sur ceci :
Merci d'avance pour votre aide.
Private Sub b_valid_Click()
If Me.Enreg <> "" And Me.TextBox1 <> "" Then
NoEnreg = Me.Enreg
For i = 0 To Ncol - 1
k = colVisu(i)
x = Me("textBox" & i + 1)
If IsNumeric(x) And InStr(x, " ") = 0 Then
f.Cells(NoEnreg, k) = CDbl(x)
Else
If IsDate(x) Then
f.Cells(NoEnreg, k) = CDate(x)
Else
f.Cells(NoEnreg, k) = x
End If
End If
Next i
raz
Me.Enreg = ""
UserForm_Initialize
End If
End Sub