envoi de données d'une textbox vers une cellule

[Vincent]

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]

Bonjour

tu dois préciser l'objet auquel appartient ton textbox, d'où le code :

Range('I8').Value = ActiveSheet.TextBox1.Value

Bon courage

 

[jeromegmc]

Salut,

Alors 2 solutions:


Soit dans ton module1 tu écris:

Sub Bouton2_QuandClic()

Sheets('Feuil1').Range('I8').Value = Sheets('Feuil1').TextBox1.Value

End Sub

Ou alors dans ton projet VBA 'Feuil1 (Feuil1)' tu écris:

Sub Bouton2_QuandClic()

Range('I8').Value = TextBox1.Value

End Sub

A+

 

[_Thierry]

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

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

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

Bon Aprèm
[ol]@+Thierry[/ol]

 

[_Thierry]

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]

 

[Vincent]

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