textbox

[Audrey]

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]

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]

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

JC

 

[excalibur]

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]

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]

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