Contenu récent par DaMoon

  1. D

    Macro Filtre + Suppression + Sous Total

    Re : Macro Filtre + Suppression + Sous Total Merci PierreJean c'est parfait. :) Je te souhaite une bonne semaine !
  2. D

    Macro Filtre + Suppression + Sous Total

    Re : Macro Filtre + Suppression + Sous Total En fait, en testant sur mon fichier complet, ça bloque excel :( EDIT : Ca prend bien 10-15minutes sur le fichier complet ^^
  3. D

    Macro Filtre + Suppression + Sous Total

    Re : Macro Filtre + Suppression + Sous Total C'est parfait :) C'est un peu lent en éxecution, mais comme je ne l'utileserai q'une fois par mois (environ) ça me va amplement. Merci beaucoup ! :cool:
  4. D

    Macro Filtre + Suppression + Sous Total

    Re : Macro Filtre + Suppression + Sous Total Bonjour PierreJean, Tout d'abord merci de t'interesser à mon cas :) Je ne comprend pas très bien le résultat de ta macro :confused: Mais ça vient de mon explication je pense :D Je vais tenter d'expliquer un peu mieux. Dans le fichier, chaque...
  5. D

    Macro Filtre + Suppression + Sous Total

    Bonjour à tous, J'aimerai faire des modifications sur un fichier excel. => Suppression des lignes où la colonne Notes contient "All glued in place" => Modifications du fichier : Pour une description et une couleur donnée : Il y a plusieurs lignes à cause d'une colonne Notes différentes...
  6. D

    Extraction de plusieurs CSV

    Re : Extraction de plusieurs CSV J'ai trouvé cette ligne qui fonctionne : Worksheets(2).Cells(i, 3).Value = Replace(Worksheets(2).Cells(i, 3).Value, Chr(34) & Chr(59) & Chr(34), "Comma") Elle remplace bien les points par des virgules, par contre je la comprend pas :D
  7. D

    Extraction de plusieurs CSV

    Re : Extraction de plusieurs CSV On a le droit de poster 2 fois de suite ici ? :confused: Je me lance. J'ai trouvé pour la somme : 'Worksheets(2).Cells(i, 5).FormulaR1C1 = "=SUM(RC[-2],RC[-1])" Mais la suite c'est que mes chiffres sont avec des points, 28.34 par exemple, et non des...
  8. D

    Extraction de plusieurs CSV

    Re : Extraction de plusieurs CSV Rebonjour ! Voilà où j'en suis actuellement : Je n'arrive pas à faire la somme des 2 cellules :/ J'ai encore un peu de travail sur la présentation et le paramétrage :) Option Explicit Sub ImportCSV() Dim Fichier As String, Chemin As String...
  9. D

    Extraction de plusieurs CSV

    Re : Extraction de plusieurs CSV Hmm, je ne pense pas faire comme ça, j'ai 200+ csv dont je veux extraire quelques données. Plutôt quelque chose dans ce genre là : Sub Macro5_ter() 'Import de chaque CSV, recopie des données sur la seconde feuille Dim Chemin$, Fichier$ Chemin = "C:\temp\"...
  10. D

    Extraction de plusieurs CSV

    Re : Extraction de plusieurs CSV Merci pour ta réponse ! Par contre du coup je tombe sur un autre problème : Comment concaténer des chaines de caractères dans une même variable ? Par exemple là j'aurai pensé faire : Chemin = "c:\Tests\" Fichier = Dir(CHEMIN & "*.csv") ExtractFichier =...
  11. D

    Extraction de plusieurs CSV

    Bonjour les VBeurs, :) J'essaye depuis quelques jours d'extraire moulte fichiers CSV dans une feuille excel. Quand j'enregistre l'import de données j'ai ce coeur de fonction : With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;c:\Tests\fichier.csv" _ ...