Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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:



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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…