COMBOBOX - VB/VBA/VBS - Programmation
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) "
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
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.
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!!!
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.
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!!
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