Contenu TextBox vers cellule

[kadelmalin]

Bonjour chers amis,
Je voudrais sauvegarder le contenu d'un Textbox Activex dans une cellule. Je joins un fichier teste pour le besoin.
Merci pour votre aide.

 

[laetitia90]

Re : Contenu TextBox vers cellule

bonsoir kadelmalin 🙂
brut comme cela

Sub Ouvrir()
[j5] = ActiveSheet.OLEObjects("TextBox1").Object
End Sub

 

[Modeste]

Re : Contenu TextBox vers cellule

Bonsoir kadelmalin,

Tu as cherché longtemps après une solution?
Aurais-tu testé

Sub test()
    Range("J5").Value = Me.TextBox1.Text
End Sub

... à placer dans la fenêtre de code de la "Feuil1"

Oups salut leti ... pas rafraîchi 😱

 

[cathodique]

Re : Contenu TextBox vers cellule

Bonjour,

Moi j'ai testé. Le code de Laetitia90 fonctionne. Par contre le code de Modeste plante sur Me avec le message:"Utilisation incorrecte du mot clé Me".

Bon week-end à tous.

 

[kadelmalin]

Re : Contenu TextBox vers cellule

Bonjour,
Merci à vous tous, j'ai pu débloquer mon Textbox grâce à vous. Sans être gourmand, comment initialiser le TextBox parce qu'il garde la trace de la saisie précédente quand je rouvre le classeur ?

 

[kadelmalin]

Re : Contenu TextBox vers cellule

Bonjour chers amis,
J'ai pu trouver la solution c'est celle-ci = ActiveSheet.OLEObjects("TextBox1").Object.Value = ""
Merci de votre aide et bonne journée.

 

[Modeste]

Re : Contenu TextBox vers cellule

Re-bonjour et bonsoir,

Un peu tard pour répondre, mais si cathodique repasse par ici :

... à placer dans la fenêtre de code de la "Feuil1"

... tu es certain que le code n'était pas dans un module!?

 

[cathodique]

Re : Contenu TextBox vers cellule

... tu es certain que le code n'était pas dans un module!?

Désolé, je n'avais pas fait attention. en effet, j'avais mis le code dans un module standard. D'autant plus que notre ami kadelmalin avait masqué les onlgets.

Ton code fonctionne parfaitement s'il est mis dans le module de la feuille.

Bon week-end à tous.

 

[kadelmalin]

Re : Contenu TextBox vers cellule

Salut,
C'est sûr le code n'était pas dans la feuille mais dans le module. Inséré dans la feuille_1 il fonctionne correctement. Mais merci quand même de votre intervention.