VBA CRITIQUE
Bonsoir Forum,
Je m'essai au VBA, mais sans véritable succès
J'ai créé un Userform pour faciliter mes saisies et ainsi éviter des erreurs lors de longues saisies répétitives.
Mais j'ai un Pb de retranscription les nombres sont considérés comme du texte et non une valeur? Comment faire ?
Ci-jointProjet
Dans la feuille ALT+F11 - F5
A+
Salut Callou et le forum
Regarde du côté de CDBL ou CDEC
CDbl(TextBox) pour les nombres à virgules
CDec(Textbox) pour les nombres entiers
Mytå
Merci Mytå,
Mais je vois pas pas où saisir ce type de code CDbl(TextBox) Ou CDec(TextBox) ?
Range("A65536").End(xlUp).Offset(1, 0).Value = Désignation
Range("D65536").End(xlUp).Offset(1, 0).Value = Entrée
Range("E65536").End(xlUp).Offset(1, 0).Value = Puht
Range("G65536").End(xlUp).Offset(1, 0).Value = Pvte
Range("J65536").End(xlUp).Offset(1, 0).Value = Dlc
Ou est-ce au niveau des propriétés de la zone Userform ? Dans ce cas il faut peut-être ajouter autre chose comme code d'execution ?
Callou
Re Callou et le forum
Voyons un petit effort
Range("D65536").End(xlUp).Offset(1, 0).Value = CDbl(Entrée)
Mytå
Merci Mytå,
Je suis trop nul
Plus je regarde des exemples et moins je comprend
Merci encore
A+ Callou
Faut pas te décourager Callou,
On à tous commencé au pied de l'échelle
Continue de perséverer et poser des questions au besoin,
tu auras toujours quelqu'un(e) pour te répondre
Bonne fin de journée
Mytå_Qc
Maintenant j'ai un problème avec le "." et "," dans la fonction CDBL.
Comment obtenir une virgule en décimal au lieu du point ?
Callou
Re Callou et le forum
Remplacement lors de l'écriture, pour VBA le séparateur par défaut est le point
Range("D65536").End(xlUp).Offset(1, 0).Value = CDbl(Val(Replace(Entrée, ",", ".")))
Mytå
Merci Mytå,
Je me demande encore comment on fait pour obtenir ce genre de raisonnement qui peut paraitre simple et logique
Je ne peux rien rajouter de plus.
Encore un grand merci
Bonsoir Forum !