XL 2016 message d'erreur plutôt qu'erreur d'exécution

halecs93 · 30 Juin 2023

Bonjour à toutes et à tous,

Il y a quelques temps de cela, grâce à la contribution de plusieurs membres du forum, j'avais réussi à finaliser un ficher pour passer des commandes. Ce fichier fonctionne presque parfaitement. En effet, lorsqu'un utilisateur saisi mal une somme (2?5 au lieu de 2,5 par exemple), le code VBA du fichier plante.

Y aurait-il moyen de prévenir l'utilisateur que sa saisie n'est pas bonne afin qu'il puisse recommencer mais, sans plantage ?

Je joins le fichier.

Un grand merci.

vgendron · 30 Juin 2023

Hello
il suffit de faire un controle de saisie

ajoutel'évènement _keydown du textbox

VB:

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 188 Then KeyCode = 110 'remplacement de la virgule par un point
If KeyCode = 110 Then 'saisie du point
    If InStr(1, Me.TextBox4, ".") <> 0 Then 'il y a déjà un point dans le nombre
        KeyCode = 0
    End If
End If
If Not (KeyCode >= 96 And KeyCode <= 106 Or KeyCode = 110) Then 'si on tape autre chose qu'un chiffre
    KeyCode = 0
End If
End Sub

et modifie l'évènement _change

Code:

Private Sub TextBox4_Change()
'Me.TextBox4 = Replace(Me.TextBox4, ".", Application.DecimalSeparator)
'Me.TextBox4 = Replace(Me.TextBox4, ",", Application.DecimalSeparator)
Me.TextBox5 = CLng(Me.TextBox3) * CDbl(Me.TextBox4)
End Sub

halecs93 · 30 Juin 2023

vgendron à dit:

Hello
il suffit de faire un controle de saisie

ajoutel'évènement _keydown du textbox

VB:

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 188 Then KeyCode = 110 'remplacement de la virgule par un point
If KeyCode = 110 Then 'saisie du point
    If InStr(1, Me.TextBox4, ".") <> 0 Then 'il y a déjà un point dans le nombre
        KeyCode = 0
    End If
End If
If Not (KeyCode >= 96 And KeyCode <= 106 Or KeyCode = 110) Then 'si on tape autre chose qu'un chiffre
    KeyCode = 0
End If
End Sub

et modifie l'évènement _change

Code:

Private Sub TextBox4_Change()
'Me.TextBox4 = Replace(Me.TextBox4, ".", Application.DecimalSeparator)
'Me.TextBox4 = Replace(Me.TextBox4, ",", Application.DecimalSeparator)
Me.TextBox5 = CLng(Me.TextBox3) * CDbl(Me.TextBox4)
End Sub

Bonjour et merci pour votre réactivité.

Cependant.... une question. Les deux premières lignes de l'évènement change sont précédées maintenant d'un apostrophe...ce qui les transforme en commentaire. Est-ce normal ?

vgendron · 30 Juin 2023

oui, c'est normal
le remplacement de la virgule est fait dans le code du Keydown (Comme indiqué par le commentaire que j'ai écrit)

halecs93 · 30 Juin 2023

vgendron à dit:
oui, c'est normal
le remplacement de la virgule est fait dans le code du Keydown (Comme indiqué par le commentaire que j'ai écrit)

Très bien. Encore merci. Je regarderai cela ce soir.

halecs93 · 30 Juin 2023

vgendron à dit:

Hello
il suffit de faire un controle de saisie

ajoutel'évènement _keydown du textbox

VB:

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 188 Then KeyCode = 110 'remplacement de la virgule par un point
If KeyCode = 110 Then 'saisie du point
    If InStr(1, Me.TextBox4, ".") <> 0 Then 'il y a déjà un point dans le nombre
        KeyCode = 0
    End If
End If
If Not (KeyCode >= 96 And KeyCode <= 106 Or KeyCode = 110) Then 'si on tape autre chose qu'un chiffre
    KeyCode = 0
End If
End Sub

et modifie l'évènement _change

Code:

Private Sub TextBox4_Change()
'Me.TextBox4 = Replace(Me.TextBox4, ".", Application.DecimalSeparator)
'Me.TextBox4 = Replace(Me.TextBox4, ",", Application.DecimalSeparator)
Me.TextBox5 = CLng(Me.TextBox3) * CDbl(Me.TextBox4)
End Sub

Du coup, je me perds un peu.... je ne vois pas où ajouter l'évènement "keydown"

vgendron · 30 Juin 2023

halecs93 à dit:
je ne vois pas où ajouter l'évènement "keydown"

au meme endroit que l'évènement _change.. dans le meme module
au dessus, en dessous, peu importe

halecs93 · 30 Juin 2023

vgendron à dit:
au meme endroit que l'évènement _change.. dans le meme module
au dessus, en dessous, peu importe

Soit je n'ai rien compris (ce qui doit être le cas), soit il y a une erreur.... ça bogue

vgendron · 30 Juin 2023

Avec quelques ajouts pour permettre de se déplacer dans le textbox, ou supprimer des chiffres

halecs93 · 30 Juin 2023

vgendron à dit:
Avec quelques ajouts pour permettre de se déplacer dans le textbox, ou supprimer des chiffres

Merci.... je viens de tester. Mais, en mettant "2?" dans la textbox5..... bogue

vgendron · 30 Juin 2023

?? comment peux tu mettre quelque chose dans la textbox5?? elle est disable
et si c'est dans la 4, tu ne peux saisir QUE des chiffres ou une virgule (remplacée par un point) ou un point

vgendron · 30 Juin 2023

par contre.. si tu effaces le textbox 4, alors, oui, il y a un bug

corrige avec ceci

VB:

Private Sub TextBox4_Change()
'Me.TextBox4 = Replace(Me.TextBox4, ".", Application.DecimalSeparator)
'Me.TextBox4 = Replace(Me.TextBox4, ",", Application.DecimalSeparator)
If Me.TextBox3 = "" Then Me.TextBox3 = 0
If Me.TextBox4 = "" Then Me.TextBox4 = 0


Me.TextBox5 = CLng(Me.TextBox3) * CDbl(Me.TextBox4)
End Sub

halecs93 · 30 Juin 2023

Du coup, je crois avoir trouvé une solution....

Pour la textbox3 :

If Not IsNumeric(Me.TextBox3.Text) Or Not (CLng(Val(Me.TextBox3.Text)) = CDbl(Val(Me.TextBox3.Text))) Then
MsgBox "Veuillez saisir un chiffre entier pour la quantité.", vbExclamation, "Erreur de saisie"
Me.TextBox3.Text = ""
Exit Sub
End If
quantite = CLng(Val(Me.TextBox3.Text))
prixTotal = prixUnit * quantite
Me.TextBox5.Text = Format(prixTotal, "0.00")

et pour Textbox4 :

Private Sub TextBox4_Change()
If Not IsNumeric(Me.TextBox4.Text) Then
MsgBox "Veuillez saisir un nombre valide pour le prix unitaire.", vbExclamation, "Erreur de saisie"
Me.TextBox4.Text = ""
Exit Sub
End If
prixUnit = CDbl(Me.TextBox4.Text)
Me.TextBox4 = Replace(Me.TextBox4, ".", Application.DecimalSeparator)
Me.TextBox4 = Replace(Me.TextBox4, ",", Application.DecimalSeparator)
Me.TextBox5 = CLng(Me.TextBox3) * prixUnit
End Sub

vgendron · 30 Juin 2023

on est d'accord que tu n'utilises pas du tout la solution que je t'ai proposée..
et donc; bah..pourquoi poser la question...

halecs93 · 30 Juin 2023

vgendron à dit:
on est d'accord que tu n'utilises pas du tout la solution que je t'ai proposée..
et donc; bah..pourquoi poser la question...

C'est parce que je teste, en parallèle, d'autres possibilités. Mais je teste...et surtout j'essaie de comprendre les codes. Je débute

XL 2016 message d'erreur plutôt qu'erreur d'exécution

halecs93

XLDnaute Impliqué

Pièces jointes

vgendron

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

halecs93

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

Pièces jointes

vgendron

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

Discussions similaires

XL 2016 message d'erreur plutôt qu'erreur d'exécution

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency