Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

dadaze

XLDnaute Nouveau
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
 

Pièces jointes

  • 03 VBA Exercicie Arca-santé (version 1).xlsm
    589.3 KB · Affichages: 1

Dranreb

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…