initialisation USF1 à partir d'USF2

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

Code:

---

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:

---

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 = ""

---

pourquoi tu ne fais pas unload USF1 ds ton USF2?

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

Citation:

---

pourquoi tu ne fais pas unload USF1 ds ton USF2?

---

Bonjour,

Depuis quand un :

Code:

---

ComboBox1.Value = ""

---

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

Code:

---

ComboBox1.Clear

---

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

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

re
ucfoutu

Citation:

---

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!

Citation:

---

tomy 7
oui exact

---

exact pourquoi?
t'en est ou maintenant?

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

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

Citation:

---

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

---

EXACT, cest le cas:(

aucune idée me viens:bug:

tomy7

Enleve moi un doute 8O8O

la commande

Citation:

---

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

---

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

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.

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 :evilred:

Code:

---

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

---

Citation:

---

Envoyé par oscar.cesar

tomy7

Enleve moi un doute 8O8O

la commande

Code:

---

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 ...;)

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

Code:

---

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....:(

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:

---

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 ;)

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

Citation:

---

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 ......:)

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

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