initialisation USF1 à partir d'USF2

**oscar.cesar** · 05/03/2008, 14h28

bonjour
a partir d'un bouton contenu dans un userform2 , je charge un userform1 via le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub OptionButton1_Click() 'saisie nouvelle fiche
 
Load UserForm1
UserForm1.Show
UserForm1.Frame2.Visible = False
UserForm1.Frame6.Visible = False
'UserForm1.Frame1.Visible = False
UserForm1.CommandButton3.Visible = False
UserForm1.CommandButton8.Visible = False
UserForm1.Frame1.Enabled = False
Unload UserForm2
End Sub

Dans mon USF1, la procedure USF1_initialize doit remettre à zero les combobox et textbox present dans le USF1.
or la RAZ se fait pas dans les combobox et textboxx sur USF1 ?

la raz est effectué par le code suivant

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
 
'initialisation des textbox
 
TextBox3.Value = 0
TextBox2.Value = 0
TextBox1.Value = " "
TextBox6.Value = 0
TextBox4.Value = 0
 
'initialisation combobox
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
ComboBox6.Value = 0
 
ComboBox8.Value = ""
ComboBox9.Value = ""
 
 
 
ComboBox13.Value = ""
ComboBox14.Value = ""
ComboBox15.Value = ""
ComboBox16.Value = ""
ComboBox17.Value = ""
 
ComboBox18.Value = ""
ComboBox19.Value = ""
ComboBox22.Value = ""
ComboBox23.Value = ""
ComboBox24.Value = ""
ComboBox25.Value = ""
ComboBox26.Value = ""
'autre initialisation
messagealerte = ""
TextBox1.Value = ""

**tomy7** · 05/03/2008, 14h33

pourquoi tu ne fais pas unload USF1 ds ton USF2?

**oscar.cesar** · 05/03/2008, 14h38

mon applic s'ouvre sur le USF2.
il me faut donc charge (load) le USF1.

pourquoi tu ne fais pas unload USF1 ds ton USF2?

**ucfoutu** · 05/03/2008, 14h43

Bonjour,

Depuis quand un :

Code :

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

ComboBox1.Value = ""

Réinitialiserait à rien (viderait) une combobox ?
Cette Commande ne sert qu'à désélectionner ... rien de plus ...

Code :

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

ComboBox1.Clear

fait par contre autre chose ... à essayer... juste pour voir ...

**tomy7** · 05/03/2008, 14h44

non on c mal compri, a la fin de tte ta procedure. une fois que tt est fini pk tu ne fais pas un unload USF1 au lieu de tt les RAZ?

tu vois ce que je veux dire?

et tu peux faire la meme chose pour textbox avec le code de UCfoutu

**oscar.cesar** · 05/03/2008, 14h58

re
ucfoutu

ComboBox1.Clear

oui d'accord mais l'initialisation de se fait pas !!

tomy 7
oui exact

Je precise que mes cbx et txt sont dans des frame!

**tomy7** · 05/03/2008, 15h00

tomy 7
oui exact

exact pourquoi?
t'en est ou maintenant?

**oscar.cesar** · 05/03/2008, 15h04

mon initilisation (cbx et txt)ne se fait toujours pas.

**tomy7** · 05/03/2008, 15h12

tu fais bien tes RAZ ds le Private sub Userfom_ Initialize () ?

**oscar.cesar** · 05/03/2008, 15h15

tu fais bien tes RAZ ds le Private sub Userfom_ Initialize () ?

EXACT, cest le cas

**tomy7** · 05/03/2008, 15h20

aucune idée me viens

**oscar.cesar** · 05/03/2008, 15h36

tomy7

Enleve moi un doute

la commande

Private Sub ComboBox13_click()
......
end sub

Elle s'execute bien UNIQUEMENT APRES UN CLICK SUR LE COMBOBOX!

**tomy7** · 05/03/2008, 15h48

normalement oui , mais c'est quand on te pose ce genre de question que t'as un doute ... lol c 'est pour sa que je dis normalement.

**oscar.cesar** · 05/03/2008, 17h13

bonjour
voila mon code correspondant à mon bouton que j'appelle RAZ .
il remet à Zero les cbx etTxtbox de mon USF1.
je precise encore que CBX et TXTBox sont dans une FRAME.

Mais j'ai beau faire, la procedure est appliquée mais RIEN ne se passe

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
 
Private Sub RAZ()
'initialisation des textbox
 
TextBox3.Value = 0
TextBox2.Value = 0
TextBox1.Value = " "
TextBox6.Value = 0
TextBox4.Value = 0
 
'initialisation combobox
 
 
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Value = 0
ComboBox8.Clear
ComboBox9.Clear
 
ComboBox13.Clear
ComboBox14.Clear
ComboBox15.Clear
ComboBox16.Clear
ComboBox17.Clear
 
ComboBox18.Clear
ComboBox19.Clear
ComboBox22.Clear
ComboBox23.Clear
ComboBox24.Clear
ComboBox25.Clear
ComboBox26.Clear
'autre initialisation
messagealerte = ""
TextBox1.Text = ""
 
End Sub

**ucfoutu** · 05/03/2008, 17h29

Envoyé par oscar.cesar

tomy7

Enleve moi un doute

la commande

Code :

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

1
2
3
Private Sub ComboBox13_click()
......
end sub

Elle s'execute bien UNIQUEMENT APRES UN CLICK SUR LE COMBOBOX!

C'est là que l'on prend toute la mesure de la bonne compréhension de chaque chose, compréhension qui passe tout naturellement par la terminologie ... (il n'y a pas de secret).

Ce à quoi tu te réfères, oscar.cesar, n'est pas une commande.

Une commande est un ordre que tu donnes, et certes pas une choses que tu subis.

La seule recherche de ce qu'est cette "chose" (aide en ligne) génèrerera à elle seule l'essentiel de la réponse à la question que tu poses. Son nom seul, déjà, t'en dira long.

Cette "chose" (cherche son nom) :

- est subie
- elle intervient en réaction d'un geste (évènement)
- elle peut, selon le contrôle concerné, avoir des effets implicites (décidés par VB)
- elle peut également contenir des instructions du développeur, instructions exécutées lors de l'intervention de cet évènement ...

Venons-en maintenant aux effets implicites : les mêmes effets peuvent être provoqués (hors cette "chose", donc... et sans même passer par cette "chose"...) par une instruction (code) du développeur, quelque part dans son application....
Exemple : en cliquant sur un article d'une combo, l'utilisateur provoque la sélection de cet article.
La même sélection peut être faite, sans que l'utilisateur ne clique quoi que ce soit, depuis n'importe quel endroit du code ...

Venons-en maintenant au reste (instructions du développeur insérées dans la "chose") : Il suffit que le code appelle quelquepart dans l'appli le nom de la "chose" (à savoir ComboBox13_click) pour que toutes les instructions contenues par la "chose" s'exécutent (alors même que l'utilisateur ne clique pas)

Voilà !:

Fais maintenant l'effort de trouver ce qu'est cette "chose" (à commencer par son nom) et tu auras fait un énorme pas dans la recherche de la réponse à ta question ...

**oscar.cesar** · 05/03/2008, 17h59

bonjour
oui effectivement c'est ce que j'ai fait
voici le code du bouton 1 dans le userform2

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
 
Private Sub OptionButton1_Click() 'saisie nouvelle fiche
Unload UserForm1
 
UserForm1.Show
UserForm1.Frame2.Visible = False
UserForm1.Frame6.Visible = False
'UserForm1.Frame1.Visible = False
UserForm1.CommandButton3.Visible = False
UserForm1.CommandButton8.Visible = False
UserForm1.Frame1.Enabled = False
Load UserForm1
 
Unload UserForm2
End Sub

mais bon tjs toujours pareil....

**ouskel'n'or** · 05/03/2008, 17h59

As-tu lu ça ? Comme j'en doute, je déplace...

Une question bête : Ne peux-tu pas faire un Unload Usf1 dans Usf2 ? Aprés tu le load se nouveau... Là, il sera totalement vide
Sinon, tu peux utiliser une boucle sur tes contrôles

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ctrl as control
For each Ctrl in Me.controls
     Select case TypeName(ctrl)
          Case "Textbox"
               ctrl = ""
          Case "Listbox", "Combobox"
               ctrl.clear
          Case else
      end select
Next

C'est toi qui choizes

**oscar.cesar** · 05/03/2008, 18h11

bonjour
Merci de tes sages conseils UCTOUFU.
il est vrai que la terminologie employée n'est certainement pas parfaite. Mille excuses la-dessus
comme tu le dis

Venons-en maintenant au reste (instructions du développeur insérées dans la "chose") : Il suffit que le code appelle quelquepart dans l'appli le nom de la "chose" (à savoir ComboBox13_click) pour que toutes les instructions contenues par la "chose" s'exécutent (alors même que l'utilisateur ne clique pas)

j'examine mais 21 pages de codes pour voir on est l'appel car j'utilise l'evenement "CHANGE" sur certaine combobx.... peut etre que ......

**oscar.cesar** · 05/03/2008, 18h13

bonjour
A l'attention de ouskel'n'or
Non je n'ai en pas utlisé ton bout de code .
je parcours mon code puis je verrai en suite ................

merci

**oscar.cesar** · 05/03/2008, 20h44

bonsoir
ma procedure de marche pas ! pourquoi je sais pas ?
j'ai donc initialisé comme le dit OUSkel'nor.

Quand je pourrai je ferai un tracage complet du deroulement du programme.

Merci à tous

initialisation USF1 à partir d'USF2

Macros et VBA Excel

Discussions similaires

Partager

Partager