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

simsinaty · 22 Juillet 2022

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.

sylvanu · 23 Juillet 2022

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.

sylvanu · 23 Juillet 2022

simsinaty à dit:
il ne manque plus que la colonne BK qui n'est pas convertie en nombre

Il vous suffit de plonger un peu dans le code, et remplacer "Columns("J:BF")" par "Columns("J:BK")"

simsinaty · 23 Juillet 2022

En effet Sylvanu, je me suis mal habitué ! Un grand merci pour votre contribution qui m'a beaucoup aidé !

sylvanu · 23 Juillet 2022

Donc vous ne répondrez pas à mes questions ?
Et Hasco est transparent ?

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

simsinaty

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

simsinaty

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires