coller valeur textbox

[gigi71850]

Bonjour,
Je cherche comment faire pour coller la valeur d'une textbox et lui ajouter 2 lettres devant (BI)

l'utilisateur doit entrer son numéro de bon intervention (bi) dans la textbox et il faut que la valeur se colle dans une cellule et lui ajouter les valeur BI devant ce numéro

Merci

 

[Hulk]

Re : coller valeur textbox

Hello,

Jean-Marcel n'a pas tort, pas beaucoup de précisions, néanmoins je te propose le fichier joint... Inspires-en toi.

Cdt, Hulk.

Oups le requin, salut à toi.

Petit gag nul au passage :

Quelle est la différence entre un requin un rouquin ?

Le requin a les dent de la mer et le rouquin a les cheveux du père !

Ouais j'sais elle est nulle

Bonne soirée !

 

[gigi71850]

Re : coller valeur textbox

je vous donne ma ligne de commande

Private Sub CommandButton2_Click() 'bouton valider
If OptionButton1 = True Then
Sheets("FEUIL1").Select
ActiveCell.Value = TextBox2.Text 'colle valeur de la case n° contrat
Else
ActiveCell.Value = TextBox3.Text 'colle valeur n°BI
End If
Sheets("feuil1").Select 'retourne sur feuil1
Unload Me 'ferme l userform

La textbox concerné et la textbox3 qui est valider par le bouton2

Merci

 

[gigi71850]

Re : coller valeur textbox

Merci Jean-Marcel

 

[Hulk]

Re : coller valeur textbox

Re,

Petite suggestion,

Sauf erreur, que tu appelles l'USF depuis la feuille1 ou d'une autre, tu peux chouter le dernier Select..

Sheets("feuil1").Select

Puisque tu l'a sélectionne au début du code.

D'ailleurs, si tu appelles l'UserForm que depuis la feuille1, tu peux aussi chouter le premier..

Sheets("FEUIL1").Select

Cdt, Hulk.