textbox

Audrey · 19 Décembre 2005

Bonjour,
je viens de me lancer dans la 'conception' d'un petit programme sous excel mais je n'y connais pas encore grand chose et je suis bloquée. J'ai créé un userform dans lequel se trouvent 5 textbox, et je voudrais que lorsque je click sur mon bouton 'OK' le texte qui se trouve dans chaque textbox s'affiche dans des cellules prédéfinie à l'avance (en locurence B13,C13, D13, E13, F13 dans mon programme). Si je pouvais avoir une réponse rapide ce serai sympa. Merci d'avance.

JC de Lorient · 19 Décembre 2005

bonjour Audrey

avec ce bout de code qu'il te faudra adapter sans doute ça devrait marcher

Private Sub CommandButton1_Click()
Sheets('Mafeuille').Activate
Range('B13') = textbox1.Value
Range('C13') = textbox2.Value
Range('D13') = textbox3.Value
Range('E13') = textbox4.Value
Range('B13') = textbox5.Value
Range('F13') = textbox6.Value

End Sub

JC de Lorient · 19 Décembre 2005

Re oops l'erreur
tu auras bien compris qu'il s'agit de B, C, D, E, F ,G

JC

excalibur · 19 Décembre 2005

bonjour audrey jc de lorient le forum si tu as baucoup de textbox tu peus faire un boucle sur tes controls textbox salutations [file name=controls.zip size=12421]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/controls.zip[/file]

excalibur · 19 Décembre 2005

rebonjour repondu trop rapidement das ton cas c est l inverse que tu veus donc Private Sub valider_Click()
Dim i As Byte
For i = 1 To 5
Feuil1.Range('b13:f13').Cells(1, i) = Controls('textbox' & i)
Next i
End Sub'salutations

Audrey · 19 Décembre 2005

Merci tout le monde les gens, CA MARCHE!!!!

textbox

Audrey

Guest

JC de Lorient

Guest

JC de Lorient

Guest

excalibur

XLDnaute Impliqué

Pièces jointes

excalibur

XLDnaute Impliqué

Audrey

Guest

Discussions similaires