Bouton modifier non actif VBA Excel Résolu/Fermé

Question

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
https://www.cjoint.com/c/IFAoBUIqcUN

**Modifié par la modération pour une lecture plus facile du code, à l'avenir utilisez les balises, VOIR CETTE PAGE

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

michel_m · Answer

Bonjour,

En général, un textbox renvoie du texte....

pilas31 · Answer

Bonjour,

J'ai regardé rapidement et je ne vois pas l'initialisation de  NbCol.
Qui n'est pas déclaré dans le code de l'Userform3 et ne semble pas être une variable globale.

Sauf erreur car j'ai survolé le code

Bouton modifier non actif VBA Excel

2 réponses

Discussions similaires