Backspace et double point engendre l'erreur 13 sur Listbox

drop91 · 1 Février 2015

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 · 1 Février 2015

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

Bonjour drop91

A tester:

Code:

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

drop91 · 1 Février 2015

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 · 1 Février 2015

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

Re

Code:

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 · 1 Février 2015

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.

Backspace et double point engendre l'erreur 13 sur Listbox

drop91

XLDnaute Junior

Pièces jointes

pierrejean

XLDnaute Barbatruc

drop91

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

drop91

XLDnaute Junior

Discussions similaires