Contenu récent par job75

Bonjour Daniel200666, François, Vraiment pas clair, en tout cas moi je ne comprends pas ce que vous voulez faire. A+

Heureux que mes solutions vous conviennent. Dans cette dernière version les tableaux de restitution sont des tableaux structurés. En dehors des tableaux la police de base est Calibri 11. Edit : pour les fichiers .xlsx j'ai ajouté un test avant chaque filtration : If...

Remove.Duplicates introduit des cellules vides non formatées, il faut les supprimer : '---supprime les lignes vides--- F1.Rows(F1.Range("H" & F1.Rows.Count).End(xlUp).Row + 1 & ":" & F1.Rows.Count).Delete F2.Rows(F2.Range("H" & F2.Rows.Count).End(xlUp).Row + 1 & ":" & F2.Rows.Count).Delete C'est...

Alors utilisez FileDialog pour rechercher les dossiers que vous voulez, voyez les fichiers joints : Set dossier = Application.FileDialog(msoFileDialogFolderPicker) 'recherche un dossier Vous pouvez si nécessaire préciser les noms des fichiers avec l'instruction : fichier = Dir(chemin & "*.xlsx")...

Bonjour Magnio, le forum, Allons Magnio ce n'est pas un problème il suffit d'adapter le chemin. Si les fichiers à traiter sont dans le dossier "Import" vous pouvez écrire par exemple : chemin = ThisWorkbook.Path & "\Import\" 'dossier à adapter A+

L'aide de qui ? Votre aide paraît plus appropriée mais Xl60PassionFr a préconisé le bouton.

Bonjour le forum, Pour pouvoir exécuter une macro quand le 1er UserForm est ouvert il faut le désactiver en cliquant sur une cellule de la feuille. A+

Bonjour le forum, S'il y a beaucoup de fichiers .xlsx à traiter la macro précédente prendra pas mal de temps. C'est dû au fait qu'il faut ouvrir et fermer chaque fichier. Pour aller vite il faut utiliser des fichiers CSV et les ouvrir en lecture séquentielle : Sub ImporterFiltrer() Dim t, F1...

Bonjour le forum, Il suffit de ne pas utiliser .LinkedCell et d'utiliser le fichier du post #15 avec ComboBox1_Change. A+

Bonsoir Magnio, sylvanu, On peut importer et filtrer par le filtre automatique tous les fichiers .xlsx situés dans un même dossier. Avec cette solution le fichier .xlsm de la macro doit être dans ce même dossier : Sub ImporterFiltrer() Dim t, F1 As Worksheet, F2 As Worksheet, chemin$...

Toutes les cellules sont au format Standard, mettre un format Nombre en colonne D ne change rien.

Par curiosité sur mon fichier du post #12 j'ai utilisé la propriété .LinkedCell (sans la macro ComboBox1_Change). Inconvénient : dans la cellule active liée on obtient des valeurs textes et pas des nombres.

Salut bakerman2, Chez moi avec 2 fichiers de 450K lignes la macro du post #8 s'exécute en 12,5 secondes. A+

Bien sûr il vous faut utiliser une macro ComboBox1_Change, je supposais que vous l'aviez créée.

Pour tester ce n'est pas difficile de copier 57 fois chacun des 2 fichiers .xlsx qui ont été fournis.