Discussion :

[arthur83fr]

bonjour

avec vos conseils et la lecture des forums je progresse tout doucement en vba mais la .......

j'ai un "usf1 nouvelle vente" dans lequel je rentre Nom Prenom et Ville.
en fonction de ces trois données j'effectue une recherche de doublons dans la feuille Clients, si doublons trouvés alors copies des lignes correspondantes dans une feuille "doublons" et affichage "usf12 plusieurs occurences".

je bloque a ce niveau sur un truc certainement tout con.

comment afficher dans un label de usf12 la valeur de TextBoxNom de usf1 ?

j'ai bien essayé ceci mais cela marche pas

Code :

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

1
2
3
 
UserForm12.Show
UserForm12.Label6.Caption = UserForm1.TextBox2Nom.Value

j'ai du zapper quelque chose mais quoi ?

merci pour votre aide

[jfontaine]

Bonjour,

en VBA le show est par défaut en mode modal. C'est a dire que le code qui suit reprendra quand la userform sera fermée.

Essais en inversant les lignes

[arthur83fr]

re

donc mon usf1 me permet la saisie d'une vente, des que j'ai rempli nom, prenom et ville je teste si doublon sur VarNomPrenomVille dans feuilles clients et si doublons , j'affiche usf12 qui permet de selectionner adresse afin de continuer la saisie de ma vente

je suis donc bien obligé d'afficher usf12 avant de remplir les labels de celui ci par la valeur des textbox de l'usf1 (nom prenom ville)

[jfontaine]

je suis donc bien obligé d'afficher usf12 avant de remplir les labels de celui ci par la valeur des textbox de l'usf1 (nom prenom ville)

Non, le code ci dessous fonctionne

Code :

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

1
2
3
 
UserForm12.Label6.Caption = UserForm1.TextBox2Nom.Value
UserForm12.Show

[arthur83fr]

merci
oui ca fonctionne mais quand meme bizarre de remplir les champs avant affichage

[SfJ5Rpw8]

merci
oui ca fonctionne mais quand meme bizarre de remplir les champs avant affichage

oui mais c'est moins bizarre que de le faire après la fermeture de la fenêtre... comme ton code initial

[Didier Gonard]

Bonjour,

merci
oui ca fonctionne mais quand meme bizarre de remplir les champs avant affichage

Non, ce n’est pas bizarre fondamentalement
vois dans les tutos de DVP pour comprendre ce qui se passe ainsi que les méthodes Show et Hide des USF ainsi que les Instructions Load et unload dans l’aide VBA

En écrivant ceci :

Code :

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

1
2
UserForm12.Label6.Caption = UserForm1.TextBox2Nom.Value
UserForm12.Show

Par le fait dans ta ligne1 d’invoquer UserForm12 alors qu’il « n’existe pas », tu l’instancies de façon implicite, bref c’est comme si juste avant, tu avais écrit :

Code :

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

UserForm12.load

Si pour ton exemple on considère 2 USF :

• usfNouvelleVente avec un CommanButton cmdRun qui simule par son appui ton code de traitement.
• usfNewOccurence avec un label lblCible

on aurait par appui sur le bouton cmdRun de usfNouvelleVente le résultat via le code suivant :

Code :

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

1
2
3
4
5
Private Sub cmdRun()
'Load usfNewOccurence ' écrit de façon implicite sur la ligne suivante, d'où l'avantage d'être explicite dans son code...
usfNewOccurence.lblCible = usfNouvelleVente.txtNom
usfNewOccurence.Show
End Sub

A mon avis, ce serait aussi bien d’utiliser directement l’évènementiel Initialize de ton UserForm12 nommé usfNewOccurence dans le code suivant :

Code :

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

1
2
3
Private Sub UserForm_Initialize()
Me.lblCible = usfNouvelleVente.txtNom
End Sub

Pour certifier le raisonnement précédent tu peux faire ainsi :
En ajoutant à usfNouvelleVente avec un CommanButton cmdRun2 avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmdRun2_Click()
Dim objUSFF As Variant
 
usfNewOccurence.lblCible = usfNouvelleVente.txtNom
Debug.Print UserForms.Count
For Each objUSFF In UserForms: Debug.Print objUSFF.Name: Next objUSFF
MsgBox "Pause"
'Unload usfNewOccurence '' si on active cette ligne, on décharge l'USF non visible et du coup il est vierge = logique
usfNewOccurence.Show
End Sub

La ligne 5 affiche le nombre de USF ouverts à cet instant dans la fenêtre exécution de l’éditeur VBE.
La ligne 6 affiche les noms des ces USF
La ligne 7 crée une pause permettant la visualisation des états avant l’instruction Show

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue

Didier