Erreur validation lisbox avec textbox et combobox
sormick
-
sormick -
sormick -
Bonjour,
j'ai créé plusieurs codes vba avec deux textbox et un combobox .lorsque je saisis une valeur dans un des textbox je valide cette valeur dans un listbox. Ensuite je choisis une valeur dans le combobox .Cette valeur doit également s'afficher dans le même listbox et là ça ne marche pas bien car la valeur validée de la combobox ne s'affiche pas sur la listbox.
je vous envoie mon fichier car c'est pas évident à expliquer.vous pouvez voir mes codes VBA
voici le fichier:
http://cjoint.com/?0ADn613Gsap
j'ai créé plusieurs codes vba avec deux textbox et un combobox .lorsque je saisis une valeur dans un des textbox je valide cette valeur dans un listbox. Ensuite je choisis une valeur dans le combobox .Cette valeur doit également s'afficher dans le même listbox et là ça ne marche pas bien car la valeur validée de la combobox ne s'affiche pas sur la listbox.
je vous envoie mon fichier car c'est pas évident à expliquer.vous pouvez voir mes codes VBA
voici le fichier:
http://cjoint.com/?0ADn613Gsap
A voir également:
- Erreur validation lisbox avec textbox et combobox
- Excel validation des données liste - Guide
- Commande en cours de validation fnac - Forum Réseaux sociaux
- Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur t32 ✓ - Forum Livebox
1 réponse
Bonjour,
C'est juste une histoire d'affichage dans l'UserForm.
Ajoute simplement un DoEvents dans ton code de bouton, comme ceci :
C'est juste une histoire d'affichage dans l'UserForm.
Ajoute simplement un DoEvents dans ton code de bouton, comme ceci :
Private Sub CommandButton34_Click()
Sheets("macros").Range("a331").Value = ""
Me.ListBox1.Clear
If Not Sheets("macros").Range("e1").Value = "" Then
If Not Sheets("macros").Range("e2").Value = "" Then GoTo suite
Me.ListBox1.AddItem Sheets("macros").Range("e1").Value
End If
suite::
On Error Resume Next
ListBox1.List = Sheets("macros").Range("e1:e" & Sheets("macros").Columns(5).Cells.Find("*", , , , xlByColumns, xlPrevious).Row).Value
Me.ListBox1.AddItem Me.ComboBox1.Value
DoEvents '***************************ICI ça semble pas trop mal
Sheets("macros").Range("e1:e" & ListBox1.ListCount) = ListBox1.List
Me.ComboBox1.Value = ""
End Sub
je viens de tester le doEvents mais malheureusement le problème est toujours le même.
les premieres validations de la combobox1 ne s'affichent toujours pas dans le listbox1
oui ils apparaissent sur la feuille macros.
je voudrais signaler quelque chose.
la macro qui est dans le bouton pour valider le combobox1 j'ai fais un test.
j'ai supprimé toutes les macros à l'intérieur de ce bouton.
et à la place j'ai mis ce code.
me.listbox1.additem "test"
et là on a exactement le même problème.
lorsqu'on démarre ce tableau excel et qu'on clique sur le bouton pour valider le combobox1 ça marche mais lorsqu'on démarre ce tableau , qu'on saisi un pays dans le texbox1 ,q'uon valide le pays dans le listbox et enfin qu'on clique sur le bouton du combobox1 absolument rien ne s'affiche dans le listbox1 alors que j'ai rajouté ce code: me.listbox1.additem "test"
quelqu'un peut t'il m'aider à ce sujet?
merci