Microsoft 365 Message "erreur définie par l'application ou l'objet"

[dadaze]

Bonsoir,

Suite à souci que je n'arrive pas à résoudre je me tourne vers vous.
je m'explique, chaque fois que j'actionne ma Combobox ("Recherche") le message cité en objet s'affiche.
Comme ça fait un moment que je tourne en rond ce soir.
Si l'un d'entre vous à quelques instants à me consacrer pour solutionner ce problème son aide sera la bienvenue.
A cet effet, je joins mon fichier.

Bonne soirée à tout le monde

 

[Dranreb]

Bonsoir.
C'était essentiellement un = 2 à la fin au lieu de + 2.

Private Sub CBXRecherche_Change()

Dim L As Long, F As Worksheet

Set F = Sheets("BDD")
If Not Me.CBXRecherche.MatchFound Then Exit Sub
L = Me.CBXRecherche.ListIndex + 2
Me.CBXSERVICE = F.Cells(L, "E")
Me.CBXPraticiens = F.Cells(L, "F")
End Sub

 

[dadaze]

Bonsoir.
C'était essentiellement un = 2 à la fin au lieu de + 2.

Private Sub CBXRecherche_Change()

Dim L As Long, F As Worksheet

Set F = Sheets("BDD")
If Not Me.CBXRecherche.MatchFound Then Exit Sub
L = Me.CBXRecherche.ListIndex + 2
Me.CBXSERVICE = F.Cells(L, "E")
Me.CBXPraticiens = F.Cells(L, "F")
End Sub

Merci Beaucoup Dranreb
Évidemment ça fonctionne maintenant.

Lorsqu'on a la tête dans le guidon surtout le soir et bien fatigué on ne voit plus rien

Encore Merci