Petite question textbox

Emmanuel31100 · 9 Août 2010

Bonjour le forum,

Petite question : Comment fait - on pour saisir dans une cellule une partie seulement d'un textbox intégré à un userform ?

J'ai créé un userform avec plusieurs textboxs dont un : 'CODE POSTAL'. Lors de la saisie dans ce textbox (obligatoirement numérique et limitée à 5 chiffres), l'utilisateur est amené à taper un code du type : "31100" (par ex).

J'aimerais que cette valeur soit automatiquement saisie dans une cellule avec le reste des textboxs liés à l'adresse (ça j'ai réussi ) (ex : 01 rue dupuis 31100 Toulouse). Mais j'aimerais aussi que dans une autre cellule les deux premiers chiffres du code postal s'affichent! (ça je n'y arrive pas )

Quelqu'un aurait-il la solution?

Un grand merci d'avance!

Emmanuel

joss56 · 9 Août 2010

Re : Petite question textbox

bonjour,

comme ça peut-être:

cellule=left(textbox,2)

A+

jocelyn

Robert · 9 Août 2010

Re : Petite question textbox

Bonjour Emmanuel, bonjour le forum,

Essaie comme ça :

Code:

Range(ta_cellule).Value = Left(TextBox1.Value, 2)

Edition :

Bonjour Joss on s'est croisé...

Pierrot93 · 9 Août 2010

Re : Petite question textbox

Bonjour Emmanuel,

essaye ainsi, si j'ai bien compris :

Code:

Range("A1").Value = Left(TextBox1, 2)

bon après midi
@+

Edition : bonjour Joss, Robert

phlaurent55 · 9 Août 2010

Re : Petite question textbox

Bonjour,

avec:

ta cellule =Left(Str(TextBox1.Value),2)

à+

Philippe

Edit: 4 réponses en 2 minutes, c'est une collision en chaine
bonjour Joss, Robert , pierrot

Emmanuel31100 · 9 Août 2010

Re : Petite question textbox

Merci beaucoup à tous les 4 pour votre contribution et votre rapidité (impréssionnante)!

J'ai essayé la méthode de Phil qui fonctionne:

cells(x,y) =Left(Str(TextBox1.Value),3)

Robert · 9 Août 2010

Re : Petite question textbox

Bonjour le fil, bonjour le forum,

Heu... Il me semble qu'avec ta formule tu vas avoir trois chiffres...

Petite question textbox

Emmanuel31100

XLDnaute Nouveau

joss56

XLDnaute Accro

Robert

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Emmanuel31100

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Discussions similaires