Excel 2013 - Macro - Filtre d'une liste apres clic cell
Résolu/Fermé
Gate31
Messages postés
1
Date d'inscription
mardi 10 novembre 2015
Statut
Membre
Dernière intervention
10 novembre 2015
-
10 nov. 2015 à 12:33
Gate14 Messages postés 1 Date d'inscription lundi 3 novembre 2008 Statut Membre Dernière intervention 27 novembre 2015 - 27 nov. 2015 à 14:12
Gate14 Messages postés 1 Date d'inscription lundi 3 novembre 2008 Statut Membre Dernière intervention 27 novembre 2015 - 27 nov. 2015 à 14:12
A voir également:
- Excel 2013 - Macro - Filtre d'une liste apres clic cell
- Liste déroulante excel - Guide
- Photo filtre gratuit - Télécharger - Retouche d'image
- Excel 2013 gratuit - Télécharger - Tableur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word 2013 free download - Télécharger - Traitement de texte
1 réponse
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
23 nov. 2015 à 04:30
23 nov. 2015 à 04:30
Bonjour
Dans le module de la feuille
Dans un module classique
Il semblerait que les mois en ligne 1 de la feuille "2015" , soient dans des cellules fusionnées, si ce n'était pas le cas veuillez remplacer la ligne suivante du module de la feuille
par
Cdlt
Dans le module de la feuille
Option Compare Text Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row < 3 Then Exit Sub If Cells(2, Target.Column) = "Réel" Then Catégorie = Cells(Target.Row, 1) Mois = Format(Cells(1, Target.Column - 1), "m/d/yyyy") Call ExtraireDonnées End If End Sub
Dans un module classique
Option Compare Text Public Catégorie Public Mois Sub ExtraireDonnées() Sheets("Détail 2016").Select Range([A2], [H1000].End(xlUp).Offset(3, 0)).AutoFilter Field:=1, Criteria1:=Catégorie Range([A2], [H1000].End(xlUp).Offset(3, 0)).AutoFilter Field:=2, Operator:=xlFilterValues, Criteria2:=Array(1, Mois) End Sub
Il semblerait que les mois en ligne 1 de la feuille "2015" , soient dans des cellules fusionnées, si ce n'était pas le cas veuillez remplacer la ligne suivante du module de la feuille
Mois = Format(Cells(1, Target.Column - 1), "m/d/yyyy")
par
Mois = Format(Cells(1, Target.Column), "m/d/yyyy")
Cdlt
27 nov. 2015 à 14:12
Un grand merci pour votre aide, cela fonctionne parfaitement !
Bonne continuation,