COMBOBOX

COMBOBOX - VB/VBA/VBS - Programmation

Marsh Posté le 14-03-2005 à 15:36:48    

J AI UNE LISTBOX NOMME ONGLET UNE COMBOBOX NOMME MARQUE ET UNE DEUXIEME NOMME CLASSE. La listbox renvoie a une feuille du classeur, la combobox nommé MARQUE renvoie à une liste dans la colonne A. Jusque là tout est ok... APRES AIE(ligne de pointillé----). J aimerai que le choix effectué dans cette combobox renvoie à une liste (dépendant des lignes) ds la combobox CLASSE.  
 
Présentation feuille excel
 
        A            B       C        D
1   Boulanger     pain     bonbon    tarte
2   Boucher       boeuf    saucisson jambon
3   Restaurant    entree   plat      dessert
 
Programme
 
 
 
Private Sub Onglets_Change()
Dim OngletSelect As Integer
' Déterminer la ligne sélectionnée dans la liste déroulante
    OngletSelect = ListeDeroulanteCombinee.Onglets.ListIndex + 2
' Mise à jour ComboBox Modele et Type
    Dim DerniereMarque As String
    Sheets(OngletSelect).Activate
    DerniereMarque = Range("A1" ).End(xlDown).Address
    Marque.RowSource = "A1:" & DerniereMarque
    Marque.ListIndex = 0
 ---------------------------------------------------------------------    
    Dim Classix As Integer
    Classix = ListeDeroulanteCombinee.Marque.ListIndex
    Classe.RowSource = B Classix.End(xlToRight)
    Classe.ListIndex = 0
    End Sub

Reply

Marsh Posté le 14-03-2005 à 15:36:48   

Reply

Marsh Posté le 14-03-2005 à 17:40:43    

Essaie : " Classe.RowSource = Range("B" & Classix).End(xlToRight) " à la place de " Classe.RowSource = B Classix.End(xlToRight) "


Message édité par knakes le 14-03-2005 à 17:41:39
Reply

Marsh Posté le 14-03-2005 à 18:46:32    

Tout d abord merci pour ta reponse KNAKES.
j ai essaye de faire comme tu m as suggéré et il n apprecie pas B Classix.End(xlToRight) " !!! c est etonnant qu il ne veuille pas accepté la ligne comme liste. La variable Classix est elle bonne? Peut on ecrire B Classix. Ce probleme  me bloque pour la suite de mon travail et vraiment je ne vois pas comment contyourner le probleme pour avoir un tableau aussi simple

Reply

Marsh Posté le 14-03-2005 à 18:53:28    

As tu bien lu ?

Citation :

Essaie : " Classe.RowSource = Range("B" & Classix).End(xlToRight) " à la place de " Classe.RowSource = B Classix.End(xlToRight) "

et non l inverse.

Reply

Marsh Posté le 14-03-2005 à 19:07:39    

Et encore une surbrillance jaune sur la ligne que je viens de changer. la solution que tu m as proposé me semblait correct. comme si on ne pouvait pas selectionné une ligne ........
Je suis novice pourtant ca me semble faisable. A dire vrai ca fait partie de mon travail de fin d etudes et j y ai planché dessus toute la journée ss succes!!!

Reply

Marsh Posté le 15-03-2005 à 08:03:47    

A L AIDE ......

Reply

Marsh Posté le 15-03-2005 à 12:12:56    

J'ai cherché et je cherche encore ... une réponse dans la soirée peut être.

Reply

Marsh Posté le 15-03-2005 à 13:20:20    

MARRE DES DOUBLES POSTS POUR UN MEME SUJET!!!!!!!  
J'ai répondu dans l'autre avant de voir celui-ci...  
Plus que chiant!!


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed