Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Conversion csv en xlsm et filtre automatique dernière ligne non vide

S

simsinaty

XLDnaute Nouveau
Bonjour à tous chère communauté.

Voici ma problématique :

1) je souhaite importer le fichier csv dans mon fichier xlsm mais je dois cliquer en cours de traitement pour que la boucle s'arrête. Quel code pour arrêter la boucle ?
2) j'ai mis dans mes filtres un code allant de la ligne 2 à la ligne 2000 par facilité. De ce fait, j'ai des "00000" qui se créent en première colonne une fois la macro lancée. Comment réduire les filtres à la dernière ligne non vide ? je mets le csv en zip car le format csv ne passe pas
3) J'ai mis dans le code des formules n'y faites pas attention

MErci à vous. Ci-joint les fichiers.
 

Pièces jointes

  • fichier test.xlsm
    875.6 KB · Affichages: 5
  • 01_22.zip
    43.4 KB · Affichages: 3
Solution
Re,
En partant de la V4. Avec

VB: 
    Columns("J:BF").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  ' Convertit chaines en nombres
    Columns("A:A").NumberFormat = "@"                                                       ' Colonne A en texte
    Columns("BP:BP").NumberFormat = "@"                                                     ' Colonne BP en texte

Edit : Bonjour Hasco.
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Simsinaty,
Sans plonger dans votre code, juste modifié pour répondre à la question.
La dernière ligne non vide est donnée par :
VB: 
DL = Range("A65500").End(xlUp).Row
Puis ensuite les plages sont définies par :
Code: 
Set Plage = Range("$A$1:$BQ$" & DL)
ou encore directement avec :
Code: 
Range("BR2:BR" & DL).Select
On peut accélérer le processus en figeant l'écran au début :
Code: 
Application.ScreenUpdating = False
 

Pièces jointes

  • fichier test.xlsm
    878.4 KB · Affichages: 1
Vote positif 0 Vote négatif
S

simsinaty

XLDnaute Nouveau
Bonjour Sylvanu, et merci pour votre retour rapide.
C'est presque ça, mais à la fin du traitement, il me reste les deux dernières lignes avec des matricules à 00000 et un total général. Comment les supprimer ?

MErci infiniment !
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Une V3 un peu plus optimisée, sans les innombrables .select qui ralentissent.

Par contre je n'ai pas compris la subtilité des deux lignes qui se suivent :
VB: 
Range("BR2").FormulaR1C1 = "=TEXT(RC[-69],""00000"")"
puis on colle les valeurs, avant de faire :
Range("BR2").FormulaR1C1 = "=IFERROR(IF(RC[-2]="""","""",TEXT(RC[-2],""00000"")),"""")"
La première formule n'est elle pas inutile ?
 

Pièces jointes

  • fichier test V3.xlsm
    878.5 KB · Affichages: 4
Vote positif 0 Vote négatif
S

simsinaty

XLDnaute Nouveau
Bien vu sylvanu ! Alors effectivement la première ligne est une boulette. En revanche sur l'import csv, le problème est que il me faut convertir les ";" en changement de cellule sinon je n'ai qu'une seule conlonne et j'ai un bug sur la ligne Rows("2:" & DL).SpecialCells(xlCellTypeVisible).Delete qui se met en jaune : "erreur d'exécution 1004 pas de cellule correspondantes....
Une idée ?

MErci encore !
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
simsinaty à dit:
En revanche sur l'import csv, le problème est que il me faut convertir les ";" en changement de cellule sinon je n'ai qu'une seule conlonne
Cliquez pour agrandir...
Vous avez testé ma PJ, évidemment que les données sont séparées par cellule.
Pour le second point chez moi ça passe sans souci. Essayez cette V4 j'ai séparé le select du delet, mais ça ne devrait rien changé.
 

Pièces jointes

  • fichier test V4.xlsm
    878.6 KB · Affichages: 5
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Si la PJ précédente pose problème, alors peut être y a t-il incompatibilité entre XL2007 et XL2019 sur le traitement d'un fichier csv, car s'il y a erreur sur DL peut être que la colonne A est vide, et donc que l'import csv n'a pas eu lieu.
Ce qui m'étonnerait beaucoup. Mais bon ....
En PJ V5, je reprends votre lecture du csv ligne par ligne mais travaille en array non dans la feuille, ce qui accélère beaucoup le processus.
Bon courage.
 

Pièces jointes

  • fichier test V5.xlsm
    879 KB · Affichages: 3
Vote positif 0 Vote négatif
S

simsinaty

XLDnaute Nouveau
Sylvanu, merci ! On y est presque, mais....

1) les chiffres contenant des "," sont convertis sous forme de texte or il faut qu'ils soient en chiffres
2) LEs matricules colonne A et BP sont en chiffres or mes formules sont censées les convertir en texte mais cela ne marche pas

Pour tout le reste on est bons !

MErci encore !
 
Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Voici une requête power query qui importe, filtre et type les données.
Les champs numériques sont types en double (number) , on peut les typer en Currency pour certains et laisser en double pour le reste.

Le fichier .csv doit être dans le même répertoire.

Cordialement
 

Pièces jointes

  • PQ-import-csv.xlsm
    299.4 KB · Affichages: 0
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
En partant de la V4. Avec

VB: 
    Columns("J:BF").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  ' Convertit chaines en nombres
    Columns("A:A").NumberFormat = "@"                                                       ' Colonne A en texte
    Columns("BP:BP").NumberFormat = "@"                                                     ' Colonne BP en texte

Edit : Bonjour Hasco.
 

Pièces jointes

  • fichier test V6.xlsm
    880.8 KB · Affichages: 7
Vote positif 0 Vote négatif
Solution

sylvanu

XLDnaute Barbatruc
Supporter XLD
sylvanu à dit:
Précisez au moins de quelle PJ vous parlez !
De la V4 avec conversion directe du csv, ou de la V5 avec votre approche de conversion ?
Cliquez pour agrandir...
Un contributeur n'est pas un distributeur de solutions, mais seulement quelqu'un qui essaie d'aider.
Alors vous pourriez répondre aux questions.
Y compris pourquoi "Vous avez testé ma PJ, évidemment que les données sont séparées par cellule."
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Sélectionner plusieurs plages jusqu'à la dernière ligne NON vide en col "E"
Réponses
5
Affichages
270
Usine à gaz
  • Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
538
Usine à gaz
B
  • Question
XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne
Réponses
5
Affichages
475
ChTi160
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
923
TooFatBoy
T
  • Résolu(e)
Microsoft 365 VBA code filtre auto en boucle - plusieurs critères
2
Réponses
28
Affichages
2 K
tnion
T
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
523
oguruma
POWERQUERY :: Importation d'un fichier texte .csv et sélection dynamique entre deux dates
Réponses
1
Affichages
264
oguruma
L
  • Question
Microsoft 365 Report de valeur d'une cellule dans une autre cellule en fonction de la dernière cellule non vide d'une ligne
Réponses
1
Affichages
974
sylvanu
POWERQUERY :: Simuler la lecture séquentielle d'un fichier texte comme en VBA - While Not Eof(1) ... Wend
Réponses
2
Affichages
392
oguruma
POWERQUERY :: Importer un fichier .csv avec construction de critères dynamiques (5 max) de type texte et sélection entre deux dates possible - V2.0
Réponses
0
Affichages
296
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…