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
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
A voir également:
- Filtrer une ligne pour afficher une colonne
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Figer une colonne excel - Guide
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
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
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.
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.
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
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
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
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.
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
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.
pas très clair comme explication, tu peux développer ta demande s'il te plait sur ce que tu veux faire.
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
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.
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.
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
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
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
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
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.
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.
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
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 ;)
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 ;)