Problème texte "numerique" userform me renvoi en txt

Bonjour,

je reviens sur un fichier de facturation que j'avais finalisé avec de l'aide.

Mais voila, je rencontre un problème (ou tout est dans le titre)

du coup même si change les formats, lorsque je vide la facture, celle-ci se remet par defaut en format txt.

Auriez vous une idée ?

Par avance grand merci.

16facturation.zip (455.03 Ko)

C'est le problème des userform avec les dates et les nombres ... voici une idée d'adaptation

https://www.excel-pratique.com/fr/telechargements/utilitaires/textbox-date-numerique-no517

Salut Steelson,
j'ai importer le module de classe qui m'interressait, soit numbox.
Sauf que je n'ai pas trop compris la suite.

j'ai bien renommé mes T_reference , T_qte et T_pv en numbox1 ; numbox2 et numbox3.
Mais je cale après ... :(

voila ce que j'ai fais

Il faut copier les modules de classe contenus dans l'exemple, par un simple sélection/glissement par exemple vers ton projet

capture d ecran 328

ensuite recopier ceci en-tête du code de l'userform

' à mettre dans le code du userform en fonction du nombre de "NumBox"

Dim NumBox(1 To 2) As New ClasseNumBox   ' indiquer le nombre de NumBox
Dim DateBox(1 To 2) As New ClasseDateBox ' indiquer le nombre de DateBox

Private Sub UserForm_Initialize()
    For n = 1 To UBound(NumBox): Set NumBox(n).NumSaisie = Me("NumBox" & n): Next
    For n = 1 To UBound(DateBox): Set DateBox(n).DateSaisie = Me("DateBox" & n): Next
End Sub

et enfin, pour transférer les données vers la feuille, utilise

 = CDbl(NumBox1)

et

 = CDate(DateBox1.Value)

Je ne peux pas l'adapter moi-même à ton fichier trop complexe et dont je ne maîtrise pas toutes les fonctionnalités.

ouep j'avais enregistré et ca n'avais pas pris le module de classe.

Bon ca passe pour les pv et les qtés
mais tjrs problème pour la ref, elle affiche bien en num, mais refuse d'aller chercher la valeur correspondante ..

Oups, trop vite
ton module de classe ne gererrait pas l'alphanum ?
car j'ai des ref en "M35" ou autre

A toi aussi

N'oublie pas de clore le fil de discussion si tout est ok en cliquant sur

Oups, trop vite
ton module de classe ne gererrait pas l'alphanum ?
car j'ai des ref en "M35" ou autre

ma ligne blocante est : .Range("B" & Dl) = CDbl(NumBox1)
Tu pense qu'il est possible de jouer sur les 2 tableaux

Donc tu n'en a pas besoin, par définition le module est fait pour du numérique. C'était bien l'objet du post ...

Enlève CDbl, voire test avec isNumeric avant d'appliquer Cdbl

en fait si j'en avais besoin pour 3 useform
- la ref (mais elle p-etre en alpha) , la qté , et le pv

Bon j'ai solutionné le problème complet ;)

j'ai remplacé le numbox de reference et remis en textbox.

je suis allé dans le fichier des references et tout passé en=texte(A1;0)

Rechercher des sujets similaires à "probleme texte numerique userform renvoi txt"