XL 2016 [ RESOLU ]Problème avec formulaire recherche

[DG-59]

Bonjour j'ai suivie quelque tuto sur internet mais je suis un peux bloqué

je cree un formulaire de contact pour géré des familles d'accueil pour une association protection animalière

le module ajouter fonctionne bien mais je bloque sur la fenêtre recherché qui ce trouve sur la feuille accueil

sur la page feuil1 qui sera masqué et je pense verrouiller, j'ai mis la recherche V mais après je suis perdu

pouvez vous regardé
Merci d'avance

 

[Dranreb]

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.

 

[DG-59]

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

 

[Dranreb]

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é.

 

[DG-59]

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

 

[Dranreb]

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.

 

[DG-59]

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

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

 

[Dranreb]

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…

 

[DG-59]

Bonjour tous fonctionne super bien Merci