Récuperer le contenu d'une textob quand on la clique
fono22
Messages postés1Date d'inscriptionmercredi 6 juin 2007StatutMembreDernière intervention 6 juin 2007
-
6 juin 2007 à 18:16
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 2007
-
7 juin 2007 à 08:18
Hola vous tous
je voudrais sous Excel pour que quand je clique sur une textbox, la macro associée me permette de récupérer le contenu de cette textbox. Exemple, je clique sur une textbox qui contient le mot "galere" et y'a un MsgBox qui s'affiche avec "le mot sélectionné est galere". Le truc c'est que je voudrais que cette macro fonctionne avec n'importe quelle textbox.
J'ai bien essayé avec Selection.Characters.Text mais ça récupère le contenu de l'objet actif précedemment et non celui de la textbox où je clique ...
goth22
Messages postés5Date d'inscriptionvendredi 18 août 2006StatutMembreDernière intervention 8 août 20131 6 juin 2007 à 18:44
salut,
j'ai peut être un truc pour toi,
avec 2 textboxes : textbox1 et textbox2 sur ta feuilles de calcul
crée un classe dans vba (ici nommé classe1) avec :
Public WithEvents ElementSelectionné As MSForms.TextBox
Private Sub ElementSelectionné_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox (ElementSelectionné.Text)
End Sub
puis dans la page de code de ta feuille, inscrit :
Private mesobjecttextbox() As New Classe1
Private Sub Worksheet_Activate()
ReDim mesobjecttextbox(0 To 1) 'redimensionne le tableau MesObjecttextbox
Set mesobjecttextbox(0).ElementSelectionné = TextBox1 'indique quels sont les Controles qu'il faut mettre dans la classe
Set mesobjecttextbox(1).ElementSelectionné = TextBox2
End Sub