XL 2010 Bouton modifier non actif

[Mirguy23]

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

A-DD-X-Origine-pro.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

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

 

[dg62]

Bonjour,

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

 

[Mirguy23]

Bonjour,

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

Bonjour,
J'ai oublié d'envoyer le bout de code.
Merci de me le faire constater.

 

[Mirguy23]

Voici le lien du fichier

A-DD-X-Origine-pro.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com