Microsoft 365 Problème modification/saisie tarifs dans textbox

Bonjour,

Sur un listing difficile de savoir exactement ce qui coince, même si je suppute très très fortement que la valeur renvoyée dans les cellules sont des textes et non des nombres.

Comme leur type de contrôle l'indique les textBox renvoient des texte et pour excel "1" est un texte et 1 est un nombre.

Il vous faut donc convertir vos valeurs de textBox en nombre à l'aide de CDBL en remplaçant le point éventuellement présent par le séparateur de décimal du système.

Cellule.Value = cdbl(replace(TextBox8.Text,".",Application.DecimalSeparator))
N'appliquer le format monétaire QUE sur la cellule.

Remplacer le point par la virgule lors de la saisie :


Utilisez le bouton "</>" dans la barre d'édition des posts pour mettre en forme vos codes quand vous publiez un message.

Cordialement

Bonjour Roblochon,

Merci pour ce retour. Je viens de modifier mon message initial en y ajoutant mon fichier pour une meilleur compréhension. J'ai pris note de votre remarque pour mettre en forme mon code quand je publie.

Bonjour,

Voici corrigé.

Voir l'évènement Clik de la listbox.
Durant la saisie les textbox sont déformatés (absence du €) puis reformatés sur évenement After_Update.
Le formatage durant la saisie demanderait bien plus de lignes de codes pour n'apporter que des complications.
Si vous le voulez vraiment, faites une recherche sur le forum et vous trouverez des solutions, plus ou moins tarabiscotées.

Heureusement que je n'active pas les macros immédiatement lorsque je télécharge un fichier du forum.
Je n'aurait pas pu inhiber le lancement du userform sur Workbook_Open. C'est le genre de truc qui est peu apprécié des intervenants. Inhibez ce genre de choses ou signalez-les avant de publier vos fichiers.


Cordialement

Merci beaucoup pour la résolution de ce problème. Tout fonctionne parfaitement.
Encore une fois je prends note de vos remarques et je signalerai avant de poster sans faute.
Bien cordialement,