Filtrer une ligne pour afficher une colonne

Résolu/Fermé
Papy_jeje Messages postés 4 Date d'inscription vendredi 25 décembre 2015 Statut Membre Dernière intervention 25 décembre 2015 - 25 déc. 2015 à 03:08
Papy_jeje Messages postés 4 Date d'inscription vendredi 25 décembre 2015 Statut Membre Dernière intervention 25 décembre 2015 - 25 déc. 2015 à 23:10
Bonjour,

Je ne sais pas si le titre est bien explicite donc je vais me détailler.

Je souhaite faire un filtre sur la ligne 1 afin de pouvoir afficher uniquement la colonne B.

vous trouverez ci joint un screen-shot de mon tableau actuel.

Merci par avance.


A voir également:

7 réponses

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 25/12/2015 à 17:17
Re,

on va essayer quand même, clic sur tes cellules fusionnées soit A1:E1 et défusionne tes cellules
sélectionne la cellule A1 et Données/Validation des données/sélectionne Liste/clic dans Source et pointe tes cellules de A2 à E2 et OK

sélectionne tes cellules A1:E1 et refusionne ces cellules

clic droit sur ton onglet de ta feuille/Visualiser le code, dans la partie vide colle ce code
Private Sub Worksheet_Change(ByVal target As Range)
Dim CellAdress, c As Range
On Error Resume Next
If Not Intersect(target, [A1]) Is Nothing Then
Application.ScreenUpdating = False
With ActiveSheet.Range("2:2")
Set c = .Find([A1], LookIn:=xlValues)
CellAdress = c.Address
End With
Range(CellAdress).Select
Columns("A:E").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
Application.ScreenUpdating = True
End If
Range("A1:E1").Select
End Sub


revient sur ta feuille de calcul et teste le code en sélectionnant un mot dans tes cellules fusionnées sur ta ligne 1
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
1
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 25/12/2015 à 19:03
Re,

reprend mes explications sur le post précédent mais colle ce code plus complet

Private Sub Worksheet_Change(ByVal target As Range)
Dim CellAdress, c As Range
On Error Resume Next
If Not Intersect(Selection, [A1:E1]) Is Nothing Then
Application.ScreenUpdating = False
Columns("A:E").EntireColumn.Hidden = False
With ActiveSheet.Range("2:2")
Set c = .Find([A1], LookIn:=xlValues)
CellAdress = c.Address
End With
Range(CellAdress).Select
Columns("A:E").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
Application.ScreenUpdating = True
Range("A1:E1").Select
End If
End Sub


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
1
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
25 déc. 2015 à 08:48
Bonjour,

pas très clair comme explication, tu peux développer ta demande s'il te plait sur ce que tu veux faire.
0
Papy_jeje Messages postés 4 Date d'inscription vendredi 25 décembre 2015 Statut Membre Dernière intervention 25 décembre 2015
25 déc. 2015 à 15:58
Bonjour,

Je souhaiterais que la cellule fusionné de la ligne 1 possède un menu déroulant avec en choix les critères de la ligne 2. Si "a" est sélectionné, faire disparaître les autres colonnes.

J'espère que je suis plus clair.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
25 déc. 2015 à 16:02
Re,

pour la liste de validation sur ta première ligne, pas de problème, par contre pour masquer les cellules il y a une par de code VBA si tu as quelques notions
0
Papy_jeje Messages postés 4 Date d'inscription vendredi 25 décembre 2015 Statut Membre Dernière intervention 25 décembre 2015
25 déc. 2015 à 16:15
Re,

VBA je ne m'en suis jamais servis.
Un filtre ne peut pas fonctionner ? Car lorsque j'applique un filtre sur la ligne 1 j'obtiens uniquement les valeurs de la colonne A.
0
Papy_jeje Messages postés 4 Date d'inscription vendredi 25 décembre 2015 Statut Membre Dernière intervention 25 décembre 2015
25 déc. 2015 à 23:10
Super !!!
Merci ça fonctionne parfaitement comme j'avais envie avec le deuxième code.
J'ai re-fusionner les cellules A1:E1 à la fin car sinon je ne pouvais pas refaire de sélection.

T'es explications on été très claires et très précises. Un bon démarrage sur VBA.

Merci encore ;)
0