Discussion :

[MarcelG]

Bonjour à tous,

Afin de définir une propriété d'un formulaire, je souhaiterais balayer ses contrôles.
Dans une procédure d'essai, j'ai codé

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
Sub essaiCtrl()
 
Dim Wb As Workbook, uf As Object
Const MonUserForm As String = "Usf_Monusf"
 
Set Wb = ThisWorkbook
 
Set uf = Wb.VBProject.VBComponents.Item(MonUserForm)
 
Dim i As Byte
 
With uf.Designer
        Debug.Print .Controls.Count
        For i = 1 To .Controls.Count
                Debug.Print .Controls(i).Top
                Debug.Print TypeName(.Controls(i))
                Debug.Print .Controls(i).Name
        Next i
End With
 
Set uf =Nothing
 
Set Wb = Nothing
 
End Sub

Lors de l'exécution de cette procédure survient l'erreur

Erreur d'Exécution - argument non valide

Cette erreur survient au dernier contrôle
Si le nombre de contrôles est 50, alors l'erreur survient lorsque i = 50.
Elle concerne chacune des 3 caractéristiques (Top....)
Autrement dit, le code ne supporte pas

Code :

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

Controls(50)

.

Pourquoi? Quel est ce dernier contrôle?

Par avance, merci.

[Jean-Philippe André]

Salut,

Tes indices iraient-ils de 0 à 49 ?

Autre approche, au lieu de passer par un indice, passe par une boucle

Code :

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

for each ctl in .Controls

[joe.levrai]

Je procède ainsi pour balayer les contrôles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub essaiCtrl()
Dim Wb As Workbook, Ctrl As Control, uf As Object
Const MonUserForm As String = "Usf_Monusf"
    Set Wb = ThisWorkbook
    Set uf = Wb.VBProject.VBComponents.Item(MonUserForm)
        For Each Ctrl In uf.designer.Controls
            Debug.Print Ctrl.Top & "||" & TypeName(Ctrl) & "||" & Ctrl.Name
        Next Ctrl
    Set uf = Nothing
    Set Wb = Nothing
End Sub

Les contrôles sont indexés en base 0, faut commencer à 0 et finir à .Count - 1

[MarcelG]

Merci à vous deux

Jean-Philippe,

C'est la raison pour laquelle j'utilise le nombre de contrôles.
Au passage, je considère rarement des bornes supérieures fixes. Je préfère Count, Ubound...

J'ai besoin de cet indice car, plutôt que d'utiliser l'instruction Exit For, dans mon développment, j'envisage une boucle Do While ....Loop.
(D'ailleurs, Tonton Pierre, the big chief, il n'aime pas les Exit. )

Joe,

En effet.
Et ce bien que j'aie considéré

Code :

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

Option Base 1

en entête de module.
Merci à toi.
Discussion résolue.

Bonne journée à tous.

[joe.levrai]

Option Base 1 n'affecte que les array il me semble ? Et pas les index d'objets

Un peu comme Option Base 0 qui ne fonctionnerait pas en transférant une plage dans un array ?