Microsoft 365 plantage macro retour en arrière

[FCMLE44]

Bonjour

Cette macro débogue lorsque nous effectuons l'action suivante dans un fichier

"Si faute de frappe et retour arrière pour effacer"

Voici le code :

Private Sub TextBox15_Change()
Range("K2").Value = Format(CCur(Prépacourriers.TextBox15.Value), "### ##0.00 €")
End Sub

Que pourrais y rajouter pour éviter l'anomalie ?

Merci

 

[sousou]

Bonjour
En changeant l’événement, c'est le plus simle me semble t-il
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 

[fanch55]

Bonjour, à tester si cela vous convient

Dim OldVal
Private Sub TextBox15_Change()
Dim Target As Range
Set Target = Range("K2")
    If TextBox15 <> vbNullString Then
        On Error Resume Next
        Application.Evaluate (CCur(TextBox15.Value))
        If Err = 0 _
        Then Target.Value = Format(CCur(TextBox15.Value), "### ##0.00 €") _
        Else TextBox15 = OldVal
    Else
        Target.Value = vbNullString
    End If
OldVal = Empty
End Sub
Private Sub TextBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    OldVal = TextBox15.Value
End Sub

 

[FCMLE44]

Bonjour
En changeant l’événement, c'est le plus simle me semble t-il
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Bonjour Sousou
Si je mets Exit au lieu de Change les données ne se remplissent pas dans les cellules indiquées. Par contre, elles ne beuguent plus lors d'un retour en arrière

 

[sousou]

Bonjour
Ca peut dépendre de ton userform si plusieurs textbox ou pas
sinon essaie avec
Private Sub TextBox1_AfterUpdate()
Tu peux joindre le fichier!

 

[patricktoulon]

bonjour
juste une question
mis a part l’événement peut être non approprié
personne n'a eu l'idée toute simple d’appliquer un numberformat a target sur le ccur du textbox
au lieu d'injecter un format afin d'une part de garder le target en numérique et non texte parce que c'est ce que format fait et que le job soit fait

j'dis ca moi j'dis rien
bon OK je sort

 

[FCMLE44]

Bonjour
Ca peut dépendre de ton userform si plusieurs textbox ou pas
sinon essaie avec
Private Sub TextBox1_AfterUpdate()
Tu peux joindre le fichier!

Oui j'ai plusieurs textbox. Ceux correspondant aux userform Prépacourriers sont concernés.
J'aimerais aussi que lorsque l'on remplit, en dehors d'aller alimenter la cellule que les données que l'on arenseigné dans le userform rest même user form fermé

Voici le fichier

 

[patricktoulon]

re

Private Sub TextBox14_AfterUpdate()
With Sheets("DSN"): Range("F26").Value = CDbl(TextBox14): .NumberFormat = "### ##0.00 €": End With
End Sub

si tu n'utilise pas la virgule comme séparateur décimal il te faut faire un replace
et fait pareil pour les autres textboxS concernéS
une erreur c'est déclenchée après dans la fonction nombre en lettre
et il y en a bien d'autre encore

 

[FCMLE44]

Merci
Débogage même en mettant le End With à la ligne

Cordialement

 

[patricktoulon]

j'essaie de tester mais a chaque fois on revient sur l'erreur de la fonction nombre en lettre et en plus tout est bloqué ,obligé de tuer le processus excel dans les taches
moi j’arrête là merci

 

[FCMLE44]

Bo

Bonjour, à tester si cela vous convient

Dim OldVal
Private Sub TextBox15_Change()
Dim Target As Range
Set Target = Range("K2")
    If TextBox15 <> vbNullString Then
        On Error Resume Next
        Application.Evaluate (CCur(TextBox15.Value))
        If Err = 0 _
        Then Target.Value = Format(CCur(TextBox15.Value), "### ##0.00 €") _
        Else TextBox15 = OldVal
    Else
        Target.Value = vbNullString
    End If
OldVal = Empty
End Sub
Private Sub TextBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    OldVal = TextBox15.Value
End Sub

Bonjour

Le Old Val se met dans une ligne de code déja existante
Voici en pièce jointe mon fichier
Feuille "Courriers"
Userform Prépacourriers
Toutes les données. Je souhaiterais pouvoir faire des retours en arrière et que lorsque j'ai saisi quelquechose, en dehors du fait d'alimenter les cellules, si j'ouvre a nouveau le userform les données soient toujours apparente

Merci

 

[FCMLE44]

Bonjour
Ca peut dépendre de ton userform si plusieurs textbox ou pas
sinon essaie avec
Private Sub TextBox1_AfterUpdate()
Tu peux joindre le fichier!

Bonjour
As tu pu trouver la solution ?

 

[sousou]

Bonjour as-tu essayer
comme ceci:
Private Sub TextBox15_change()
If TextBox15 <> "" And IsNumeric(TextBox15) = True Then
Range("K2").Value = Format(CCur(Prépacourriers.TextBox15.Value), "### ##0.00 €")
End If
End Sub

 

[FCMLE44]

Ca semble fonctionner
Tu es le meilleur
Merci

 

[FCMLE44]

Bonjour as-tu essayer
comme ceci:
Private Sub TextBox15_change()
If TextBox15 <> "" And IsNumeric(TextBox15) = True Then
Range("K2").Value = Format(CCur(Prépacourriers.TextBox15.Value), "### ##0.00 €")
End If
End Sub

Je vais abuser encore un peu
Qu'est ce que je peux rajouter aux codes figurant sur mon userform Prépacourriers pour que une fois les données saisies les textbox restent remplis lorsque par mégarde je sors du userform
Merci