recopie valeur textbox dans cellule

S

Sebb

Guest

• 19 Mai 2004

• #2

Salut

pour écrire sur la feuille "fiche de prêt" il suffit de mettre ceci

Sheets("Feuille de prêt").Activate

euh après je te comprends pas, tu veux afffecter des valeurs à des cellules qui contiennent déjà quelquechose que tu veux garder ?
Que veux tu faire concretement ?
Tu veux les concaténer ? ex: tu as A1= Bonjour et ta textbox = Bye
tu veux retrouver "Bonjour Bye" dans ta cellule ???

A+

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 19 Mai 2004

• #3

Bonjour,

Tous simplement comme ceci:


with Sheets ("Fiche de prêt")
.Range("A7").Value = TextBox1.Value
.Range("C7").Value = TextBox2.Value
.Range("F7").Value = TextBox3.Value
.Range("H7").Value = TextBox4.Value
end with


Bonne journée

@Christophe@

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 19 Mai 2004

• #4

Bonjour

essaies comme ceci

Private Sub CommandButton1_Click()

Sheets ("Fiche de prêt").Range("A7") = Sheets ("Fiche de prêt").Range("A7") & TextBox1.Value
Sheets ("Fiche de prêt").Range("C7") = Sheets ("Fiche de prêt").Range("C7") & TextBox2.Value
Sheets ("Fiche de prêt").Range("F7") = Sheets ("Fiche de prêt").Range("F7") & TextBox3.Value
Sheets ("Fiche de prêt").Range("H7")= Sheets ("Fiche de prêt").Range("H7") & TextBox4.Value
Unload Me
UserForm2.Show
End Sub

Bon courage

Pascal

 

Vote positif 0 Vote négatif

B

b.sounds

Guest

• 19 Mai 2004

• #5

Merci à tous,

ça marche tout à fait!!

Oui Sebb c'est ce que je veux faire conserver ce qu'il y a déjà dans mes cellules.

b.sounds

 

Vote positif 0 Vote négatif

B

b.sounds

Guest

• 19 Mai 2004

• #6

Euh Sebb ta soluce ne marche pas:

Private Sub CommandButton1_Click()
Sheets("Feuille de prêt").Activate
Range("A7").Value = TextBox1.Value
Range("C7").Value = TextBox2.Value
Range("F7").Value = TextBox3.Value
Range("H7").Value = TextBox4.Value
Unload Me
UserForm2.Show
End Sub

Par contre les 2 autres marchent

Merci

 

Vote positif 0 Vote négatif

B

b.sounds

Guest

• 19 Mai 2004

• #7

J'ai trouvé:

.Range("A7").Value = .Range("A7").Value + TextBox1.Value

Par contre, le contenu de mes cellules est souligné seulement je veux que ce que j'insère ne le soit pas.
ex: A7= Nom: , textbox1=Durand

et en sortie je veux "Nom (souligné): Durand (non souligné)"

Merci

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 20 Mai 2004

• #8

Bonsoir,

Dans une cellule, tu ne peux pas avoir plusieurs formats différents

Souligné + Non Souligné

Normal + Gras

Police 10Pt + Police 20Pt

C'est soit tout souligné ou rien et tout normal ou tout gras etc...

@+

Ronan

 

Vote positif 0 Vote négatif

B

b.sounds

Guest

• 21 Mai 2004

• #9

Merci bien Ronan!!

Au moins ça m'évitera de chercher trop longtemps!!!!

b.sounds

 

Vote positif 0 Vote négatif