Modification sur une macro

Question

Sur le fichier joint, une macro (faite pour moi par un membre du forum) convertit une partie d'un fichier en point.csv afin de le rendre utilisable dans excel. Seules les premières colonnes sont traitées car jusqu'à présent on ne me demandait pas de traiter le reste. Aujourd'hui, c'est le cas. J'ai donc essayé de modifier et d'adapter la macro existante mais sans succès. Quelqu"un aurait-il la gentillesse et le temps de m'aider? Merci d'avance Fabienne Toutes les explications figurent dans le fichier joint. (ligne 273)...

cousinhub · Answer

A moins que je ne sois daltonien, mais je ne vois ni colonnes en "jaune", ni colonnes en "rouge"... Pourrais-tu préciser ces colonnes? @ te relire...

cousinhub · Answer

Re, pour les colonnes "rouges", tu ne précises pas le nombre de décimales. faut-il garder le nombre de décimales présent, ou mettre au format "0"? @ te relire...

cousinhub · Answer

Re-,

'sitôt dit, 'sitôt fait...

essaie ce code :

Sub ChangeFormats()
Dim DerLig As Long
Dim Plg As Range
Dim Aconvertir
Dim Aconv
Application.ScreenUpdating = False
    DerLig = Range("A65536").End(xlUp).Row
    Aconvertir = Array("F", "T", "W", "X", "Y", "AB", "AC", "AD", "AG", "AH", "AI", _
                        "AL", "AM", "AN", "AQ", "AR", "AS", "AV", "AW", "AX", "BA", "BB", "BC", _
                        "BF", "BG", "BH", "BK", "BL", "BM", "BP", "BQ", "BR")
        For Each Aconv In Aconvertir
            Set Plg = Range(Aconv & "1:" & Aconv & DerLig)
                Plg.TextToColumns Destination:=Plg(1), FieldInfo _
                    :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
                Plg.NumberFormat = "0.00"
        Next Aconv
    Aconvertir = Array("N", "O", "P")
        For Each Aconv In Aconvertir
            Set Plg = Range(Aconv & "1:" & Aconv & DerLig)
                Plg.TextToColumns Destination:=Plg(1), FieldInfo _
                    :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
                Plg.NumberFormat = "0.00%"
        Next Aconv
    Aconvertir = Array("H", "BS", "BU", "BW", "BY", "CA")
        For Each Aconv In Aconvertir
            Set Plg = Range(Aconv & "1:" & Aconv & DerLig)
                Plg.TextToColumns Destination:=Plg(1), FieldInfo _
                    :=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
                Plg.NumberFormat = "0"
        Next Aconv
End Sub

Bon, je vais manger (ici, il est 19H12"), et j'ai failli passer l'apéro...

Bon courage, et @ +

Hub