format numéro CAS dans une textbox userform

[cheriyo]

bonjour, je voudrai savoir si c'est possible de changer les format d'affichage dans les texbox des userform. Je dois appliquer ce format à la cellule ######-##-# (format numéro cas en chimie)
merci de votre réponse et votre forum est super

 

[job75]

Re : format numéro CAS dans une textbox userform

Bonsoir cheriyo,

Pas bien clair car ######-##-# ce n'est pas ce qu'on appelle un format, ni dans une feuille de calcul ni en VBA.

Si les # doivent représenter des chiffres, vous pouvez par contre faire un test de contrôle :

If Not TextBox1 Like "######-##-#" Then _
  MsgBox "La TextBox doit être au format CAS", 48: Exit Sub

A+

 

[Modeste]

Re : format numéro CAS dans une textbox userform

Bonsoir cheryo, job75,

J'ai des doutes en lisant la réponse de job ... j'aurais dit que

TextBox1 = Format(Sheets(1).Range("a2"), "#####0-00-0")

ou

TextBox1 = Format(Sheets(1).Range("a2"), "000000-00-0")

aurait donné le résultat demandé ... ou alors je n'ai pas compris la question?