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

Erreur Combobox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Lolo92
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

Lolo92

Guest
Bonjour,

J'ai un userform avec un combobox. Je remplis ce combobox grace à une liste qui se situe sur une fauille de mon classeur. Jusqu'ici tout va bien. J'autorise la saisie de caractère pour selectionner plus rapidement. Seulement si je rentre une valeur qui n'existe pas dans ma liste, j'ai droit à un message d'erreur "runtime 91".....

Si vous m'avez compris, help please 😛

Merci.
 
Trier par date Trier par votes
Re : Erreur Combobox

Salut 🙂,
Pas sûr d'avoir compris, mais si tu mets dans ton Initialize
Code: 
ComboBox1.Style = fmStyleDropDownList
ou directement dans la propriété du ComboBox, tu as bien l'aide à la saisie et impossibilité de saisir quelque chose qui n'est pas dans la liste 🙄...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Erreur Combobox

Tu as bien compris (à peu près! lol).
C'est à peu près ce que je veux sauf que ça marche pas terrible.... En fait il faudrait que j'autorise la saisie et que dès que j'ai un caractère qui n'est pas dans la liste, j'affiche un message d'erreur (per exemple)
Exemple:
mon combobox est rempli par "toto", "titi" et "tata"
Je tape "t" : tata apparait en tant que proposition
ensuite, Je tape "o" : toto apparait en tant que proposition
ensuite si je tape "r" : message d'erreur disant que la référence n'existe pas....
 
Vote positif 0 Vote négatif
Re : Erreur Combobox

Re 🙂,
Tu vas te faire lyncher par les utilisateurs 😛... Un message d'erreur à chaque erreur de saisie 😱...
Utilise Combobox1_Change et teste à chaque fois, mais ça va être lourd 🙄...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Erreur Combobox

Merci pour tes réponses rapides. Justement, comment on teste? A la limite, je peux me contenter d'empécher la saisie du mauvais caractère.....

Voilà mon code si ça eut aider:

Code: 
Private Sub ComboBox1_Change()
Dim a1 As Integer
Dim cherche1 As String
cherche1 = ComboBox1.Value
Quantité.Text = ""
'recherchev
a1 = Sheets("feuil1").Cells.Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Description = Range("A" & a1).Offset(0, 1).Value
Prix = Range("A" & a1).Offset(0, 3).Value

End Sub
 
Vote positif 0 Vote négatif
Re : Erreur Combobox

Re 🙂,
A tester
Code: 
Dim a1 As Range
Dim cherche1 As String
Private Sub ComboBox1_Change()
cherche1 = ComboBox1.Value
Set a1 = Sheets("feuil1").Range("A:A").Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlNext).Row
If a1 Is Nothing Then
ComboBox1.Text = Left(ComboBox1.Text, Len(ComboBox1.Text) - 1)
End If
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
cherche1 = ComboBox1.Value
Quantité.Text = ""
'recherchev
Set a1 = Sheets("feuil1").Range("A:A").Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext)
If Not a1 Is Nothing Then
Description = a1.Offset(0, 1).Value
Prix = a1.Offset(0, 3).Value
End If
End Sub
Bonne suite 😎
 
Vote positif 0 Vote négatif
Re : Erreur Combobox

Bon, j'arrive à avoir quelquechose de correcte avec ça:

Code: 
Private Sub ComboBox1_Change()

Dim a1 As Integer
Dim cherche1 As String
cherche1 = ComboBox1.Value
Quantité.Text = ""
On Error Resume Next
a1 = Sheets("feuil1").Cells.Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
If a1 > 1 Then
Description = Range("A" & a1).Offset(0, 1).Value
Prix = Range("A" & a1).Offset(0, 3).Value
Else
MsgBox "Nous sommes le " & Date, vbOKOnly + vbInformation, "mDF XLpages.com"
ComboBox1.Text = Left(ComboBox1.Text, Len(ComboBox1.Text) - 1)
End If

End Sub

Par contre, le souci, c'est que je boucle sur l'erreur, jusqu'à ce qu'il n'y ai plus de caractère de rentré....
Ce qui serait bien, ça serait d'avoir la première valeur approchante en cas d'erreur...
 
Vote positif 0 Vote négatif
Re : Erreur Combobox

J'ai :

Runtime Error '424' :
Object required

et la ligne
Set a1 = Sheets("feuil1").Range("A:A").Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlNext).Row

est surlignée
 
Vote positif 0 Vote négatif
Re : Erreur Combobox

Re 🙂,
JNP à dit:
Re 🙂,
Avec ton fichier, ce serait plus simple pour savoir pourquoi mon code ne fonctionne pas 🙄...
Bonne soirée 😎
Cliquez pour agrandir...
Hum... 🙄
Ajout : Supprime le .Row que j'ai laissé par erreur
Code: 
Set a1 = Sheets("feuil1").Range("A:A").Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlNext)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
395
dgil37
D
  • Résolu(e)
XL 2010 Problème de propagation d'évènement Combobox
Réponses
11
Affichages
939
ChTi160
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
716
ChTi160
P
  • Résolu(e)
Autres suivi de collecte
Réponses
3
Affichages
712
Patrice52
P
D
  • Question Question
Valeur ComboBox imbriquée qui ne s'affiche pas du UserForm au tableau
Réponses
10
Affichages
1 K
DelfD
D
Userform, DatePicker, TimePicker, et autres
Réponses
0
Affichages
2 K
mromain
  • Résolu(e)
XL 2016 Notation Simplifiée pour définir un tableau arborescent
Réponses
9
Affichages
1 K
Lu76Fer
K
  • Question Question
XL 2013 Erreur d’exécution... Sur le Clear d'une comboBox
Réponses
3
Affichages
1 K
Dranreb
P
  • Question Question
XL 2016 Erreur définie par l'application ou l'objet
Réponses
8
Affichages
1 K
Hasco
  • Résolu(e)
XL 2016 Erreur 381
Réponses
5
Affichages
877
R1-
M
  • Question Question
Microsoft 365 N'afficher que la dernière ligne d'un tableau dans listbox
Réponses
9
Affichages
963
meyscal
M
C
  • Question Question
XL 2016 liste déroulante dans combobox
Réponses
4
Affichages
2 K
Compte Supprimé 979
C
L
  • Question Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
3 K
lusert
L
J
  • Question Question
XL 2016 RESOLU Erreur d'exécution 5 - Argument ou appel de procédure incorrect
Réponses
11
Affichages
4 K
jorge1201
J
P
  • Question Question
Microsoft 365 Valeur dans liste déroulante passe à la suivante automatiquement - Userform VBA
Réponses
1
Affichages
2 K
Dranreb
P
  • Question Question
XL 2016 améliorer mon userform
Réponses
13
Affichages
2 K
PiLVaLK
P
J
  • Résolu(e)
XL 2016 RESOLU Saisie intuitive TextBox vers ListBox
2
Réponses
25
Affichages
4 K
jorge1201
J
  • Résolu(e)
Microsoft 365 Récupérer information à partir d'un autre classeur
2
Réponses
18
Affichages
2 K
Daher Ali
I
  • Question Question
Microsoft 365 Limiter la saisie aux éléments de la liste dans une ComboBox ou une TextBox
Réponses
6
Affichages
2 K
ivan27
I
K
  • Question Question
XL 2019 UserForm liste déroulante (cascade) avec ajout de données/modification
2 3
Réponses
38
Affichages
10 K
kinders59
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…