Creer des groupes

Bonjour,

voila j'ai créer un tableau avec plusieurs lignes et plusieurs colonnes

explication:

j'ai mis une colonne "noms produits" "adresses fournisseur"

et une autre ou j'ai créer une liste déroulante en marquant les "activité"

dans les activités j'ai mis "stations" maintenances" "tous.

je voudrais en fait quand je selectionne dans ma liste déroulante "tous" que tous les produits apparaisent et lorsque je selectionne par exemple "stations" seuls les produits du secteur "stations " apparaissent.

comment dois je faire???

merci d'avance

Bonjour,

DJOULY a écrit :

comment dois je faire???

Nous joindre ton fichier (ou un extrait).

Ca nous évitera de devoir le reconstituer et surtout on pourra apporter une réponse appropriée.

A te (re)lire avec ce fichier exemple

@+

j'avais parlé simlement de 2 colonnes, bien évidemment x'est la ligne complète qui doit apparaitre si je selectionne "stations"

merci de m'accorder un peu de ton temps.

re,

es-tu sûr d'avoir joint le bon fichier ?

Il n'y a qu'un seul onglet de complété et je ne vois pas de trace de liste déroulante.

A te (re)lire avec un fichier plus complet

@+

Bonsoir à tous,

thibo, la liste est en A9

DJOULY, il faudrait quand même remplir quelques données

dans les feuilles.

Amicalement

Claude

bonsoir,

en effet la liste déroulante est en A.

claude les feuilles vont être effacés car comme je ne trouvais pas comment faire le pourquoi de mon arrivé ici, j'allais faire un tableau par feuille!!

je vous donne plus d' explications car je ne sais pas si je suis clair!

voilà ce que je voudrais:

j'ai crée une liste déroulante avec "tous" et "stations" et d'autres.

je voudrai quand je selectionne "tous" que les 5 produits que j'ai noté apparaissent.

en revanche je voudrais si je selectionne "stations" avoir le produit "hydrex 2110" et "hydrex 2210".

si je selectionne "maintenance" je voudrais qu'on vois "acide chlorhydryque" et "hydrex 2110".

voilà, j'espere avoir était plus clair dans les explications!

merci pour votre rapidité!!

Bonjour,

DJOULY a écrit :

en revanche je voudrais si je selectionne "stations" avoir le produit "hydrex 2110" et "hydrex 2210".

si je selectionne "maintenance" je voudrais qu'on vois "acide chlorhydryque" et "hydrex 2110"

Je n'avais pas vu au début que la liste déroulante était en A9.

Sinon, j'ai bien compris ce que tu voulais. Mais tes feuilles Recyclages, Station Dégrémont, ...., Maintenance sont vides de toutes données.

Reviens avec un fichier complet (données sur chaque onglet). Ce sera alors bien plus facile pour t'aider.

A te (re)lire

@+

Bonjour à tous,

Règle N°1

Pas de cellules fusionnées inutilement, ni bordures excessives !

çà bouffe de la mémoire pour rien et perturbe les macros.

Vois ton fichier remanié,

ici, j'ai créé une liste "Famille" qui servira de filtre

il faudrait le compléter pour affiner

Amicalement

Claude

édit: avec le filtre, pas besoin de trier

bonjour,

ok merci claude! je prend note qu'il ne faut pas trop fusinner les cellules!!

par contre quand je selectionne dans la liste déroulante, il ne se passe rien.

je rajouterai "tous" dans la liste déroulante pour que tous les produits apparaissent, mais j'aimerai que si je met "station dégrémont" seule une partie s'affiche.

tu vois ce que je veux dire?

merci beaucoup en tout cas

re,

quand je selectionne dans la liste déroulante, il ne se passe rien.

les macros doivent être activées !

vérifie déjà çà

Claude

re,

voila ce qu'il me marque quand je télécharge "Ce classeur a perdu son projet VBA, ses contrôles ActiveX et d'autres fonctionnalités liées à la programmabilité."

puis je quand même retrouver les infos?

merci

re,

quand tu clique droit sur l'onglet de la 1ère feuille,

"Visualiser le code" tu as bien ce code VBA ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("c6")) Is Nothing Then
        Application.ScreenUpdating = False
        On Error Resume Next
            ActiveSheet.ShowAllData
        On Error GoTo 0
        Range("a9") = "=b10=$c$6"
        If Target.Count > 1 Or Target = "" Then Exit Sub
        Range("b9:g" & [b65000].End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterInPlace, CriteriaRange:=Range("a8:a9"), Unique:=False
        Application.Goto Range("a1"), Scroll:=True
        Range("a9").ClearContents
        Target.Activate
    End If
End Sub

à te relire

Amicalement

Claude

re,

il y a bien marqué "visualiser code", en revanche je ne peux pas cliquer dessus

il est ecrit en clair si je peux dire ca comme cela alors que les autres sont en noirs.

re,

On parle bien du fichier que j'ai joint ?

essaye de le supprimer et de le recharger

tu dois avoir un problème d'activation des macros

Claude

édit: sur quelle Version d'Excel ?

re,

oui oui je parle du fichier que tu m'as envoyé

j'ai la version 2007.

je l'ai déjà plusieurs fois téléchargé mais ca ne donne rien!

re,

Je ne comprends pas !

si quelqu'un pouvait nous confirmer si mon fichier fonctionne ?

Claude

re,

oui car je ne suis pas un pro de l'exel!

il y a surement une manip a faire que je n'ai pas fait!

merci

Bonjour DJOULY

Bonjour dubois

Bonjour à tous

Pour info

le fichier de Claude fonctionne sous 2003

Bonne journée

bonsoir,

en effet cela marche avec la version 2003!

sper

merci beaucoup claude!

par contre pourrais tu stp m'expliquer comment il faut procéder???

car sinon je vais devoir t'embaucher pour créer mes tableaux!!

bonne soirée!

Bonjour,

Je t'ai laissé ta feuille d'origine, compare avec la mienne,

tu auras déjà fait un grand pas !

Bon courage

Claude