Discussion :

[oscar.cesar]

bonjour
En core qql qui me mais bon

en appyant sur un bouton je souhaite reinitialise toutes les proprietes de mes objets(mes bouton, combobox et teextbox )pour les rendre dans leur situation initial comme à l'ouverture du userform.
je lance la command UserForm_initialize()
mais j'ai un peu n'importe quoi ???????

voila la procedure init

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
 
 
Private Sub UserForm_initialize()
 
'initialisation des textbox
'initialisation combobox
RAZ
 
'rend inactif des combobox
ComboBox1.Enabled = False
ComboBox2.Enabled = False
ComboBox3.Enabled = False
ComboBox4.Enabled = False
ComboBox5.Enabled = False
ComboBox6.Enabled = False
'ComboBox7.Enabled = False
ComboBox8.Enabled = False
ComboBox9.Enabled = False
'ComboBox10.Enabled = False
'ComboBox11.Enabled = False
'ComboBox12.Enabled = False
ComboBox13.Enabled = False
ComboBox14.Enabled = False
ComboBox15.Enabled = False
ComboBox16.Enabled = False
ComboBox17.Enabled = False
ComboBox18.Enabled = False
ComboBox19.Enabled = False
'ComboBox20.Enabled = False
'ComboBox21.Enabled = False
ComboBox22.Enabled = False
ComboBox23.Enabled = False
ComboBox24.Enabled = False
ComboBox25.Enabled = False
ComboBox26.Enabled = False
 
 'rend inactif les texbox
 TextBox1.Enabled = False
 
 
'initialisation des variable
nbfichesaisie = 0
 
CommandButton3.Enabled = False 'desactive le bouton validation
CommandButton3.Visible = False 'rend invisible le bouton validation
CommandButton7.Enabled = False 'desactive le bouton enregistrer
CommandButton7.Visible = False 'rend invisble le bouton enregistrer
CommandButton6.Visible = True 'rend visible le bouton recherhce
CommandButton6.Enabled = True  'rend actif le bouton recherche
CommandButton2.Visible = True 'rend visible le bouton saisie
CommandButton2.Enabled = True  'rend actif le bouton saisie

Si qql a une idee ?

merci d'avance

[Invité]

Bonjour

Fais une recherche sur le forum avec For Each.

Cette boucle te permettra de boucler sur la collection des contrôles de ton userform.

Cet article de Silkyroad te renseignera un peu plus, et sur le forum tu trouveras de nombreux exemples.

http://silkyroad.developpez.com/vba/boucles/#LII

Starec

[oscar.cesar]

bonsoir starec
Normalment en appelant la procedure UserForm_initialize() on doit pouvoir intialiser le formumaire ?

[ucfoutu]

Oui (encore faut-il l'appeler sans les parenthèses (), s'agissant de l'appel d'une procédure.

PS et ton RAZ , il fait quoi, exactement ?

Il faut à mon avis :

soit vider d'abord tout, puis reremplir (lourd)
soit (mieux) utiliser une variable booléenne pour que le RAZ ne se lance que la 1ère fois.

Genre :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
 Static couic As Boolean
 If Not couic Then RAZ
 couic = True
' etc....

[oscar.cesar]

bonjour
effectivement
sans les parenthèses (), s'agissant de l'appel d'une procédure, ca fonctionne mieux .

merci


Pour RAZ ,'est une procedure qui remet à zero toutes mes variables.