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

dadaze · 29 Juillet 2024

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 · 29 Juillet 2024

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

VB:

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 · 30 Juillet 2024

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

VB:

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

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

dadaze

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

dadaze

XLDnaute Nouveau

Discussions similaires