Backspace et double point engendre l'erreur 13 sur Listbox

[drop91]

Bonjour à tous,
suite à mon petit fichier permettant d'avoir les principales informations lié à un crédit immo, je suis confronté à 2 problèmes :

- Si dans une listbox j'appuie par exemple sur 1, puis sur le backspace, j'ai l'erreur 13 qui apparait (lié certainement à la formule (Range("f4") = TextBox1 * 1 => qui fixe la cellule en nombre)

- Si j'appuie 2 fois sur point ou virgule, re-erreur 13.

Que peut-on faire pour corriger ces bugs, si vous avez des solutions je suis plus que preneur.

En tout cas merci d'avance.

 

[pierrejean]

Re : Backspace et double point engendre l'erreur 13 sur Listbox

Bonjour drop91

A tester:

Private Sub textBox1_Change()
 If TextBox1 <> "" Then Range("f4") = TextBox1 * 1                      'fixe le contenu de la cellule en nombre
Call affiche
End Sub

 

[drop91]

Re : Backspace et double point engendre l'erreur 13 sur Listbox

Super, merci, maintenant plus de problème avec le backspace
reste le problème de la double virgule ou point à résoudre.

 

[pierrejean]

Re : Backspace et double point engendre l'erreur 13 sur Listbox

Re

Private Sub textBox1_Change()
 If IsNumeric(TextBox1) Then Range("f4") = TextBox1 * 1                      'fixe le contenu de la cellule en nombre
Call affiche
End Sub

 

[drop91]

Re : Backspace et double point engendre l'erreur 13 sur Listbox

Le résultat est plus que parfait, sachant que même si l'on inscrit par erreur plusieurs virgules, il n'y a que la première qui est comptabilisée, et tout ceci sans me mettre de message d'alarme.

Merci encore.