XL 2016 VBA - Problème textbox

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
 

fanch55

XLDnaute Barbatruc
Au vu du premier post,
je supposai que le problème survenait lors de l'ajout d'un nouvel enregistrement :
De ce que je comprend dans le code,
si je fais le processus Ajouter
puis saisie des infos
puis Validation Modif,
je ne rencontre aucun problème dans l'Usf .

Je ne saisis pas la pertinence du Worksheet_Change dans Bdd qui modifie et/ou efface la colonne 10 pour chaque colonne de la ligne de table ...
Ce serait plutôt celle-ci qui pose problème quand vous faite le copier/coller de la BDD ?
 

patricktoulon

XLDnaute Barbatruc
bonjour
1° il faudra m'expliquer pourquoi les label descriptif des textboxs sont dynamiques
c'est absolument inutile

2° je vois un tableau avec les filtre j'ai dis chouette c'est un tableau structuré !! et ben ...non
pourtant c'est une solution qui arrangerait bien tes affaires
et puis tes textbox nomme les significativement avec leur correspondance colonne

bref c'est brouillon
si tu veux faire les choses correctement fait nous signe ;)
surtout qu'un userform + liste client tu a des exemples a foison
et par pitié oubli ces controls dynamiques c'est pas la peine dans ce contexte
tu t'es trop compliqué la vie
 

Discussions similaires

Statistiques des forums

Discussions
315 168
Messages
2 116 928
Membres
112 921
dernier inscrit
Nagazaki