Discussion :

[Kestion100]

Bonjour,
Je souhaiterais pouvoir boucler sur tous les userform de tous les classeurs afin de pouvoir centrer les userform visibles.

Le code que j'utilise me renvoie systématiquement "Faux" pour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBA.UserForms.Add(sVariable).Visible

Le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub UsfOuverts()
 
Dim Wb As Workbook
For Each Wb In Application.Workbooks
 
Debug.Print Wb.Name
Debug.Print Windows("OutilsRechercheetSuivi2.xlsm").Visible
 
 
If ActiveWorkbook.Name = "OutilsRechercheetSuivi2.xlsm" And Windows("OutilsRechercheetSuivi2.xlsm").Visible = "Faux" Then
 
Windows("OutilsRechercheetSuivi2.xlsm").Visible = True
 
End If
 
 
Wb.Activate
 
Dim usf As Object
 
For Each usf In ThisWorkbook.VBProject.VBComponents
 
 
Debug.Print usf.Type
 
If usf.Type = 3 Then ' si c est un userform ( donc ni une feuille ni un module ni thisworkbook )
 
Debug.Print usf.Name
 
'End If
'
sVariable = usf.Name
 
Debug.Print ActiveWorkbook.Name & " " & sVariable & " " & VBA.UserForms.Add(sVariable).Visible
 
Application.StatusBar = ActiveWorkbook.Name & " " & sVariable & " " & VBA.UserForms.Add(sVariable).Visible
 
UserForm10.Label23.Caption = Application.StatusBar
 
 
If VBA.UserForms.Add(sVariable).Visible = "Vrai" Then
 
VBA.UserForms.Add(sVariable).StartUpPosition = 2
 
End If
 
End If
 
Next usf
 
If ActiveWorkbook.Name = "OutilsRechercheetSuivi2.xlsm" Then
 
Windows("OutilsRechercheetSuivi2.xlsm").Visible = False
 
End If
 
Next Wb
 
End Sub

Est-ce que quelqu'un voit quelque chose.
MERCIE BEAUCOUP D'AVANCE!!!!

[Nain porte koi]

Hello,

sans aller très loin, Windows("OutilsRechercheetSuivi2.xlsm").Visible = "Faux" et VBA.UserForms.Add(sVariable).Visible = "Vrai" sont des erreurs car c'est False ou True qu'il faut tester

[Kestion100]

J'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="Faux"

car c'est ce que le debug.print renvoie et que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

False

ne fonctionnait pas.

[Nain porte koi]

Debug.Print renvoi la valeur dans la langue actuelle (et pas en texte), et c'est bien True ou False car ce sont des propriétés qui sont testées

[Kestion100]

En tout cas, avec mon userform, pourtant affiché, debug.print renvoie "Faux" et le If ne se déclenche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If VBA.UserForms.Add(sVariable).Visible = True Then
 
VBA.UserForms.Add(sVariable).StartUpPosition = 2
 
End If

[Nain porte koi]

Et juste une question bête : pourquoi vous ne modifiez pas directement la propriété "StartUpPosition" dans les formulaires ?

[Franc]

Bonjour, teste comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub CentreUserForms()
    Dim Wb As Workbook
    Dim VBComp As Object
    Dim Usf As Object
    Dim UsfName As String
    Dim Frm As Object
 
    For Each Wb In Application.Workbooks
 
        Wb.Activate
 
        For Each VBComp In Wb.VBProject.VBComponents
            ' Vérifie si le composant est un UserForm
            If VBComp.Type = vbext_ct_MSForm Then
                UsfName = VBComp.Name
 
                ' Vérifie si le UserForm est chargé dans VBA.UserForms
                For Each Usf In VBA.UserForms
                    If Usf.Name = UsfName Then
                        If Usf.Visible Then
                            Usf.StartUpPosition = 2
                        End If
                    End If
                Next Usf
            End If
        Next VBComp
    Next Wb
End Sub

[Kestion100]

En fait je travaille sur trois écrans et parfois les userform se baladent, la croix de fermeture sort même de l'écran.....

[Kestion100]

Alors, Franc, ton code détecte bien visible ou non mais il ne sort plus de la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Usf In VBA.UserForms

sans repartir dans:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each VBComp In Wb.VBProject.VBComponents

et encore moins n'atteint le changement de classeur

[Kestion100]

Rectifié, j'avais laissé le 3:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBComp.Type = vbext_ct_MSForm