USF Combinés par variable

[Provence Vintage]

Bonjour,

Pour l'instant:
J'ai deux USF de recherche dans bdd avec ListBox
et un USF de Consultation de Fiche
(j'aurai trois autres USF de Recherche, si j'arrive à dépatouiller ce problème par la suite)


Dans l'USF de Recherche, si l'on Double Click sur une des Lignes, le code me permet avec une variable "Nom" de la ligne Clickée d'aller ouvrir mon USF consultation et d'afficher sous forme de fiche, les données concernées.

Mon code D'origine fonctionne très bien avec un seul USF de recherche via le code suivant:

Dans USF de recherche: ("BriefingSemaine2")

#Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex = -1 Then Exit Sub
LabelNom = ""
LabelNom = ListBox1.List(ListBox1.ListIndex, 0)

RechetCréaAcquéreurs.Show
End Sub#

Dans Initialize de Mon Usf de Consultation🙁"RechetCréaAcquéreurs")

#Private Sub UserForm_Initialize()
IniUSF
Me.Height = Application.Height: Me.Width = Application.Width
Me.Tbx4 = BriefingSemaine2.LabelNom
End Sub#

Jusque là Tout Va bien!🙂

Je procède Donc de même avec mon Autre USF de Recherche("Consulterpardates")

Et là, Rien ne va plus!😡

Voici comment j'ai essayé Dans l'Initialize de Mon USF de Consultation:

1er Essai:

#Private Sub UserForm_Initialize()
IniUSF
Me.Height = Application.Height: Me.Width = Application.Width
Me.Tbx4 = BriefingSemaine2.LabelNom
Me.Tbx4 = Consulterpardates.LabelNom
End Sub#

2ème Essai:

#Private Sub UserForm_Initialize()
IniUSF
Me.Height = Application.Height: Me.Width = Application.Width
If BriefingSemaine2.LabelNom = "" Then
Exit Sub
Else
Me.Tbx4 = BriefingSemaine2.LabelNom
End If
If Consulterpardates.LabelNom = "" Then
Exit Sub
Else
Me.Tbx4 = Consulterpardates.LabelNom
End If
End Sub#

La TextBox de L'USF Consultation n'est alimentée que par un des deux Usf de Recherche (USF de recherche ne sont pas ouverts en même temps bien entendu)

Qui à une idée pour corriger mon code
Désolé, mais mon fichier est très lourd (10 MO)

Bonne journée

 

[Guest]

Re : USF Combinés par variable

Bonjour,

Dans un module Général créer une variable publique 'NomCible' (par exemple)
Puis

Dans USF de recherche: ("BriefingSemaine2")

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex = -1 Then Exit Sub
LabelNom = ""
NomCible = ListBox1.List(ListBox1.ListIndex, 0)
LabelNom=NomCible
RechetCréaAcquéreurs.Show
End Sub

Cette variable publique sera donc accessible à tous les userForms.

P.S. utilise le bouton '#' (balise code) de l'éditeur avancé des messages, et non pas le dièse du clavier pour editer tes codes VBA.

A+

 

[Provence Vintage]

Re : USF Combinés par variable

Bonjour Hasco,

Oui, mais que faire dans mon unique USF de consultation,
en initialize,
je vais mettre:
Tbx4 = NomCible

et là celà sera ok avec un USF de recherche, mais avec 2 ou 3 ou 4....
Sachant que dans le deuxième USF de recherche, l'index n'est pas identique:
LabelNom = ListBox2.List(ListBox2.ListIndex, 2)

ayeayeaye.....


En fait, le bon code serait pour moi dans l'unique USF de Consultation, en INITIALIZE:
Me.Tbx4 = soit à BriefingSemaine2.LabelNom (si pas vide) soit à Consulterpardates.LabelNom (si pas vide) et ainsi de suite, et là pour l'ecrire!!!!!!!!!! oups

A te lire

 

[mromain]

Re : USF Combinés par variable

Bonjour Provence Vintage, Hasco,

Une autre solution est de créer dans le deuxième UserForm un Sub qui "remplace le .Show", du genre :

Public Sub MonShow(chaineCaractere As String)
Me.Label1.Caption = chaineCaractere
Me.Show
End Sub

cela permet d'appeler le deuxième UserForm en lui passant (dans ce cas) une variable String.

Private Sub CommandButton1_Click()
UserForm2.MonShow TextBox1.Text
End Sub

A tester sur le fichier joint.

a+

 

[Guest]

Re : USF Combinés par variable

Re,
mromain a raison.
Autre solution:


A partir de l'un et l'autre des usf de recherche

With MonUsfDeConsultation
 
      .Tbx4=LeNom
      .show
End with

A+




A+

 

[Provence Vintage]

Re : USF Combinés par variable

Hasco, mromain,

Nickel, ça fonctionne, un grand merci!
bonne journée