Bouton modifier non actif VBA Excel

  • Auteur de la discussion Mirguy23
  • Date de début

Mirguy23

Habitué
#1
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
Code:
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:
Vous devez vous inscrire ou vous connecter pour répondre ici.
Membres en ligne
  • Millan
  • _Othy_
  • Fukumi
Derniers messages publiés
Statistiques globales
Discussions
869 202
Messages
8 105 754
Membres
1 579 739
Dernier membre
Fukumi
Partager cette page
Haut