XL 2016 Définir un userform en variable

[Laurent97310]

Bonjour à tous,

Je bloque sur un sujet. J'ai créé un userform de recherche (d'articles) appelé "Search_Article" que j'aimerais utiliser avec d'autres userforms. Pour celà j'ai commencé par mettre dans un module:

Public UFName As Object, UFtextbox As String

pour transformer en variable le nom de l'userform et la textbox qui viendra récupérer le résultat de la recherche.

Dans mon userform qui va appeler le userform de recherche j'ai mis:

Private Sub Com_Search_Article_Button_Click()
UFName = Me.Name
UFtextbox = "M_Article_Combobox"
UFmessage = "Sélectionnez un article depuis la liste"
Search_Article.Show
End Sub

Dans ma recherche:

Private Sub CommandButton1_Click()

If ListBox1.ListIndex = -1 Then
MsgBox UFmessage
Else
UFName.Controls(UFtextbox) = ListBox1.List(ListBox1.ListIndex, 0)
UFName.Controls(UFtextbox).SetFocus

Unload Me
End If
End Sub

J'ai ensuite l'erreur suivante:

Je pense que je définis mal la variable de l'userform UFName J'ai essayé de chercher sur les différents forums mais en vain...


Merci d'avance pour votre aide!!

Laurent,

 

[Laurent97310]

Je viens de regarder, super clair, je vais le garder bien au chaud pour la suite de mon projet . Merci!!

 

[ChTi160]

re
Ok n'hésite pas si besoin !
jean marie

 

[youky(BJ)]

Bonjour à tous,
Spécialement à Jean Marie.
Je n'avais pas trouvé la solution sans faire de nombreuses lignes de code sur un Dateur(calendrier)
Je dois mettre des dates sur plusieurs textbox de différent userform.
Avec ton truc ca marche nickel.
Ci joint mon fichier essai
Bruno

 

[ChTi160]

Re
Bonsoir Bruno
Super ! c'est à ca que sert le Forum , partager avec le plus grand Nombre Lol
Bonne fin de Journée
jean marie