Pb Combo et Textbox, SVP

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Pb Combo et Textbox, SVP

miguel69

Fô bien s'entraider non ?

:hello: :hello: Bonjour à tous,
Mon pb est le suivant : sur une feuille excel j'ai des listes.
En col A "la liste CR", col B "la liste structures"
Sur ma forme j'ai une cboCR qui contient ma liste (par rowsource) "CR" et une cbounité(vide à l'affichage)
je souhaiterais qu'en choisissant une valeur dans cboCR, avoir uniquement la liste correspondante qui s'affiche dans la cbounité.
schéma :
A B
1. CR01 Pierre (ici si choix CR01 dans cboCR ==> affichage dans cbounité de Pierre
2. Paul Paul
3. Jacques Jacques
4. CR02 Henri
5. Michèle
..................................
et où mettre ce morceau de code ?
Encore merci pour votre aide
Miguel69

Publicité

ziold

L'original...

Tu pourrais mettre ça dans un truc genre cboCR_Change() (ou un truc comme ça...)

Code :

Dim iLine1, iLine2, iNbrLine As Integer
With Worksheets(1)
iNbrLine = 1
'Nombre de lignes du tableau
While .Cells(iNbrLine, 2).Value <> ""
iNbrLine = iNbrLine + 1
Wend
iNbrLine = iNbrLine - 1
'Recherche valeur que tu as entré
iLine1 = 1
While .Cells(iLine1, 1).Value <> cboCR.Text
iLine1 = iLine1 + 1
Wend
iLine2 = iLine1
'A partir de la ligne correspondant à ton choix, tu ajoute les éléments à ta deuxième CB
'jusqu'à avoir une valeur dans la remière colonne
While .Cells(iLine2, 1).Value = "" Or .Cells(iLine2, 1).Value <> cboCR.Text
cbounité.AddItem (.Cells(iLine2, 2).Value)
iLine2 = iLine2 + 1
Wend
End With

C à ajuster (au niveau des +1 / -1), C bourrin mais ça devrait marcher...

miguel69

Fô bien s'entraider non ?

Merci pour ta réponse rapide, c'est sympa.
J'ai mis le code dans l'événement xxx_change() de ma cbocr. OK. Lorsque je lance la form (no problémo) mais quand je choisis un CR, il "bosse" un moment puis m'envoie une erreur 1004 "erreur définie par l'appli ou par l'objet" ??
Tu vois qq chose ?

ziold

L'original...

Essaye de lancer le debugger (execution avec F8), voir où il bloque.
A mon avis C un problème de boucle infinie ou bien de syntaxe sur un de tes objets (Majuscule ???).
Pour limiter ce genre d'erreur met "Option Explicit" au tout tout début de ton code..

miguel69

Fô bien s'entraider non ?

Encore merci de ton aide.
La form se lancetrès bien maintenant, dans la cbocr j'ai la 1iste voulue, je choisis un item mais dans lalistbox listunité rien n'apparaît ???

ziold

L'original...

T'as utilisé le mode pas à pas ??
Tu lances le code à cbocr_change() ??? Essaye avec cbocr_click()..
Mais le mieux reste le mode pas à pas (F8), comme ça tu vois bien tout ce qui se passe...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Pb Combo et Textbox, SVP

Sujets relatifs
Lier un controle textbox à une propriete d'un objet	[VBA-EXCEL 2003] argument non facultatif pour textbox
[VBA-EXCEL 2003] [DONE]Date aujourd'hui dans valeur par defaut textbox	vba excel : probleme de textbox
Enregistrement du contenu d'une TextBox dans une variable (VB6)...	Aide sur un fichier Data...SVP
Appeler BDD phpMyAdmin en VB : comment faire SVP	Questionnaire metier de l'informatique SVP
Langage de prog. simple type BASIC pour RS232, vos idées SVP	(résolu) Boucle For each sur textbox dans userform
Plus de sujets relatifs à : Pb Combo et Textbox, SVP

Page générée en 0.037 secondes