Convertir colonne par macro

Cousinhub

XLDnaute Barbatruc

• 20 Décembre 2008

• #2

Re : Convertir colonne par macro

Bonjour,

essaye ce code, à adapter en fonction des feuilles à convertir, ainsi que de la colonne :

Code:

Sub Macro2()
Dim i As Byte
For i = 1 To Sheets.Count
    With Sheets(i)
        .Range("A1:A" & .[A65000].End(xlUp).Row).NumberFormat = "0000000000000000"
    End With
Next i
End Sub

 

Vote positif 0 Vote négatif

X

xstier

Guest

• 20 Décembre 2008

• #3

Re : Convertir colonne par macro

Bonjour,

lors de la conversion il faut laisser standard
ensuite il faut prendre la colonne AB et lui appliqué un format 0000000000000000
( autant de zéro que de digits)

pour executer la macro à l'ouverture

dans l'éditeur VBA copier le code sur thisworkbook avec la propriété Open

 

Dernière modification par un modérateur: 19 Février 2009

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 20 Décembre 2008

• #4

Re : Convertir colonne par macro

Bonjour BHBH,

Merci pour ta réponse.
Je viens de tester ce bout de macro qui fonctionne à merveille sur mon fichier test, cependant lorsque je souhaite l'adapter à mon fichier je bugue un peu.

Dans mon fichier d'origine j'ai déjà une macro à l'ouverture du fichier ou j'ai déjà dans le Workbook Open :

Dim i As integer

A quel endroit je dois insérer ton bout de macro afin qu'il execute ensuite ta macro ?

Dans ma macro j'ai ça :

Code:

For i = 1 To Sheets.Count
If Worksheets(i).Name <> "Feuil1" Then
Worksheets(i).Range("A1").EntireRow.Insert
Worksheets("Feuil1").Rows("1:1").Copy Worksheets(i).Rows("1:1")
Worksheets(i).UsedRange.Columns.AutoFit
End If
Next
Sheets("Feuil1").Columns.AutoFit

Par avance merci.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Décembre 2008

• #5

Re : Convertir colonne par macro

Re-,

essaie ainsi :

Code:

Sub Macro2()
For i = 1 To Sheets.Count
    If Worksheets(i).Name <> "Feuil1" Then
        With Worksheets(i)
            .Range("A1").EntireRow.Insert
            Worksheets("Feuil1").Rows("1:1").Copy .Rows("1:1")
            .Range("A2:A" & .[A65000].End(xlUp).Row).NumberFormat = "0000000000000000"
            .UsedRange.Columns.AutoFit
        End With
    End If
Next
Sheets("Feuil1").Columns.AutoFit
End Sub

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 20 Décembre 2008

• #6

Re : Convertir colonne par macro

Re BHBH,

Alors c'est déjà mieux, mon seul souci c'est qu'il me fait la conversion sur la feuille 3 mais pas sur la feuille 1 et 2.

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 20 Décembre 2008

• #7

Re : Convertir colonne par macro

Re,

Quelqu'un aurait-il une solution pour que ma conversion de colonne (ligne en bleu dans le code fournit par BHBH) se fasse également sur les autres feuilles du classeur existantes de mon fichier Excel? J'ai beau faire differents raccords soit j'obtiens une erreur à la compilation soit je n'obtiens rien de concret.

Code:

Sub Macro2()
For i = 1 To Sheets.Count
    If Worksheets(i).Name <> "Feuil1" Then
        With Worksheets(i)
            .Range("A1").EntireRow.Insert
            Worksheets("Feuil1").Rows("1:1").Copy .Rows("1:1")
            [COLOR="Blue"].Range("A2:A" & .[A65000].End(xlUp).Row).NumberFormat = "0000000000000000"[/COLOR]
            .UsedRange.Columns.AutoFit
        End With
    End If
Next
Sheets("Feuil1").Columns.AutoFit
End Sub

Merci pour tout.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Décembre 2008

• #8

Re : Convertir colonne par macro

Re-,

est-ce que l'insertion de la première ligne se fait bien dans les autres feuilles également?

Si oui, c'est que ton format des nombres n'est pas le bon, et qu'ils sont peut-être en format texte?????

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 20 Décembre 2008

• #9

Re : Convertir colonne par macro

Re,

Oui l'insertion de la première ligne se fait bien sur chaque feuille.

Ce que je ne comprends pas c'est que la conversion se fait bien sur la dernière feuille mais pas sur les premières.

Pour ce qui est du format c'est exactement le même que ce que j'ai mis dans le fichier test, en fait j'ai fait un copier coller de mon fichier d'origine.

Merci.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Décembre 2008

• #10

Re : Convertir colonne par macro

Re-,

Peux-tu envoyer ton fichier réel, avec les 4 feuilles, mais juste la colonne à convertir, sur une dizaine de lignes?

Supprimes tout le reste, mais envoie le fichier "Réel", peut-être un format bizarre?

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 20 Décembre 2008

• #11

Re : Convertir colonne par macro

Re BHBH

Voici le fichier, j'ai supprimé les données qui se trouvaient dans les colonnes comprises entre A et AF pour des raisons de confidentialités (mais il y a bien des données dans ces colonnes à l'origine), mais la colonne que je souhaite convertir est la colonne AF.

Petite question au risque de paraitre un peu nulle, ça change quoi si les données sont en texte ?

Par avance, merci.

 

Dernière édition: 21 Décembre 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Décembre 2008

• #12

Re : Convertir colonne par macro

Re-,

Psssst : Sans mot de passe, c'est plus facile......😉

Edit, et j'ai essayé en recopiant tes feuilles dans un autre fichier, cela fonctionne parfaitement....

 

Dernière édition: 20 Décembre 2008

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 20 Décembre 2008

• #13

Re : Convertir colonne par macro

Désolée pour le mot de passe je pensais l'avoir enregistré sans macro.

Par contre effectivement que chez toi ça fonctionne car je l'ai mis au format EXCEL 🙁 je suis vraiment nulle.

Alors pour revenir au début, j'ai un fichier CSV extrait d'un AS400, que je souhaite mettre au format XLS, le souci c'est que ce fichier contient plus de 100 000 lignes, du coup j'ai un bout de macro qu'on m a aidé à faire grace aux pro d'excel de ce site qui me permet de le mettre sur plusieurs onglets avec mise en forme auto des colonnes.
Dans cette colonne AF je n'obtiens pas mes données sur 16 digits comme tu le vois dans l'exemple.

Je ne sais pas comment t'envoyer un bout du fichier CSV car il contient trop de données confidentielles et sans la macro pour le mettre sur plusieurs onglets je ne peux pas le retoucher car j'ai une erreur au demarrage.

Merci pour ton aide, je vais essayer de voir si je trouve une solution pour t'envoyer le CSV sans données confidentielles.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 20 Décembre 2008

• #14

Re : Convertir colonne par macro

Re-,

je t'ai envoyé un Message Privé, avec mon adresse mail

Si tu le désires, tu peux m'envoyer ton fichier .csv, ainsi que le code qui te permet de le traiter

Bonne soirée

 

Vote positif 0 Vote négatif

samimi94

XLDnaute Occasionnel

• 20 Décembre 2008

• #15

Re : Convertir colonne par macro

Re,

Je suis en train de te reproduire le fichier exacte au format csv.

 

Vote positif 0 Vote négatif