XL 2010 Bouton modifier non actif

Mirguy23

XLDnaute Nouveau
Bonjour à tous,
J'ai un petit problème avec mon bouton validation modif pour modifier lié à deux TextBox. . Lorsque je clique sur mon bouton il n'y a aucune modification qui s'effectue sur ma feuille et ça me donne aucune erreur ....

Voici le lien du fichier

VB:
Private Sub b_valid_Click()
Enreg = Me.b_valid
For C = 1 To NbCol
If Not Range(NomTableau).Item(Enreg, C).HasFormula Then
Tmp = Me("textbox" & C)
If IsNumeric(Replace(Tmp, ".", ",")) And InStr(Tmp, " ") = 0 Then
Tmp = Replace(Tmp, ".", ",")
Range(NomTableau).Item(Enreg, C) = CDbl(Tmp)
Else
If IsDate(Tmp) Then
Range(NomTableau).Item(Enreg, C) = CDate(Tmp)
Else
Range(NomTableau).Item(Enreg, C) = Tmp
End If
End If
Else
Range(NomTableau).Item(Enreg - 1, C).Copy
Range(NomTableau).Item(Enreg, C).PasteSpecial Paste:=xlPasteFormats
End If
Next C
UserForm_Initialize
raz
End Sub
 

Fichiers joints

Dernière édition:

dg62

XLDnaute Accro
Bonjour,

Comment voulez-vous que l'on fasse avec une image pour diagnostiquer votre problème ?
 

Mirguy23

XLDnaute Nouveau
Voici le lien du fichier
 

Discussions similaires


Haut Bas