Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Backspace et double point engendre l'erreur 13 sur Listbox

  • Initiateur de la discussion Initiateur de la discussion drop91
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

drop91

XLDnaute Junior
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.
 

Pièces jointes

Dernière édition:
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
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…