Macro excel

Résolu
nyark Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je suis en train de faire une macro excel pour générer une liste de nbr aléatoire à enregistrer sur un document .txt.

je génère cette liste sur plusieurs colonne.
A l'enregistrement en .txt, est il possible de mettre toutes les colonnes les unes à la suite des autres et non pas les une a cote des autres comme vu par excel

merci

A voir également:

9 réponses

Réponse 1 / 9
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Si je comprend bien, pourquoi pas générer tes nombres directement en lignes plutôt qu'en colonnes ?
Mais si pas possible..
Voir avec la fonction Collage Spécial >> Transpose.
A+
0
Réponse 2 / 9
nyark Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   2
 
je veux tout mettre sur 1 colonnes dans le fichier txt.
le pb est que j'ai environ 30000 lignes sur 300 colonnes.
0
Réponse 3 / 9
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Ouups.. tu va avoir un fameux fichier :-(
Tu veux les colonnes l'une en dessous de l'autre ?
Colonne A.. puis en dessous colonne B etc..
0
Réponse 4 / 9
nyark Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   2
 
oui c'est sa mais dans le fichier txt car dans le fichier excel pas possible
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Quel est la destination du fichier Txt, parce que l'enrégistrement risque de prendre un certain temps.
0
Réponse 6 / 9
nyark Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   2
 
sur le pc en local dans mes documents
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
C'était pas ma question, faire quoi avec ce fichier ?
Ca déterminera la solution à adopter.
0
Réponse 7 / 9
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Une solution.. Attention, si tu veux mettre sur le C faudra ouvrir Excel en mode Admin. 
Sub SauveEnTxt()
Dim Col As Long, Lig As Long, NbLig As Long
Dim Fich As Integer
    Fich = FreeFile
    Open "D:\FichierTxt.txt" For Output As #Fich
    With Sheets("Feuil2")
        Col = 1: NbLig = .Range("A65536").End(xlUp).Row
        While .Cells(1, Col) <> ""
            For Lig = 1 To NbLig
                Print #Fich, Cells(Lig, Col)
            Next Lig
            Col = Col + 1
        Wend
    End With
End Sub

A+
0
Réponse 8 / 9
nyark Messages postés 96 Date d'inscription   Statut Membre Dernière intervention   2
 
c'est exactement sa qu'il me faut.

merci
0
Réponse 9 / 9
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Tant mieux..
Mais pour éviter d'éventuel prob.. ajouter.. 
    End With 
    Close #Fich
End Sub

A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses