rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Liste sous excel

Sandra, le vendredi 18 mai 2007 à 17:54:17
Bonjour à tous !!

Je suis en ce moment en train de faire un doc sous excel pour le boulot et voila ce que j'essaie de faire, mais en vain :

Pour faire simple voici un exemple :

J'ai une liste de mobiliers, une partie de cette liste concerne le mobilier d'une salle de bain (baignoire, douche, WC,...), la seconde partie concerne le mobilier d'une cuisine (table, chaise, cuisinière, four,...).

J'ai donc créé 2 listes sous excel : 1 me permettant de dire si la pièce concernée est la salle de bain ou la cuisine et la 2ème pour choisir le mobilier.

Le pb est que je n'arrive pas à relier les 2 listes entre elles. Autrement dit, quand je sélectionne dans une case la salle de bain (avec la liste) j'aimerais que dans la collone d'à côté, seuls les meubles de la salle de bain me soient proposés et non tous les meubles. Une première sélection est ainsi faite automatiquement juste en choisissant la pièce concernée.

Voila, c'est tout. Je sais pas si c'est compliqué à faire.

Si quelqu'un a une solution à me proposer, je suis preneuse.

Merci pour votre aide !!

A+
Configuration: Windows XP
Internet Explorer 6.0
Répondre à Sandra  Signaler ce message aux modérateurs Aller au dernier message

1


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le vendredi 18 mai 2007 à 19:20:21
Bonjour Sandra,

exemple :

Postulat :

Je nomme la première liste [ Piece ] avec les valeurs
en [ A16 et A17 ], valeurs [ Cuisine ] et [ Salle De Bain ].

Em mode création, un double clic sur cette première liste
t'amène à la routine de l'évènement : 

Private Sub Piece_Change()

    Select Case (Piece.Value)
        Case "Cuisine": Mobilier.ListFillRange = "$D16:$D18"
        Case "Salle De Bain": Mobilier.ListFillRange = "$C16:$C18"
    End Select
    
End Sub
'


en ayant placé les deux listes de mobiliers en $D16:$D18
et $C16:$C18.

donc le contenu de la liste [ Mobilier ] sera fonction du choix
de la liste [ Piece ].

Lupin
   
Répondre à Lupin.A

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Sandra, le samedi 19 mai 2007 à 00:26:01
Resalut !!

Je te remercie pour ta réponse mais j'ai oublié de préciser que j'y connais pas grand chose en macro sous excel.

J'imagine que le petit prog à lui tout seul ne suffit pas.

Si t'as d'autres éléments à me fournir ...

A+
   
Répondre à Sandra

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le samedi 19 mai 2007 à 13:33:12
Bonjour Sandra,

Je refais l'exemple :

Procédons par étape ...

1.) En [ $A16 et $A17 ], j'inscris les valeurs [ Cuisine et Salle de bain ]

2.) J'insère une première liste déroulante que je nomme [ Piece ]

3.) Dans les propriétés de la liste [ Piece ], j'incris la valeur :
.....[ $A16:$A17 ] à la propriété [ ListFillRange ]

4.) En [ $C16 à $C20 ], j'inscris le mobilier de la cuisine, soit :
.....[ Cuisinière, Frigidaire, Table, Chaise, Micro-ondes ]

5.) En [ $D16 à $D20 ], j'inscris le mobilier de la salle de bain, soit :
.....[ Baignoire, Lavabo, Toilette, Laveuse, Sècheuse ]

6.) J'insère une deuxième liste déroulante que je nomme [ Mobilier ]

7.) Double clic sur le première liste déroulante pendant que je
.....suis en mode création ( ... je viens d'insérer la liste 2 ... )

8.) J'attéris dans l'éditeur de visual basic dans l'évènement : 

Private Sub Piece_Change()

 
End Sub


9.) J'y rajoute le code fournit précédament : 

Private Sub Piece_Change()

    Mobilier.Value = ""
    Select Case (Piece.Value)
        Case "Cuisine": Mobilier.ListFillRange = "$C16:$C20"
        Case "Salle De Bain": Mobilier.ListFillRange = "$D16:$D20"
    End Select
 
End Sub
'


10.) Je reviens à la feuille Excel et je quitte le mode création.

Est-ce plus clair ?

Lupin
   
Répondre à Lupin.A

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Sandra, le samedi 19 mai 2007 à 20:34:55
Je te remercie !!

T'es le meilleur !!

Ca marche trop bien, c'est exactement ce que je voulais.

A+
   
Répondre à Sandra

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Cescu2B, le lundi 2 juillet 2007 à 17:01:21
Bonjour tout le monde,

je suis tombé sur cette discussion qui m'interesse au plus haut point. En effet, je suis confronté au même problème et j'ai étudié l'exemple au-dessus mais je n'arrive pas à l'appliquer. J'ai quelques coins d'ombre qui subsistent :

3.) Dans les propriétés de la liste [ Piece ], j'incris la valeur :
.....[ $A16:$A17 ] à la propriété [ ListFillRange ]
<--- je n'y arrive pas. Peux-tu être plus précis? Je travaille avec Excel 2003...


7.) Double clic sur le première liste déroulante pendant que je
.....suis en mode création ( ... je viens d'insérer la liste 2 ... )

8.) J'attéris dans l'éditeur de visual basic dans l'évènement :

<--- je n'y arrive pas du tout. Peux-tu là aussi donner plus de détails??

En tout cas merci pour ce post
A+
   
Répondre à Cescu2B

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le mardi 3 juillet 2007 à 14:50:44
Bonjour,


Étape 3 ...

Avez vous afficher la barre d'outils [ Boite à outils Contrôles ].

Le deuxième icône est l'appel des propriétés de l'objet. Donc un clic sur la liste déroulante,
et un clic sur l'icône [ Propriétés ].

Vous devriez trouver la propriété [ ListFillRange ].

Étape 7 ...

Pour accéder à l'éditeur VB [ VBE ], --->>>

// Menu Excel / Outils / Macro / Visual Basic Editor [ Alt-F11 ]

À gauche, dans la fenêtre [ Projets ], rechercher le nom de la feuille sur laquel sont
disposé les listes déroulantes et y effectuer un double clic.

Dans la fenêtre de droite ( fenêtre du code ), il y a 2 listes déroulante en haut.

Celle de gauche pointe sur les objets ( en l'occurence les listes déroulantes ).
Celle de droite pointe sur les évènements ( repérer l'évènement [ Change ] ).

dans les limites de cette routine, placé le code : 

Private Sub Piece_Change()

 
End Sub
'




Private Sub Piece_Change()

    Mobilier.Value = ""
    Select Case (Piece.Value)
        Case "Cuisine": Mobilier.ListFillRange = "$C16:$C20"
        Case "Salle De Bain": Mobilier.ListFillRange = "$D16:$D20"
    End Select
 
End Sub
'


Est-ce plus clair pour vous ?

Lupin
   
Répondre à Lupin.A

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Cescu2B, le mardi 3 juillet 2007 à 15:26:04
Salut Lupin et merci de me répondre,

je suis à l'étape 3 et je vais détailler tout ce que je fais pour être sûrs que l'on parle de la même chose :

- en A16 j'écris Cuisine en A17 Salle de bain
- je précise que boite à outils Control est bien affichée
- je selectionne mes deux cellules puis je fais Insertion->nom->Définir et je donne le nom : Piece
-en mode création, je clique sur le 2ème icone propriétés mais je n'ai que les propriétés de la WorkShe et rien d'autre
En fait je suis bloqué pour obtenir les proprités de ma liste nommée Pieces.

Je précise que je travaille avec Office 2003. Cela a t'il une incidence.

Merci et A+
   
Répondre à Cescu2B

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le mardi 3 juillet 2007 à 15:34:07
re :

je cite :

-en mode création, je clique sur le 2ème icone propriétés mais je n'ai que les propriétés de la WorkShe et rien d'autre ...

à ce moment, c'est que le focus est sur la feuille et non sur la liste déroulante.

Si tu vois la fenêtre des propriétés qui pointe sur la forme, sélectionne à ce moment la liste
déroulante, la fenêtre des propriétés devrait alors afficher les propriétés de la liste déroulante.

y arrive-tu ?

Lupin
   
Répondre à Lupin.A

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Cescu2B, le mardi 3 juillet 2007 à 15:45:11
Re

arrivé à la fenêtre propriétés, dans la liste déroulante, je n'ai que Feuil1 WorkSheet et rien d'autre.
Ai-je bien constitué ma liste?

Merci A+
   
Répondre à Cescu2B

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le mardi 3 juillet 2007 à 16:29:03
re :

peux-tu voir et ce de façon simultanné :

La feuille, la liste déroulante et la fenêtre des propriétés !

si et seulement si tu peux voir les 3, en cliquant sur la liste déroulante, le titre
de la fenêtre des propriétées devrait changer pour : [ Piece ComboBox ].

Je ne crois pas que XL2003 soit différent de XL2002 pour ce paramètre !

Lupin
   
Répondre à Lupin.A

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Cescu2B, le mercredi 4 juillet 2007 à 01:20:14
Re

Non, désolé, je ne vois que Feuil1 Worksheet dans la liste déroulante de la fenêtre propriétés.

A+
   
Répondre à Cescu2B

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Lupin.A, le mercredi 4 juillet 2007 à 13:29:16
Bonjour,

alors quelques pistes de solutions :

a) ici, un visuel de ce que je tente de t'expliquer :

http://membre.oricom.ca/lupin/documents/liste_deroulante.jpg­

b) une routine a tester : 

Sub Insere_Coordonnees()

    Sheets("Feuil1").Piece.ListFillRange = "A8:A9"
    Sheets("Feuil1").Mobilier.ListFillRange = "A12:A16"
    
End Sub
'


ou [ Piece ] et [ Mobilier ] sont les noms des objets [ listes déroulantes ].

Bon courage !

Lupin
   
Répondre à Lupin.A

14


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Lupin.A, le vendredi 6 juillet 2007 à 14:59:46
n.b.

le lien vers mon site n'est plus valide !

Lupin
   
Répondre à Lupin.A

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Cescu2B, le jeudi 5 juillet 2007 à 10:24:17
Merci Lupin
J'ai trouvé mon erreur. J'allais dans liste et pas dans liste déroulante.
Merci encore pour ta disponibilité. C'est ton lien qui ma fait réaliser où était le pb. Lorsque j'ai vu ComboBox j'ai tout compris.
A+
   
Répondre à Cescu2B
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Ms Word Excel Cracker 2.2Ms Word Excel Cracker - Ms Word Excel Craker est une application permettant de retrouver les mots de passe perdus ou oubliés pour les fichiers.xls...Catégorie: Suite bureautique
Licence: Freeware/gratuit
Télécharger MOREFUNC (Macro complémentaire EXCEL) 5.06MOREFUNC (Macro complémentaire EXCEL) - Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger ConnectCode Free Excel Training 1.01ConnectCode Free Excel Training - Office Excel est un incontournable quand on utilise Windows comme l'est Word. Néanmoins son utilisation n'est pas des plus...Catégorie: Bureautique
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Liste sous excel »