XL 2016 [ RESOLU ]Problème avec formulaire recherche

Dranreb

XLDnaute Barbatruc

• 17 Février 2019

• #46

Ben vous le verrez dans la ListBox. Ça vient de ce qu'il y a un tas de colonnes vides partout dans votre base test, d'où un seul choix "(vide)" possible, assumé d'entrée et donc la liste de toute la base puisque c'est vide partout.
Vous auriez quand même pu mettre les procédures que j'avais indiquées.

 

Pièces jointes

• CBxLiéesDG-59.xlsm

  439.5 KB · Affichages: 10

Vote positif 0 Vote négatif

D

DG-59

XLDnaute Nouveau

• 17 Février 2019

• #47

Merci sa fonctionne super bien je vient de mettre ma base de donné et tout es bien vide
quelle procédure ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Février 2019

• #48

Celles que j'avais indiquées aux postes #40, #42 et #43.
Une procédure c'est un truc qui commence par une instruction Sub, Function ou Property et qui finit par End Sub, End Function ou End Property.
Sauf si elle est écrite Public dans un module de classe ou un module objet. Alors pour bien rappeler qu'elle ne peut être invoquée sans la qualifier d'un exemplaire de l'objet qu'il définit ou de l'objet qu'il est, on parle plutôt de méthode ou de propriété.

 

Dernière édition: 17 Février 2019

Vote positif 0 Vote négatif

D

DG-59

XLDnaute Nouveau

• 18 Février 2019

• #49

Bonjour, oui dsl mais je ne vois pas ou je doit la placé

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2019

• #50

Fonctionnellement elle peut être mise n'importe où dans le module en dehors d'autres procédures. Mais laissez tomber: je les ai mises. Vous n'aviez pas remarqué ? Vous auriez juste pu le faire vous même.

 

Vote positif 0 Vote négatif

D

DG-59

XLDnaute Nouveau

• 18 Février 2019

• #51

le #40, #42 oui je l'ai vois mais pas le 43

Code:

Private Sub CL_ChangeStop(ByVal CBM As ComboBoxMmbr)
   Dim L As Long, CBMrCP As ComboBoxMmbr
   Select Case True
      Case CBM.CBx Is CBxCP
         If CBxCP.MatchFound Then
            L = CBM.SujetBdD(1)(CBxCP.ListIndex)(1)
            CBxVille.Text = CL.PlgTablo(L, CL.Item(CBxVille).Col).Value
         End If
      Case CBM.CBx Is CBxVille
         If CBxVille.MatchFound Then
            Set CBMrCP = CL.Item(CBxCP)
            If CBxCP.MatchFound Then
               L = CBMrCP.SujetBdD(1)(CBxCP.ListIndex)(1)
               If CBxVille.Text = CL.PlgTablo(L, CBM.Col) Then Exit Sub
               End If
            L = CBM.SujetBdD(1)(CBxVille.ListIndex)(1)
            CBxCP.Text = CL.PlgTablo(L, CBMrCP.Col).Value
         End If
      End Select
   End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Février 2019

• #52

Tiens, vous avez raison, il semble que je l'avais oublié.
En testant j'ai par ailleurs trouvé des anomalies de fonctionnement dans le détail desquels je n'entrerai pas.
Les objets de type CAsso renvoyés par les évènements de CA (non utilisés jusqu'à présent) ne s'appellent plus CAsso mais CAM (Control associé membre). Leur type reste CAsso néanmoins.
En même temps c'est plus homogène avec certains de ceux de l'objet ComboBoxLiées qui est CBM (ComboBox membre)
Il faut dire que l'objet ControlsAssociés est un dispositif un peu récent, en rodage…

 

Pièces jointes

• CBxLiéesDG-59.xlsm

  453.1 KB · Affichages: 17

Dernière édition: 18 Février 2019

Vote positif 0 Vote négatif

D

DG-59

XLDnaute Nouveau

• 24 Février 2019

• #53

Bonjour tous fonctionne super bien Merci

 

Vote positif 0 Vote négatif