VBA/ Macro extraire automatiquement une plage de donnée filtrée
Résolu/Fermé
med_mugen
Messages postés
80
Date d'inscription
lundi 15 juin 2015
Statut
Membre
Dernière intervention
8 juin 2016
-
15 juin 2015 à 18:13
med_mugen Messages postés 80 Date d'inscription lundi 15 juin 2015 Statut Membre Dernière intervention 8 juin 2016 - 17 juin 2015 à 11:19
med_mugen Messages postés 80 Date d'inscription lundi 15 juin 2015 Statut Membre Dernière intervention 8 juin 2016 - 17 juin 2015 à 11:19
A voir également:
- Macro extraire des données d'un tableau excel vers un autre tableau
- Tableau croisé dynamique - Guide
- Tableau ascii - Guide
- Comment faire un tableau - Guide
- Trier un tableau excel - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
4 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
15 juin 2015 à 18:46
15 juin 2015 à 18:46
Bonjour,
Pour insérer un fichier :
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers#q=cjoint&cur=2&url=%2F
En attendant, tu peux essayer :
A+
Pour insérer un fichier :
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers#q=cjoint&cur=2&url=%2F
En attendant, tu peux essayer :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$U$319" Then
Range("A363", Range("A65536").End(xlUp)).ClearContents
With Sheets("base de données France")
.Range("A4").AutoFilter Field:=1, Criteria1:=Range("U319")
.Range("E5:E" & .Range("E65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Destination:=Range("A363")
End With
End If
End Sub
A+
Modifié par med_mugen le 15/06/2015 à 18:53
https://www.cjoint.com/c/EFpqYpfVuQu
Modifié par med_mugen le 15/06/2015 à 19:03