sélectionner un userform par VBA

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Avril 2018

• #2

Bonjour Benoist,

If [A1]=1 Then
UserForm1.Show
Else
UserForm2.Show
End If

à+
Philippe

 

Vote positif 0 Vote négatif

B

Benoist28200

XLDnaute Nouveau

• 14 Avril 2018

• #3

Merci Philippe mais je ne veux pas lancer l'userform mais juste récupérer le nom de celui ci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Avril 2018

• #4

Bonjour Benoist28200, JHA,

Benoist28200 à dit:

Merci Philippe mais je ne veux pas lancer l'userform mais juste récupérer le nom de celui ci

Cliquez pour agrandir...

Placez ce code dans un module standard :

Code:

Function NomUSF(n As Integer) As String
Dim c As Object, i As Integer
For Each c In ThisWorkbook.VBProject.VBComponents
    If c.Type = 3 Then
        i = i + 1
        If i = n Then NomUSF = c.Name: Exit For
    End If
Next
If i = 0 Then NomUSF = "Il n'y a pas d'UserForm" 'facultatif
End Function

Entrez en A1 la valeur 1 ou 2 ou 3 etc... et en B1 la formule =NomUSF(A1)

Nota : pour que l'accès au VBAProject soit possible par macro il faut avoir coché l'option :

- sur Excel 2003 et versions antérieures Faire confiance au projet Visual Basic (menu Outils-Macro-Sécurité-Editeurs approuvés)

- sur Excel 2007 et versions suivantes Accès approuvé au modèle d'objet du projet VBA (onglet Fichier-Options-Centre de gestion de la confidentialité-Paramètres...-Paramètres des macros).

A+

 

Dernière édition: 15 Avril 2018

Vote positif 0 Vote négatif

B

Benoist28200

XLDnaute Nouveau

• 14 Avril 2018

• #5

Un grand merci @job75

 

Vote positif 0 Vote négatif

A

A-Jelil

XLDnaute Nouveau

• 7 Novembre 2021

• #6

Bonjour !
Et si je souhaitais faire quelque chose comme :
If Userform1 (est actif) Then
????????
Elseif Userform2 (actif) Then
?..?..?..?..?
Etc. .
....
End if
Que devrais- je faire, s'il vous plaît ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Novembre 2021

• #7

Bonsoir A-Jelil, bienvenue sur XLD,

Créez une nouvelle discussion car votre question n'a rien à voir avec le sujet de ce fil.

Et joignez le fichier avec vos UserForms !

A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Novembre 2021

• #8

bonsoir a tous
ou est l'intéret si le nom des userforms est connu

VB:

Sub test()
mesusf = Array(False, "UserForm1", "UserForm2", "UserForm3")
MsgBox mesusf([A1].Value)
End Sub

pareil 1 ou 2 ou 3

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2021

• #9

Bonjour à tous,

Pour connaître le nom de l'UserForm actif créer dans Module1 la variable Public UsfActif :

VB:

Public UsfActif As String 'mémorise la variable

Sub User1()
UserForm1.Show 0 'non modal
End Sub

Sub User2()
UserForm2.Show 0 'non modal
End Sub

Sub Test()
MsgBox IIf(UserForms.Count, UsfActif, "Aucun Useform n'est ouvert")
End Sub

Et dans le code de chaque UserForm placer la macro :

VB:

Private Sub Userform_Activate()
UsfActif = Me.Name
End Sub

A+

 

Vote positif 0 Vote négatif