XL 2013 Récupération contrôle active X dans un module

[David73]

Bonjour à tous,
j'ai une question assez simple mais dont je ne trouve pas la solution.
J'ai un contrôle ActiveX (zone de texte) dans une feuille Excel ; il se nomme "TextBox1"

Je souhaiterais récupérer directement la valeur de ce contrôle (TextBox1.Value) dans un module VBA ou je fais des calculs.
Mais je ne vois comment faire ?
Merci beaucoup pour votre aide

 

[Dranreb]

Bonjour.
Ne pouvez vous la transmettre en argument à la procédure invoquée ?

 

[David73]

Je cherche la syntaxe ; comme ci-dessous, ça ne marche pas

Sub Calculs(Textbox1)

    MsgBox Textbox1.Value

End Sub

 

[jmfmarques]

Bonjour
Une "zone de texte" n'est pas un activex. Je suppose donc qu'il s'agitb d'une contrôle Textbox.

regarde ce que fait ceci (où textbox1 est le nom donné à la textbox) :
dans un module standard

Sub toto(ctl As MSForms.TextBox)
  MsgBox ctl.Name
End Sub

et l'appel, ainsi, de cette procédure :

toto TextBox1

 

[David73]

Je confirme que j'ai fait Insertion-Contrôle ActiveX - Zone de texte. ; et elle porte le nom TextBox1

Pour ce qui est de ton code, je n'arrive malheureusement pas à le faire fonctionner...

 

[Dranreb]

Essayez en ajoutant ByVal devant le paramètre.
(À la base TextBox1 n'est pas une TextBox mais un OLEObject, puisqu'il nest pas dans le milieu naturel d'une TextBox qu'est un UserForm et qu'il lui faut donc un objet intermédiaire support)
Si ça ne va toujours pas, à l'appel précisez en plus TextBox1.Control.
Si pas accepté OLEObjects("TextBox1").Control
Notez que si la Sub n'a besoin que de sa valeur, transmettez celle ci, ce sera plus simple.
(Toujours ByVal pour ne pas s'offrir comme cible au Type d'argument ByRef incompatible)

 

[David73]

Merci beaucoup pour vos réponses.

Du coup j'ai simplement récupéré la valeur comme ci-dessous :

Constante = Sheets("Feuil1").TextBox1.Value

 

[jmfmarques]

Bonjour
le code que j'avais montré supposait que son appel était fait depuis le module de code de la feuille contenant la textbox concernée.
il est tout simplement clair que si l'appel se fait depuis un autre module de code, il est alors nécessaire de préciser le conteneur (ici une feuille de calcul) de la textbox concernée. (B.A.BA)

 

[David73]

Ok désolé pour le manque de clarté de ma part....