petit prob : des lettres dans formule de calcul

[zouille]

salut forum

une petite question technique :
Dans mon projet ( creation de devis) j'ai un userform ou j'indique Article - quantite et prix unitaire .
En ce qui concerne la 'quantitée' la valeure est renvoyé dans une cellule ( colone qtt du devis) utilisé par la case 'Total Ht' pour le calcul ( qtt*Prix unitaire = prix total HT) Malheureusement j'ai oublié que je dois specifier ( dans mon devis) la nature de la quantitée ( M² ou Ml ou M3 .....)
Donc j'aimerais l'inscrire dans le textbox prevu pour la qtt alors ma question est de savoir si il existe un moyen de l'ignorer pour le calcule des formules car il va apparaitre dans la case qtt du devis et les cellule vont renvoyer une erreur du style : #VALEUR

merci bien

mon projet :

devis

 

[bebere]

bonsoir Zouille
dans le module valider_click
j'ai ajouté cette ligne

Cells(i, 8) = TextBox1 * Left(TextBox2, 2)
Prix unitaire * quantité
à bientôt

 

[bebere]

Zouille
si tu as des quantités plus grande que 99,tu changes Left(TextBox2, 2) par
Left(TextBox2,Len(TextBox2) - 2)
à bientôt

 

[zouille]

bebere écrit:

Zouille
si tu as des quantités plus grande que 99,tu changes Left(TextBox2, 2) par
Left(TextBox2,Len(TextBox2) - 2)
à bientôt

merci beaucoup, est ce que ca marchera avec plus de 3 ou 4 chiffres ?

Je pense que je doit effacer mes formules dans la colonne Prix Total HT ?

merci

 

[bebere]

bonjour Zouille
oui tu peux effacer les formules

oui si tu remplaces cette ligne
Cells(i, 8) = TextBox1 * Left(TextBox2, 2)
par celle-çi
Cells(i, 8) = TextBox1 * Left(TextBox2,Len(TextBox2) - 2)

à bientôt

 

[zouille]

super cool
merci

et bonne fetes a tous

 

[zouille]

recoucou

Alors apres plusieurs test , j'ai vu que si je ne met pas d'unitée (m² ou ml ou m3 ......) il y a message d'erreur (debogage)

Comment faire ?

merci

 

[bebere]

bonjour Zouille
un petit cadeau de Noël,bonnes fêtes

If IsNumeric(TextBox2) Then
Cells(i, 8) = TextBox1 * TextBox2 'Cells(i, 8)
Else: Cells(i, 8) = TextBox1 * Left(TextBox2, Len(TextBox2) - 2)
End If
à bientôt