GADENSEB
XLDnaute Impliqué
Bonjour le Forum,
J’espère que vous allez bien !
Je reviens avec une question basique mais qui me pose probléme :
La validation des données à la sortie d'un Userform
J'ai 2 textbox (DEBIT et CREDIT) que je souhaite valider au format "€" classique.
Pour précision, je ne valide aucun format au moment de la saisie dans les textbox.
J'essaye avec un isnumeric et j'obtiens une erreur
"Erreur de compilation : Sub ou fonction non définie"
mmmm j'ai dû sauter une étape ....
Voici mon code :
QQn aurais une idée ??
Bonne journée
Seb
J’espère que vous allez bien !
Je reviens avec une question basique mais qui me pose probléme :
La validation des données à la sortie d'un Userform
J'ai 2 textbox (DEBIT et CREDIT) que je souhaite valider au format "€" classique.
Pour précision, je ne valide aucun format au moment de la saisie dans les textbox.
J'essaye avec un isnumeric et j'obtiens une erreur
"Erreur de compilation : Sub ou fonction non définie"
mmmm j'ai dû sauter une étape ....
Voici mon code :
Code:
Private Sub Validation_Click()
'Enregistre les données dans la BDD
Dim LastLigne As Integer
Dim ModeRecalcul As Long
ModeRecalcul = Application.Calculation
' Réglage du recalcul sur mode manuel
Application.Calculation = xlCalculationManual
If MsgBox("Ajouter une nouvelle Ligne ? ", vbYesNo, " Demande de confirmation d’ajout ") = vbYes Then
LastLigne = Sheets("COMPTES").Range("a65536").End(xlUp).Row + 1
Dim c, x&
For Each c In Me.Controls
If c.Tag <> "" Then
x = c.Tag
If IsDate(c.Value) Then
Feuil3.Cells(LastLigne, x).Value = CDate(c.Value)
if IsNumeric(c.Value) Then
Feuil3.Cells(LastLigne, x).Value = SetFocus(c.Value)
Else
Feuil3.Cells(LastLigne, x).Value = c.Value
End If
End If
Next
End If
Unload Me
' Rétablissement du mode de recalcul d'origine
Application.Calculation = ModeRecalcul
End SubQQn aurais une idée ??
Bonne journée
Seb
