XL 2016 Définir un userform en variable

Laurent97310

XLDnaute Nouveau
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:
1620901915221.png



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,
 

youky(BJ)

XLDnaute Barbatruc
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
 

Pièces jointes

  • CALENDRIERessai.xlsm
    36.5 KB · Affichages: 15

Discussions similaires

Réponses
10
Affichages
482

Statistiques des forums

Discussions
311 705
Messages
2 081 724
Membres
101 804
dernier inscrit
chefTarik