Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Marco
  • 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 !

M

Marco

Guest
VOIR FICHIER JOINT
CE PROBLEME EST SIMPLE MAIS TROP COMPLEXE POUR UN NOVICE COMME MOI ET POURTANT J EN AI TELLEMENT BESOIN POUR LA SUITE DE MON TRAVAIL DE FIN D ETUDE.
SI VOUS EN AVEZ LE COURAGE JETEZ Y UN OEIL
MERCI D AVANCE
 
MARCO,

Cesse de crier, cela agresse nos oreilles !
Bonjour, j'm'appelle Marco et j'ai un problème...c'est pas mal aussi !

Enfin, t'as oublié la pièce jointe.

J'ai bien peur que TU N'AIS PAS DE REPONSE :angry:

Message édité par: mrexcel, à: 14/03/2005 19:11
 
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

Exemple : Je choisis Alimentation qui me renvoie à cette feuille . Alors je choisis ds la colonne A (combobox Marque) Boucher et là j aimerais voir apparaître ds la combobox Classe la liste bœuf saucisson jambon mais je n y arrive pas ………




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
 
- 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

  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
642
K
  • Question Question
Réponses
8
Affichages
1 K
Réponses
9
Affichages
971
N
  • Question Question
Réponses
4
Affichages
935
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…