V Vincent Guest 27 Février 2006 #1 Bonjour Comment doit on s'y prendre pour envoyer des données contenues dans une textbox vers une cellule, dans mon exemple la cellule I8 Merci d'avance Vincent [file name=Essaienvoi.zip size=8607]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essaienvoi.zip[/file] Pièces jointes Essaienvoi.zip 8.4 KB · Affichages: 20
Bonjour Comment doit on s'y prendre pour envoyer des données contenues dans une textbox vers une cellule, dans mon exemple la cellule I8 Merci d'avance Vincent [file name=Essaienvoi.zip size=8607]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essaienvoi.zip[/file]
Jacques87 XLDnaute Accro 27 Février 2006 #2 Bonjour tu dois préciser l'objet auquel appartient ton textbox, d'où le code : Range('I8').Value = ActiveSheet.TextBox1.Value Bon courage Vote positif 0 Vote négatif
Bonjour tu dois préciser l'objet auquel appartient ton textbox, d'où le code : Range('I8').Value = ActiveSheet.TextBox1.Value Bon courage
J jeromegmc XLDnaute Occasionnel 27 Février 2006 #3 Salut, Alors 2 solutions: Soit dans ton module1 tu écris: Code: Sub Bouton2_QuandClic() Sheets('Feuil1').Range('I8').Value = Sheets('Feuil1').TextBox1.Value End Sub Ou alors dans ton projet VBA 'Feuil1 (Feuil1)' tu écris: Code: Sub Bouton2_QuandClic() Range('I8').Value = TextBox1.Value End Sub A+ Vote positif 0 Vote négatif
Salut, Alors 2 solutions: Soit dans ton module1 tu écris: Code: Sub Bouton2_QuandClic() Sheets('Feuil1').Range('I8').Value = Sheets('Feuil1').TextBox1.Value End Sub Ou alors dans ton projet VBA 'Feuil1 (Feuil1)' tu écris: Code: Sub Bouton2_QuandClic() Range('I8').Value = TextBox1.Value End Sub A+
_Thierry XLDnaute Barbatruc Repose en paix 27 Février 2006 #4 Bonjour Vincent, le Forum Ton problème est assez simple... Il démontre bien que le Statement en Top de Chaque Module : 'Option Explicite' a une utilité flagrante... Si tu avais mis cette option, tu aurais eu immédiatement le message d'erraur suivant : 'Compile Error / Variable Not Defined' Donc ce qui manque depuis un Module Public (Module1) c'est l'emplecment de ce contrôle TextBox1 comme suit : Option Explicit Sub Bouton2_QuandClic() Range('I8') = Sheets('Feuil1').TextBox1 End Sub Cliquez pour agrandir... Par ailleurs, l'objet 'Range' sera irrémédiablement sur la Feuille active... Pour y remédier et dans le même principe que ci-dessus : Sub Bouton2_QuandClic() Sheets('Feuil1').Range('I8') = Sheets('Feuil1').TextBox1 End Sub Cliquez pour agrandir... Et tant qu'on y est et dans la foulée, un petit With, évitera à VBA de faire instance deux fois à la même Feuille comme suit : Option Explicit Sub Bouton2_QuandClic() With Sheets('Feuil1') .Range('I8') = .TextBox1 End With End Sub Cliquez pour agrandir... Bon Aprèm [ol]@+Thierry[/ol] Vote positif 0 Vote négatif
Bonjour Vincent, le Forum Ton problème est assez simple... Il démontre bien que le Statement en Top de Chaque Module : 'Option Explicite' a une utilité flagrante... Si tu avais mis cette option, tu aurais eu immédiatement le message d'erraur suivant : 'Compile Error / Variable Not Defined' Donc ce qui manque depuis un Module Public (Module1) c'est l'emplecment de ce contrôle TextBox1 comme suit : Option Explicit Sub Bouton2_QuandClic() Range('I8') = Sheets('Feuil1').TextBox1 End Sub Cliquez pour agrandir... Par ailleurs, l'objet 'Range' sera irrémédiablement sur la Feuille active... Pour y remédier et dans le même principe que ci-dessus : Sub Bouton2_QuandClic() Sheets('Feuil1').Range('I8') = Sheets('Feuil1').TextBox1 End Sub Cliquez pour agrandir... Et tant qu'on y est et dans la foulée, un petit With, évitera à VBA de faire instance deux fois à la même Feuille comme suit : Option Explicit Sub Bouton2_QuandClic() With Sheets('Feuil1') .Range('I8') = .TextBox1 End With End Sub Cliquez pour agrandir... Bon Aprèm [ol]@+Thierry[/ol]
_Thierry XLDnaute Barbatruc Repose en paix 27 Février 2006 #5 Bonjour Jérome, re Gérard Pardon je ne vous avais pas vu, coup de fil inopiné et pas raffraichi ! Comme ça Vincent aura la totale ! [ol]@+Thierry[/ol] Vote positif 0 Vote négatif
Bonjour Jérome, re Gérard Pardon je ne vous avais pas vu, coup de fil inopiné et pas raffraichi ! Comme ça Vincent aura la totale ! [ol]@+Thierry[/ol]
V Vincent Guest 27 Février 2006 #6 Merci beaucoup à vous tous Comme vous me l'avez si bien signalé j'avais bien oublié de présiser dans quel objet est ma textbox. Merci beaucoup. Vincent Vote positif 0 Vote négatif
Merci beaucoup à vous tous Comme vous me l'avez si bien signalé j'avais bien oublié de présiser dans quel objet est ma textbox. Merci beaucoup. Vincent