Comment récupérer plusieurs plages filtrées par AutoFilter ?

  • Initiateur de la discussion Initiateur de la discussion boulent
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

boulent

Guest
Bonjour à tous,

Je débute sur vba et j'ai un p'tit souci de programmation: Après avoir fait sous forme de macro un filtre personnalisé entre deux dates, je voudrais récupérer certaines données des cellules visibles.

J'ai trouvé cette programmation, mais elle ne me convient pas puisque elle sélectionne la plage A4 à E4! Or je vaudrais sélectionner seulement les données des colonnes A4 et E4

Selection.AutoFilter Field:=19, _
Criteria1:=">=" & Format(Range("N33"), "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(Range("N34"), "mm/dd/yyyy")
Range("A4:E4", [A65536].End(xlUp).Address).SpecialCells(xlCellTypeVisible).Select


Merci d'avance
Stephane
 
Re : Comment récupérer plusieurs plages filtrées par AutoFilter ?

Bonjour,
Or je vaudrais sélectionner seulement les données des colonnes A4 et E4
Que veux-tu dire par là ? A4 et E4 sont des cellules et non des colonnes. Si tu ne veux récupérer les données que des colonnes A et E tu peux remplacer ta dernière ligne par :

Code:
Union(Range("A4:A" & [A65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible), Range("E4:E" & [E65536].End(xlUp).Row).SpecialCells(xlCellTypeVisible )).select
 
Re : Comment récupérer plusieurs plages filtrées par AutoFilter ?

Merci softmama,

Effectivement je ne suis pas très clair dans mon énoncé mais ta réponse était la bonne, puisque ta programmation fonctionne.

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
620
Réponses
12
Affichages
1 K
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
579
P
Réponses
8
Affichages
1 K
L
Réponses
2
Affichages
1 K
Legendre
L
Réponses
8
Affichages
2 K
S
  • Question Question
XL 2013 Help VBA
Réponses
19
Affichages
2 K
Réponses
6
Affichages
1 K
L
  • Question Question
Réponses
0
Affichages
1 K
lycan54
L
T
Réponses
3
Affichages
2 K
TOTOEXCEL2019
T
M
Réponses
11
Affichages
2 K
Melidan2006
M
Retour