Textbox et correspondance à une cellule
romu95
-
mayvba -
mayvba -
Bonjour,
J'ai réalisé un document excel qui marche très très bien.
Pour faire plus sympa je veux créer un menu. Donc jusque la tout va bien mais juste à la fin c'est le drame.
J'arrive a une textbox dans laquelle je dois par exemple entrer une coordonnée pour que cela aille s'inscrire dans une cellule(X,Y) d'une page Z: aucune idée a la programmation.
Je n'y connais rien pouvez vous m'aider sur ce point ?
Si dans le meme temps vous avez un code pour faire un menu sympatique je suis preneur aussi.
A oui je pense qu'il y a un importance: je suis sur Excel 2003.
Merci
J'ai réalisé un document excel qui marche très très bien.
Pour faire plus sympa je veux créer un menu. Donc jusque la tout va bien mais juste à la fin c'est le drame.
J'arrive a une textbox dans laquelle je dois par exemple entrer une coordonnée pour que cela aille s'inscrire dans une cellule(X,Y) d'une page Z: aucune idée a la programmation.
Je n'y connais rien pouvez vous m'aider sur ce point ?
Si dans le meme temps vous avez un code pour faire un menu sympatique je suis preneur aussi.
A oui je pense qu'il y a un importance: je suis sur Excel 2003.
Merci
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
Si tu code en VBA tu peux utiliser:
Workbooks("Fichier.xls").Sheets("Page_sur_laquelle_tu_veux_copiert").Cells(x, y) = Module.Nom_textbox.Value
Module est le nom du module sous Excel où apparait ta textbox.-
Je te remercie pour ta réactivité mais je n'arrive pas à appliquer ta programmation.
J'ai module2 dans lequel il y a :
Sub Outil_de_dimensionnement()
UserForm2.Show
End Sub
Je rentre donc dans mon userform2, et je double clic sur ma première text box pour rentre le code suivant:
Private Sub TextBox1_Change()
Workbooks("Création_de_l'outil.xls").Sheets("Géométrie_du_cadre").Cells(C, 6) = Module2.Nom_textbox.Value
End Sub
Je me doute que l'erreur doit être à la fin. Mais bon ... impossible de comprendre.
Dans le meme temps sur ce userform 2 je voudrais ajouter un bouton ok pour que les nombres que j'ai entré soit validé et que je revienne à ma userform1.
Encore merci pour la réponse.
-
-
tu as ecrit:
Private Sub TextBox1_Change()
Workbooks("Création_de_l'outil.xls").Sheets("Géométrie_du_cadre").Cells(C, 6) = Module2.Nom_textbox.Value
End Sub
Mais tu dois remplacé Nom_textbox par TextBox1 c'est à dire le nom de ta textbox.
